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Introduction 



For most of my adult life I've pursued what some 
might consider a hopelessly disorganized diversity of 
projects. I've developed books, records, games and toys 
— and an occasional script or song — for the Children's 
Television Workshop (producers of Sesame Street and 
The Electric Company), and, on the side, I've written and 
edited satiric pieces for the National Lampoon and other 
publications. People often ask me if I think it's 
"sensible" to spread myself over so many media. "My 
activities really are all related," I answer, somewhat 
defensively. "At least somewhat..." 

The truth is that it's the very variety of my work that's 
kept me interested and challenged. And, not coinci- 
dentally, I'm convinced that it's the unlikely mixture of 
media and people — of humor with curriculum content, 
of children's games with rock'n'roll music, of animation 
with phonics lessons; of child psychologists with 
puppeteers — that has made Sesame Street so vital, so 
exciting, and so successful. 

One world that always did seem irrelevant to my 
pursuits, however, was computing. Oh sure, computers 
might store information, or generate lists of words 
recognizable to five-year-olds, or index research 
results, or handle accounts, or, of course, invade my 
privacy. In short, they might be a useful tool for 
someone else (probably someone pretty different from 
me). But computers as a creative medium— much less a 
medium I could actually feel comfortable with? Never! 

Then, one day a few summers back, my wife, 
Genevieve— then an engineering student at Columbia- 
showed me a book called Basic Computer Games, by 
David Ahl. To my amazement, it had funny pictures in it. 
It was full of games — many of them delightfully silly. 
And — wonder of wonders! — at least some of it 
(sample runs of the games, for example) was not hope- 
lessly beyond my comprehension. 

I was intrigued, and when, months later, I visited the 
Boston Children's Museum and actually got to play with 
acomputer, I was hooked. The terminals at the museum 
played many of the games in David Ahl's book. What's 
more, they actually called me by name, and made 
humorous comments about my playing skill. After 
several hours of trying to land a capsule on the moon 
(only to be told that I'd created several hundred new 
craters, and that Neil Armstrong "did it right the first 
time"), I had to be dragged away from the keyboard — it 
was past closing time, the museum personnel insisted. 

From that day on, the development of computer 
games — to entertain and to educate — has been a high 
priority activity for us at CTW. (As I write this, we're de- 
signing a prototype computer game center to open, near 
Philadelphia, in 1980 — a project in which David Ahl has 
taken a pioneering role). For the computer combines the 
possibility of fun, education, challenge, personaliza- 
tion, humor and — most important — interaction, in a 
way that no other medium can. Computers are infinitely 
patient, not minding (unless they're programmed to 
mind) if you take all day to respond to a question or 
move a game "piece". If there's something you don't 
understand, you don't have to be embarrassed to ask a 
computer for help. A computer can adjust the difficulty 
level of a game or activity to suit your ability — some 



programs even learn how to beat you as you continue to 
play against them. Armed with the proper software, a 
computer can play a song (or allow you to play one), 
paint a picture, write a poem or tell a story. Or it can 
plunge you into a whole new world, so you can learn by 
doing (or just escape, fora few moments, into a delight- 
ful fantasy). 

The games in this, David Ahl's second collection, 
demonstrate many of these attributes. Try Camel, for 
example, in which you're left alone in the Gobi Desert 
with one quart of water and a bunch of Wild Berbers hot 
on your trail. (You'll learn something about resource 
management even if you don't escape to use your new 
knowledge.) Or type Concentration into the computer, 
and let your children perfect their matching and memory 
skills without showing you up. Become a starshlp 
captain and practice navigating a three-dimensional 
universe, in Maneuvers. Turn on Father so your kids can 
argue with the computer — instead of you — if they 
want to stay out late on Saturday night. Or — the ulti- 
mate trip — play Millionaire and start your whole life 
over again (complete with such decisions as what job to 
apply for, what investments to make, and what to do 
when an airplane crashed into your magnificent new 
home)! 

The main point of all this is that whatever else 
computers are meant to be, they carv be turned into 
magical multi-media machines that put you squarely in 
the center of the action. And, as Dave Ahl has continu- 
ally demonstrated, they're an awful lot of fun. Turn the 
page and see. 

Christopher Cerf 
About this edition 

Since the TRS-80 is screen oriented, the sample 
output (which was printed on a line printer) is not always 
identical to what is seen on the screen. The up arrow (^ is 
printed in the runs as a left bracket ( [ ). 

Where graphics are used, graphic pixels (blocks) are 
printed as a period (.). Each screen location can display 
either one ASCII character or six graphics pixels 
(blocks). In other words, a character (letter, number, 
etc.) is two pixels wide and three pixels high. If any of 
the six pixels is "lit," it is printed as a single dot (•) in the 
sample runs. 

Clearing the entire screen in the sample run is 
indicated by: 
CLS 

Blank lines have not been retained in all cases, so 
the exact screen formatting is not shown. Nevertheless, 
the sample runs indicate how the program is executed. 

It is the hope of the people here at Creative Comput- 
ing who have worked on this book that you enjoy the 
games. We also hope that you will add your own 
enhancements. Graphics, personalization, additional 
skill levels and humorous remarks are obvious places to 
start. As you gain experience, try changing the playing 
algorithms or make a deterministic game into a heuristic 
one. Try new approaches, write your own variation, 
experiment, but above all, have fun! 



Morristown, New Jersey 
June 1979 



David H. Ahl 



In this game, two or three humans 
may play. Each one of them has an 
artillery piece and is firing at an 
opponent. The first person to destroy 
his opponent wins that round of the 
game. The parameters for distances 
and muzzle velocities of the artillery 
pieces are set at the beginning of the 
game. The shots are fired by giving a 
firing angle expressed in degrees from 
the horizontal. 

In a three player game, you may elect 
which player you are firing at; hence, 
player one and three could both be 
firing at player two. Once one of the 
players is eliminated, then it becomes a 
two player game and each of the 
remaining two players fires at each 
other. 

Personally, I would prefer to think of 
this game as lobbing mudpies or 
snowballs or custard cream pies or 
something non-destructive. However, 
it was originally written as shoot-'em- 
up game so that's how it appears here. 

This game was originally written by 
Mike Forman and further revised by 
N.E. Lyon and Brian West. It first 
appeared in Creative Computing, 
Jan/Feb 1976. 




PLRYER 3 SHOOTING RT? i 

FIRING ANGLE? 88. 5 

VOU UHDERSHOT BV 871 341 FEET. 

PRESS flNV KEY TO CONTINUE 
Cl8 



ROUND 2 

PLRVER 1 SHOOTING RT? 2 

FIRING RNGLE? 70 

VOU OVERSHOT BV 887. 62 FEET. 

PLRVER 2 SHOOTING RT? 3 

FIRING ANGLE? 84 

VOU UNDERSHOT BV 1284. 44 FEET. 

PLRVER 3 SHOOTING RT? 1 

FIRING ANGLE? 73 

VOU OVERSHOT BV 237. 64 FEET. 

PRESS RNY KEV TO CONTINUE 
els 



ROUND 3 



COPYRIGHT 1979 



RRTILLERY3 
CRERTIVE CORPUTING 
— els 



HORRISTOtW, NJ 



DO VOU NEED INSTRUCTIONS? YES. 
ols ■ 



THIS IS R KflR GAME THO OR THREE PLAYERS ARE GIVEN 
(THEORETICflL) CRNNONS WITH tWICH THEY ATTEMPT TO SHOOT EACH 
OTHER. THE PARAMETERS FOR DISTANCES AND MUZZLE VELOCITIES ARE 
SET RT THE BEGINNING OF THE GAME. THE SHOTS RRE FIRED BY 
GIVING A FIRING RNGLE, EXPRESSED IN DEGREES FROM HORIZONTAL 

THE COMPUTER HILL KEEP TRRCK OF THE GRHE RM> REPORT RLL 
MOVES, fl 'HIT' IS SCORED BV FIRING A SHOT HITHIN Si OF THE 
TOTAL DISTANCE FIRED OVER. GOOD LUCK! 

PRESS ANY KEY TO CONTINUE 

NO. OF PLAYERS? 3 

DISTANCE (FT. ) 1 TO 2 ? 1888 
DISTANCE <FT. ) 2 TO 3 ' 2888 
DISTANCE (FT. ) 3 TO 1 ? 2588 



MUZZLE VELOCITY (FT. /SEC. ) OF 1 ' 388 
MUZZLE VELOCITY (FT. /SEC. ) OF 2 ? 358 
MUZZLE VELOCITY (FT. /SEC. ) OF 3 ? 488- 
Cl3 



ROUND 1 

PLAYER 1 SHOOTING RT? 3 

FIRING ANGLE? 68 

VOU UNDERSHOT BY 547. 822 FEET. 

PLRVER 2 SHOOTING RT? 3 

FIRING RNGLE? 79 

VOU UNDEKHOT BV 565. 842 FEET. 



PLRVER 1 SHOOTING RT? 2 

FIRING ANGLE? 68 

VOU OVERSHOT BV 1435. 67 FEET. 

PLRVER 2 SHOOTING RT? 3 

FIRING RNGLE? 78 

VOU OVERSHOT BV 468. 484 FEET. 

PLRVER 3 SHOOTING RT? 1 

FIRING ANGLE? 76 

VOU UNDERSHOT BY 152. 922 FEET. 

PRESS ANY KEY TO CONTINUE 
els 



PLAYER 1 SHOOTING AT? 2 

FIRING RNGLE? 74 

VOU OVERSHOT BV 498. 891 FEET. 

PLAYER 2 SHOOTING AT? 3 

FIRING ANGLE? 73 

VOU OVERSHOT BY 141 325 FEET. 

PLAYER 3 SHOOTING RT? 1 

FIRING ANGLE? 72 

YOU OVERSHOT BY 438. 631 FEET. 

PRESS RNV KEV TO CONTINUE 
ols 



ROUND 5 

PLRVER 1 SHOOTING AT? 2 

FIRING RNGLE? 76. 5 

VOU OVERSHOT BV 277. 366 FEET. 

PLAYER 2 SHOOTING RT? 3 

FIRING RNGLE? 75 

fl HIT - 3 IS DEFUNCT. 

PRESS ANY KEV TO CONTINUE 
els 



ROUND 6 

PLflVER 1 SHOOTING RT? 2 

FIRING ANGLE? 78 

VOU OVERSHOT BY 144. 246 FEET. 

PLAYER 2 SHOOTING AT? i 

FIRING ANGLE? 78 

VOU OVERSHOT BV 556. 619 FEET. 

PRESS ANY KEY TO CONTINUE 
els 



ROUND 7 

PLAYER 1 SHOOTING AT? 2 
FIRING ANGLE? 79. 4 
fl HIT - 2 IS DEFUNCT. 

GAME OVER. 1 WINS. 



IB OS: PRINT841L "ARTILLERY 2" 

28 PRINT: PRINT TAB(?) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ" 

38 PRINTS968, ""; : INPUT "DO YOU NEED INSTRUCTIONS'; I* 

48T=8 

58 DIH 5(2,9) 

68 DIN V(2),X(3>,P(3),R(3,3) 

76 DATA 1,2,2,2,2,1,1,2,3,2,2,1,2,3,2,1,1,2,8 

88 IF LEFT*(1*,1)="Y" THEN 1248 RSE CLS 

98 PRINT 

188 PRINT "NO. OF PLAYERS"; 

119 INPUT N 

128 IF N=2 THEN 178 

138 IF N=3 THEN 288 

148 PRINT "ERROR-THO OR THREE PLAYERS!" 

158 PRINT 

168 GOTO 98 

178N1=1 

188 PRINT "" 

196 GOTO 228 

288N1=N 

218 PRINT "" 

228 FOR J=l TO Nl 

238 READ A,B 

248 PRINT "DISTANCE (FT. ) ";A," TO ";B; 

258 INPUT R(H,B> 

268 R(B,fl)=R(A,B) 

278 NEXT J 

288 PRINT "" 

298 RESTORE 

388 IF N=2 THEN 398 

318 FOR M TO N 

326 READ A,B,C,D,E,F 

338 IF R(fl,B)<R(C,D)+R(E,F) THEN 378 

346 PRINT "ERROR-ILLEGAL TRIANGLE. RE-ENTER RANGES. ■ 

358 RESTORE 

366 GOTO 228 

376 NEXT J 

288 PRINT 

398 FOR M TO N 

488 PRINT "NUZZLE VELOCITY (FT. /SEC. ) OF ";J; 

418 INPUT V(J) 

428 NEXT J 

438 PRINT "" 

448 FOR M TO N 

458 X(J)=VU)[2/32 

460 NEXT J 

478 FOR A=l TO N 

488 FOR B=l TO N 

498 IFX(fl»R(A,B) THEN 546 

588 PRINT "ERROR-"; ft" CANNOT REACH ";B 

518 PRINT "MAT IS THE HUZZLE VELOCITY OF ";fij 

528 INPUT Y(B) 

538 GOTO 448 

546 NEXT B 

558 NEXT R 

566 N1=N 



576 PRINT '" 

588 PRINT "" 

598 CLS: PRINT "ROUND ";T+1 

688 PRINT 

618 FOR M=± TO N 

628 IF N=3 THEN 688 

628 C=l 

646 IF HOI THEN 668 

658 C=2 

668 PRINT "PLAYER"; H; "SHOOTING AT";C 

678 GOTO 888 

688 IF P(M)=12 THEN 1198 

698 PRINT "PLRYER";H; "SHOOTING AT"; 

768 INPUT C 

718 ON C GOTO 748,748,748 

728 PRINT "ERROR-PLAYERS DESIGNATED 1.2,3. " 

738 GOTO 698 

748 IF COM THEN 776 

758 PRINT "ERROR-CRNNOT SHOOT SELF. " 

768 GOTO 698 

778 IF P(C)012 THEN 888 

788 PRINT "ERROR -";C; "IS DEFUNCT. " 

798 GOTO 698 

868 PRINT "FIRING ANGLE"; 

818 INPUT A3 

828 IF A3<8 THEN 858 

838 IF A3>186 THEN 856 

846 GOTO 888 

856 PRINT "ERROR - FIRED INTO GROUND. "; H; "NOH DEFUNCT. " 

868 P(M)=12 

878 GOTO 698 

888 IF A3<98 THEN 918 

898 PRINT "ERROR - FIRED WRONG HRY, LOSE SHOT. " 

908 GOTO 698 

916 Z=SIN(A3* 8349864>»V(N)[2/32 

928 X=(R<H,C>/1888*RND(8)>-(R(H,C>/188e*RH><e» 

938 D=X+2 

948Di=R<H,C>*.85 

958 IF D<D1 THEN 998 

S66 IF ABS<D-R(H,C»<Di THEN 1828 

978 IF IXR(H,C> THEN 1858 

988 IFD>R(M,C) THEN 1878 

998 PRINT "TOO CLOSE -";M; "IS DEFUNCT. • 

1888 P(H)=12 

1818 GOTO 1898 

1828 PRINT "A HIT -";C; "IS DEFUNCT. " 

1836 P(C>=12 

1848 GOTO 1898 

1858 PRINT "YOU UNDERSHOT BY"; ABSflMKH, C»; "FEET. " 
1666 GOTO 1188 

1678 PRINT "YOU OVERSHOT BY"; ABS(D-R(H, C»; "FEET. " 

1888 GOTO 1188 

1898 Ni=Ni-l 

1188 IF NOl THEN 1188 

1118 FOR 111=1 TO N 

1128 IF P(K1)=12 THEN 1168 

1138 PRINT 

1148 PRINT "GRHE OVER. ";ftt; "HINS. " 

1158 GOTO 1378 

1168 NEXT Ml 

1178 STOP 

1186 PRINT' "" 

1198 NEXT M 

1288 T=T+1 

1218 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

1228 IF INKEV$=" THEN 1228 ELSE CLS 

1236 GOTO 588 

1248 CLS: PRINT TAB(27)"RRTILLERY 3": PRINT 

1258 PRINT "THIS IS A SflR GAME THO OR THREE PLAYERS ARE GIVEN" 

1268 PRINT "(THEORETICAL) CANNONS HITH WHICH THEY ATTEMPT TO SHOOT EACH" 

1278 PRINT "OTHER. THE PARAMETERS FOR DISTANCES AND MUZZLE VELOCITIES ARE" 

1288 PRINT "SET AT THE BEGINNING OF THE GAME THE SHOTS ARE FIRED BY" 

1296 PRINT "GIVING fl FIRING ANGLE, EXPRESSED IN DEGREES FROM HORIZONTAL " 

1388 PRINT 

1318 PRINT "THE COMPUTER WILL KEEP TRACK OF THE GAME AH) REPORT RLL" 

1328 PRINT "HOYES. fl 'HIT' IS SCORED BY FIRING A SHOT HITHIN S>. OF THE" 

1228 PRINT "TOTAL DISTANCE FIRED OYER. GOOD LUCK!" 

1246 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

1256 IF INKEY*=" THEN 1258 ELSE CLS 

1266 GOTO 98 

1276 END 



Baccai*: 



Games of the baccarat and chemin 
de fer family originated in the baccarat 
that became popular in the French 
casinos in the 1830's. In the present 
century they have travelled from Eu- 
rope to the United States, back to 
Europe, and to casinos throughout the 
world. This process has resulted in 
wide variations in playing rules and 
what is called "baccarat" in one casino 
may more nearly resemble the "chemin 
de fer" of another. 

The computer game here is more 
nearly chemin deferthan it is baccarat. 
The rules, briefly, are as follows: Eight 
packs of cards are shuffled together 
and placed in a "shoe" from which the 
cards can be slid out one by one. 
Following this, the players make their 
bets. Any player may make any bet up 
to the amount of the bank. The player at 
the bankers righthasthefirst choice to 
bet. Any part of the bank he does not 
take may be bet by the next player on 
his right, and so on in order until the 
entire bank is covered or until everyone 
has bet who wishes to. Any player may 
take the entire bank by saying, "Ban- 
co," but when two or more players wish 
to banco, the one nearest the banker's 
right has the privilege. 

After the bets are placed, the banker 
deals two hands of two cards each, 
dealing one card at atime. The hand he 
deals first represents all the players 
betting against him; the other hand is 
the bankers. The player who has made 
the largest bet against the banker plays 
the opposition hand. 

The object of the game is to hold two 
or three cards which count nine (9), or 
as nearly nine as possible. The values 
of the cards are: face cards and tens, 
zero; aces, oneeach;anyothercard,its 
number. Units of ten points are dis- 
regarded, so that nine plus seven count 
as six, not sixteen. 

A player whose card is nine or eight 
in his first two cards shows his hand 
immediately. He has a natural and his 
hand wins (but a natural nine beats a 
natural eight). Naturals of the same 
number tie, and there is a new deal. 

When the result is not decided by a 
natural, the banker must give a card to 
his opponent on request; or the oppo- 
nent may stand. The opponent must 
stand on six or seven, must draw to a 
zero, one, two, three, or four, but has 
the option on five. The additional card, 
if given, is face up. 



Then the banker decides whether to 
stand or take a card. 



IF BANKER GIVES 


BANKER STAh 


Face card or ten 


4, 5, 6, 7 


Nine 


4. 5, 6, 7 (or 3) 


Eight 


3, 4, 5. 6, 7 


Seven or six 


7 


Five or four 


6, 7 


Three or two 


5, 6, 7 


Ace 


4, 5, 6, 7 


Opponent stands 


6, 7 



Neither player may have more than 
one additional card, giving him three 
cards at the most. When each player 
has exercised his option, the cards are 
shown. If the totals are the same, the 
bets are off and may be withdrawn and 
new bets are placed exactly as before 
for another deal. If the opponent has a 



3, 2, 1, 
2, 1,0 (or 3) 

2, 1, 

6, 5,4, 3, 2, 1,0 
5, 4, 3, 2, 1,0 

4, 3, 2, 1,0 

3, 2, 1, 

5, 4,3, 2, 1,0 

higher number than the banker's, each 
player collects such portion of the bank 
as he has covered. 

In the game of chemin defer, the role 
of banker rotates among the players 
after each hand; in baccarat, it does 
not. 



BACCARAT 
COPVRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, HJ 



DO YOU NEED INSTRUCTIONS? VES- 
els 



BfiCCfiRflT IS fi VERY POPULAR GAME IN LfiS 
VEGAS. THE PLAYER AND BANKER EACH RECEIVE 
TWO CARDS FROM A 'SHOE' CONTAINING 8 DECKS 
OF CRRDS. ALL CARD COMBINATIONS TOTALING 
TEN ARE NOT COUNTED. THE ONE THAT ENDS UP 
CLOSER TO NINE WINS. THE STAKES ARE HIGH, 
ALL OF THE PLAYERS START WITH TEN THOUSAND 
DOLLARS. YOU CAN BET ON THE DEALER OR THE 
PLAYER. A THIRD CfiRD IS GIVEN ONLY UNDER 
CERTAIN CONDITIONS, AS YOU WILL SEE. LET 
US BEGIN. GOOD LUCK! 

PRESS ANY KEY TO CONTINUE 
els 



HOW MANY PLAYERS? 1 

HHflT IS THE NAME OF PLAYER 1 ? CHRIS 

cis 

CHRIS HAS *10, 800. BET? 508 
(1) BANKER OR (2) PLAYER? 1. 

els 



BANKER 



FOUR OF HEARTS 
FOUR OF SPADES 



PLAYER MUST DRAW. 
PLAYERS TOTAL. 2 



PLAYER 



ACE OF CLUBS 
THREE OF DIAMONDS 



EIGHT OF DIAMONDS 



BANKER CANNOT DRAW. BANKERS TOTAL. 8 
********** BANKER WINS!) ********** 
CHRIS WINS t 500 - TOTfiL t 10500 

PRESS ANY KEY TO CONTINUE 

els 

CHRIS HAS $10, 500. BET? 1000 

(1) BANKER OR (2) PLAYER? 2- 

Cl3 



BANKER 



— els — 

PLfiVER 



RCE OF HEARTS JfiCK OF CLUBS 
EIGHT OF SPADES NINE OF DIAMONDS 

PLRVER CRNNOT DRAW. PLAVERS TOTAL. 9 

BANKER CANNOT DRAM. BANKERS TOTAL. 9 
IT'S A TIE. THE HAND IS PLAVED OVER. 

PRESS AW KEY TO ENTER 

CHRIS HAS $10, 500. BET? 1B0B 
(1) BANKER OR (2) PLAVER? 1. 
els 



BANKER 



THREE OF DIAMONDS 
RCE OF SPADES 



PLAVER 



QUEEN OF DIAMONDS 
TEN OF DIAMONDS 



PLAVER MUST DRAW. FIVE OF CLUBS 
PLRVER CANNOT DRAW. PLAYERS TOTAL. 5 

BRNKER MUST DRAW. QUEEN OF DIAMONDS 
BANKERS TOTAL. 4 

********** PLAYER WINS!! ********** 
CHRIS LOSES $ 1600 - TOTAL * 9500 

PRESS ANV KEV TO CONTINUE 
els 



16 CLEAR 1000: C-LS. PRINTM12, "BflttflRflT" 

20 PRINT: PRINT TAB<7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOUN, NJ" 

30 PRINT9968, ""; • INPUT "DO YOU NEED INSTRUCTIONS"; 1$ 

40 IF LEFTtat,l)0"Y« THEN 190 

50 CLS. PRINT TAB(28); "BACCARAT"' PRINT: At=STRINGt(18, 32) 

60 PRINT: PRINT At; " BACCARAT IS fl VERY POPULAR GAME IN LAS" 

70 PRINT A*; "VEGAS. THE PLAYER AMD BRNKER EACH RECEIVE" 

88 PRINT A*; "TWO CARDS FROM A 'SHOE' CONTAINING 8 DECKS" 

90 PRINT At; "OF CARDS. ALL CARD COMBINATIONS TOTALING" 

180 PRINT fit; "TEN ARE NOT COUNTED. THE ONE THAT ENDS UP" 

118 PRINT At; "CLOSER TO NINE WINS. THE STRKES ARE HIGH, " 

120 PRINT At; "ALL OF THE PLAYERS START WITH TEN THOUSAND" 

138 PRINT At; "DOLLARS. YOU CAN BET ON THE DEALER OR THE" 

140 PRINT Rt; "PLAYER. A THIRD CARD IS GIVEN ONLY UNDER" 

158 PRINT At; "CERTAIN CONDITIONS, AS YOU Mil SEE LET" 

160 PRINT At; "US BEGIN GOOD LUCK!" 

170 PRINT0979, "PRESS ANY KEY TO CONTINUE"; 

188 IF INKEYt=" THEN 188 

190 CLS: DIN M<28),Fl<28>,F<26),Bt(i3),Y(0},Gt<28) 

200 DIM 2(9, 10), Q(4, 13) 

210 FOR X=3 TO 6 

228 FOR Y=i TO 10 

238 READ Z(X,Y> 

240 NEXT Y, X 

250 FOR 51=1 TO 10: READ U(S1>: NEXT 

260 FOR Sl=l TO 4: READ At<Sl): NEXT 

270 FOR Sl=l TO 13: READ Bt(Sl): NEXT 

286 FOR Sl=i TO 13: READ VCS1): NEXT 

298 PRINT 

388 PRINT "HON MANY RAYERS"; 

310 INPUT PI 

326 IF Pl>8 THEN PRINT "MAXIMUM OF 8 PLAYERS"' GOTO 298 

338 PRINT 

340 FOR J=i TO PI 

350 PRINT'NHAT IS THE NAME OF PLAYER"; J; 

368 INPUT Gt(J) 

378 H(J)=10000 

380 NEXT J 

398 PRINT 

488 FOR Si=l TO 4 

418 FOR S2=l TO 13 

426 Q(SLS2)=0 

438 NEXT S2 

448 NEXT SI 

458 FOR M TO 6 

460 C=INT(1+RND(0)*4) 

470 D=INT<1+RND<8)*13} 

480Q(e,D)=Q<C,D>+l 

490 IF Q(C,D)>=32 THEN 460 

580 B(J)=V(D) 

510 Ct(J)=Bt(D>+" OF "+At(C> 

528 NEXT J 

538 ltt=2 

548 FOR J=l TO Pi 

550 IF M(J)<1 THEN 678 

568 CLS: PRINT GtO); " HAS. "; 

570 PRINT USING ■«M,tH"; N(J); ■ PRINT" BET"; 



588 INPUT F(J) 

590 IF F(J)>M(J) THEN 560 

688 IF F(J>OINT<FU» THEN 560 

610 IF F(J)<i THEN 560 

620 PRINT "(1) BANKER OR (2) PLRVER"; 

638 INPUT FiU) 

646 IF Fi(J»=1068 THEN 566 

650 IF CFKJ)-B*(Fi(J)-2)O0 THEN 628 

660 PRINT 

678 NEXT J 

688 J=6 

690 T1=B(1HB<2) 

760 T2=B<3)+8(4) 

710 PRINT 

728 CLS: PRINT "BANKER"; TAB(28>; "PLAYER" 

730 PRINT " "; TRBC20); " " 

748 PRINT Ct(3); TABC26); Ct(l) 

756 PRINT Ct(4); TABC20); Ct(2) 

768 PRINT 

778 IF Tl<16 THEN 798 

788 T1=T1-16 

796 IF T2<18 THEN 818 

886 T2=T2-18 

818 IF I«T1+1)=8 THEN 888 

820 PRINT 'PLAYER BUST DRRH "; 

838 PRINT Ct(5) 

848 T1=T1+B<5) 

850 IF Tl<10 THEN 888 

866 TM1-18 

870 GOTO 988 

888 PRINT "PLAYER CRNNOT DRAM. "; 

89B J=U 

900 PRINT "PLAYERS TOTAL:"; Tl 

916 PRINT 

926 IF T2<3 THEN 986 
938 IF T2>6 THEN 1046 
940 IF JOil THEN 978 
958 IF T2=6 THEN 1048 

968 GOTO 988 

976 IF Z(T2,B(5)+1)=6 THEN 1840 

986 PRINT "BANKER MUST DRRH "; 

998 PRINT Ct<6> 

I860 T2=T2+B(6) 

1018 IF T2<10 THEN 1038 

1020 TM2-10 

1030 GOTO 1050 

1848 PRINT "BRNKER CANNOT DRAW. "; 

1050 PRINT "BANKERS TOTAL:"; T2 

1666 IF T20T1 THEN 1186 

1876 PRINT "IT'S A TIE. THE HRND IS PLAYED OVER " 

1688 PRINT8979, "PRESS ANY KEY TO ENTER"; 

1090 IF INKEYt=" THEN 1890 ELSE 458 

1160 IF T2CT1 THEN 1146 

1110 Wi=i 

1120 PRINT "********** BRNKER WINS! ! **********" 

1138 GOTO 1150 

1140 PRINT *********** PLAYER WINS!! ********»" 

1150 FOR J=l TO PI 

1160 IF K<JX=0 THEN 1240 

1170 PRINT G«J); " ■; 

1180 IF F1(J)=H1 THEN 1220 

1190 I1(J}=HU)-F<J> 

1286 PRINT'LOSES t"; F(J)"- TOTAL t"; N(J>, 

1218 GOTO 1246 

1220 M(J)=M(J)tF(J) 

1230 PRINT'UINS t"; F(J); "- TOTAL t"; H(J), 

1240 NEXT J 

1250 FOR J=l TO PI 

1260 IF H(J)O0 THEN 1300 

1270 NEXT J 

1280 PRINT0960, "THANK YOU FOR YOUR MONEY, AND "; 

1290 GOTO 1420 

1386 PRINW79, "PRESS ANY KEY TO CONTINUE"; 

1316 IF lNKEYt="" THEN 1310 

1328 FOR X=l TO 4 

1338 FOR Y=l TO 1 

1340 IF Q(X,Y)08 THEN 458 

1358 NEXT Y,X 

1368 GOTO 408 

1378 DATA 1,1,1,1,1,1,1,1,8,1,0,0,1,1,1,11,1,0,0 

1380 DATA 0,0,0,8,1,1,11,0,8,0,8,0,0,0,8,11,8,8 

1398 DfiTR 1, 1, L 1, 1 i, 6, 0, 0, 0, SPADES, HEARTS, DIRMONDS 

1488 DATA CLUBS, RCE, TO, THREE, FOUR, FIVE SIX, SEVEN, EIGHT 

1410 DATA NINE TEN, JfiCK, QUEEN, KING, i, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 

1420 PRINT "THANK YOU FOR PLAYING. "; 

1438 END 



Btible Quiz 



BIBLE QUIZ is a program which 
administers up to 25 questions about 
the Bible to the user. If the answer given 
to a question is correct, the program 
proceeds to the next question. If an 
incorrect answer is given, the program 
gives the correct answer. I n either case, 
the biblical reference is given. 

Note that Statements 250 to 570 
could serve as the basis for any type of 
CAI dialogue with instructions 
preceeding Statement 250 and the 
questions and answers in the data 
statements. 

This program was written by Steve 
Wentworth of Muskingum College. It 
originally appeared in Creative Com- 
puting, Mar/Apr 1977. 



QUESTION J 4 



WHAT HRS THE NRHE OF THE FIRST CITV EVER BUILT? BRYOKE 

INCORRECT ANSWER. 

THE CORRECT RNSHER IS ENOCH GEN. 4:1? 

PRESS fiNV KEV TO CONTINUE 



• els ■ 



QUESTION # 5 

MHO MRS THE FIRST PERSON KILLED? JIMMY HOFFfl 

INCORRECT ANSWER. 

THE CORRECT RNSHER IS ABEL GEN. 4:8 

PRESS ANY KEV TO CONTINUE 



■ els ■ 



QUESTION » 6 



BIBLE QUIZ 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ 



• els ■ 



DO YOU NEED INSTRUCTIONS? YES. 

THIS GAME IS A QUIZ WHICH TESTS 
YOUR KNOWLEDGE OF BIBLICAL EVENTS, PLACES, 
RND PERSONS. 

I HILL ASK YOU A QUESTION AND THEN WAIT 
FOR YOUR ANSWER. IF YOUR RNSHER IS CORRECT, 
I HILL PROCEED TO THE NEXT QUESTION. IF YOUR 
ANSWER IS INCORRECT, I HILL GIVE YOU THE 
CORRECT RNSHER AND THEN PROCEED TO THE 
NEXT QUESTION. 

ALL ANSWERS ARE ONE WORD, AND HUST BE 
CORRECTLY SPELLED. 



WHO ACCIDENTLY HANGED HIHSELF IN A TREE? TRRZAN 
INCORRECT ANSWER. 

THE CORRECT ANSWER IS ABSALOM 2 SRH. 18:9 
PRESS ANY KEY TO CONTINUE 



els • 



QUESTION t ? 



WHO KILLED GOLIRTH? DAVID 

CORRECT RNSHER - VERY GOOD! 1 SAM. 17:49 



PRESS ANY KEY TO CONTINUE 
els 



QUESTION # 8 



THERE ARE 25 QUESTIONS. 

HOW MANY QUESTIONS DO YOU WISH TO TRY? 28. 
els 



QUESTION t 1 



WHO HAS THE FIRST CHRISTIAN MARTYR? ZORBA THE GREEK 

INCORRECT ANSWER. 

THE CORRECT ANSWER IS STEPHEN. RCTS ? 

pffiSS ANY KEY TO CONTINUE 



■ els • 



QUESTION I 2 



WHAT PHYSICIAN HAS AN AUTHOR? HOWARD THE DUCK 

INCORRECT RNSHER. 

THE CORRECT ANSWER IS LUKE. COL 4:14 

PRESS ANY KEY TO CONTINUE 



■ els 



QUESTION* 9 



WHO KILLED HIS BROTHER FOR HUMBLING HIS SISTER? UNCLE FLOYD 

INCOMSCT RNSHER. 

THE CORRECT ANSWER IS RBSALOM 2 SAM. 13 

PRESS RNY KEY TO CONTINUE 

els 

QUESTION » IB 



WHAT KEBREH SERVED A QUICK LUNCH UNDER A TREE? JOES I 
INCORRECT RNSHER. 

THE CORRECT ANSWER IS ABRAHAM GENESIS 18:6-8 
PRESS ANY KEY TO CONTINUE 



■ els ■ 



QUESTION I 3 



WHO DROVE FURIOUSLY? NETTO 

INCORRECT RNSHER. 

THE CORRECT ANSWER IS JEHU. 2 KINGS 9:20 

PRESS ANY KEY TO CONTINUE 



■ els • 



QUESTION » 11 



WHO WAS BURIED IN fl CAVE WITH HIS HIFE? AL HURT 
INCORRECT RNSHER. 

THE CORRECT RNSHER IS ABRRHRM GEN. 25:9-10 
PRESS RNY KEY TO CONTINUE 

_ els 



HHAT BOY HAD A VARIEGATED COAT? THE INCREDIBLE HULK 

INCORRECT RNSHER 

THE CORRECT ANSWER IS JOSEPH GEN. 37:3 

PRESS RNY KEY TO CONTINUE 

els 



QUESTION # 12 



HHftT BUND HAN KILLED THREE THOUSAND AT R RELIGOUS FERST? MOE 
INCORRECT RUSHER. 

THE CORRECT ANSWER IS SANSON JUDOS 16:23-38 
PRESS WW KEY TO CONTINUE 



els ■ 



QUESTION t 13 



WHO SLEPT ON RN IRON BEDSTERD OVER THIRTEEN FEET LONG? S. WHITE 

INCORRECT RNSHER 

THE CORRECT ANSWER IS OG. DUET. 3:11 

PRESS RNV KEY TO CONTINUE 



■ els 



QUESTION t 14 



MHO FELL RSLEEP DURING R LONG SERMON? MR BILL 
INCORRECT RNSHER. 

THE CORRECT RNSHER IS EUTYCHUS. ACTS 29:9 
PRESS ANY KEY TO CONTINUE 



els • 



QUESTION t 15 



WHO CLIMBED R TREE TO SEE JESUS? BEN DOVER 
INCORRECT RNSHER. 

THE CORRECT RNSHER IS ZHCCHAEUS. LUKE 19:4 
PRESS RNY KEY TO CONTINUE 



■ els • 



QUESTION # 16 



HHRT CITY IS CRLLED THE CITY OF PRLH TREES? NEHRRK 
INCORRECT RNSHER 

THE CORRECT RNSHER IS JERICHO. DUET. 34:3 
PRESS ANY KEY TO CONTINUE 



10 OS 

29 PRINT 8 411 "BIBLE QUIZ" 

38 PRINT 

46 PRINT TA8<7)"COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOKN, NJ" 

58 PRINT 8 968. "; 

68 INPUT'DO YOU NEED INSTRUCTIONS"; I* 

78 IF LEFTKIi, 1>="Y" THEN 188 

88CLS 

98 GOTO 228 

188 CLS 

118 PRINT" THIS GAME IS A QUIZ WHICH TESTS " 

128 PRINT "YOUR KNOWLEDGE OF BIBLICAL EVENTS, PLACES, " 

138 PRINT "AND PERSONS. " 

148 PRINT " I HILL ASK YOU A QUESTION AND THEN WAIT " 

158 PRINT "FOR YOUR RNSHER IF YOUR RNSHER IS CORRECT, " 

168 PRINT "I HILL PROCEED TO THE NEXT QUESTION. IF YOUR • 

178 PRINT "RNSHER IS INCORRECT, I HILL GIVE YOU THE " 

188 PRINT "CORRECT RNSHER AND THEN PROCEED TO THE " 

196 PRINT "NEXT QUESTION. " 

288 PRINT " RLL ANSWERS RR£ ONE HORD, AND BUST BE" 

218 PRINT "CORRECTLY SPELLED. ■ 

228 PRINT 8 768, "THERE RRE 25 QUESTIONS. " 

238 PRINT 

248 PRINT "HOH MANY QUESTIONS DO YOU HISH TO TRY";CHR*(31>; 

256 INPUT N 

268 IF H>25 OR Na THEN 228 

278 OS 



288 DIM S(25) 

298 C=8 

388 W=8 

318 PRINT CHMC28); 

326 RESTORE 

338 IF C=N THEN 558 

348C=C+i 

358 PRINT 

368 PRINT "QUESTION I"; C 

378 PRINT " "iamav 

388 PRINT 

398 PRINT 

468 X=RND(25> 

418 IF SCX)=i THEN 488 

428 S(X>=1 

438 FOR 0=4. TO X 

448 READ Q$, A*, V* 

456 NEXT Q 

468 PRINT Qti 

478 INPUT R$ 

488 IF R*=A* THEN 528 

498 PRINT "INCORRECT RNSHER. " 

588 PRINT "THE CORRECT ANSWER IS "; A*;" ";« 

518 GOTO 968 

528 PRINT "CORRECT RNSHER - VERY GOOD! ";W 

538NMH+1 

548 GOTO 968 

558 PRINT 8 832, "OUT OF"; N; "QUESTIONS YOU ANSWERED"; HI; "CORRECTLY " 

568 P=INT«HyN)*ie8+. 5) 

578 PRINT "YOUR PERCENTAGE OF CORRECT ANSWERS IS";P; CHRt<8);"r 

588 DATA "WHO SET FIRE TO THREE HUNDRED FOXES TAILS", "SANSON" 

598 DATA "1 JUDGES 15:4,5" 

688 DATA "WHAT HEBREW SERVED A QUICK LUNCH UNDER A TREE" 

616 DATA "ABRAHAH"," GENESIS 18:6-8" 

626 DATA "WHAT HUNGRY KAN CURSED A FRUITLESS FIG TREE", "JESUS" 

638 DATA " HARK 11:12-14" 

648 DATA "WHO KILLED HIS BROTHER FOR HUMBLING HIS SISTER" 

658 DATA "RBSRLOM", "2 SAN. 13" 

668 DATA "HBO HAD THREE HUNDRED CONCUBINES", "SOLOMON", "1 KINGS 11:1-3" 

678 DHTR "HHRT BOY HRD A VARIEGATED COAT", "JOSEPH", " GEN 373" 

688 DATA "HHO HAD A SEAMLESS COAT", "JESUS", " JOHN 19:23" 

698 DATA "WO TOOK OFF HIS SHOE TO BIND R CONTRACT", "BOAZ", "RUTH 4:7-9" 

788 DATA "HHO SLEPT ON AN IRON BEDSTERD OVER THIRTEEN FEET LONG" 

716 DRTR "OG", " DUET. 3:11" 

726 DATA "HHO HAS THE FIRST CITY-BUILDER", "CAIN", " GEN 4:17" 

738 DATA "WHAT PHYSICIAN HAS AN AUTHOR", "LUKE", " COL 4:14" 

746 DATA "HHRT SONG-COMPOSER IS CREDITED HITH 1885 SONGS", "SOLOMON" 
758 DATA "1 KINGS 4:32" 

766 DATA "WHO HAS THE FIRST PERSON KILLED", "ABEL", "GEN 4:8" 
778 DATA "HHO WRS BURIED IN A CAVE WITH HIS HIFE", "ABRAHAM" 

788 DATA " GEN 25:9-18' 

798 DATA "HHO ACCIDENTLY HRNGED HIMSELF IN A TREE", "ABSALOM" 

888 DATA "2 SAH. 18:9" 

818 DATR "WHAT BLIND KAN KILLED THREE THOUSAND RT A RELIGGUS FEAST" 

826 DATA "SAMSON", " JUDGES 16:23-38" 

836 DATR "WHAT HAS THE NAME OF THE FIRST CITY EVER BUILT" 

848 DATA "ENOCH"," GEN 4:17" 

858 DATA "HHO HAS A MIGHTY HUNTER", "NIMROD", " GEN 16:9-12" 

868 DATA "HHO DROVE FURIOUSLY", "JEHU", "2 KINGS 9:28" 

878 DATA "HHO WAS Tit FIRST CHRISTIAN MRRTYR", "STEPHEN", " ACTS 7" 

888 DATA "HHO FELL ASLEEP DIKING A LONG SERMON", ■EUTYCHUS" 

899 DATA " ACTS 28:9" 

988 DATA "HHRT CITY IS CALLED THE CITY OF PALM TREES", "JERICHO" 

918 DATA " DUET. 34:3" 

926 DATA "HHO CLIMBED R TREE TO SEE JESUS", "ZACCHAEUS", " LUKE 19:4" 

938 DATA "HHO KILLED GOLIATH", "DAVID", "1 SAM. 17:49" 

948 DATA "HHO HAS CAST INTO A DEN OF LIONS", "DfiNia", " DAN 6:16" 

958 END 

968 PRINT 8 53L "PRESS ANY KEY TO CONTINUE"; 

978 IF INKEY* =" THEN 978 ELSE 318 



Bis# 



Big 6 is strictly an American 
invention from the casinos of Neva- 
da. There is a very large wheel 
mounted vertically, generally four 
feet or more in diameter, that has the 
numbers one through six in a random 
arrangement around its periphery. 
Players place their bets on a roulette 
type of table in front of the wheel. 
The wheel is then spun and three 
numbers are declared the winners. 
These are the three numbers that 
appear at the top of the wheel. Most 
novice players looking at the wheel 
think that since there are three 
winners they have a very good 
chance of winning a large sum of 
money. Betting limits are generally 
up to $500 and, as many players 
discover very quickly, the odds are 
very heavily in favor of the house. 

If you feel that you must play Big 
6, try it by computer first and then 
figure out how much you can afford 
to lose when you go to play it in Las 
Vegas or Atlantic City. The computer 
is a much better sport than the 
casino managers will be when you 
lose at either of those resort cities. 

Big 6 was written by Steve 
Heywood and Dave Alvey. 

This program uses TRS-80 graph- 
ics which do not reproduce well on a 
line printer. Therefore the sample run 
does not give a true representation of 
the program. The only way this 
program can be truly appreciated is 
to run it. 




BIG 6 

COPYRIGHT 1979 CREATIVE COMPUTING NORRISTOHN, HJ 

els 



DO VOU HEED INSTRUCTIONS? YES. 

Cl8 

THIS PROGRAM IS A DICE WHEEL GAME IN WHICH 

YOU CBN BET ON RHY NUMBER BETMEBI ONE AND SIX 

AND UP TO TWEE NUMBERS. 
THE HOUSE LIMIT IS FROM $1 TO $580. 
TO END THIS PROGRAM TYPE THE WORD 'STOP' 

GOOD LUCK! 

PRESS ANY KEY TO CONTINUE 
els 



HOH MANY NUMBERS DO YOU MRNT TO BET ON? . 
WAT NUMBER? 4 
HflGER? 18 



YOU LOSE ON 4. 
YOU'RE BEHIND $-10. 



• 0l8 ■ 



HOH HflNV NUMBERS. DO YOU HflNT TO BET ON? 
HHflT TOO NUMBERS? 2, 4 
HRGFR ON BOTH? 5,18 



VOU WIN 1 TIME ON 1 
YOU LOSE ON 4. 
YOU'RE BEHIND $-15. 



ols • 



HOH HflNV NUMBERS DO YOU HUNT TO BET ON? . 

HHflT THREE NUMBERS?!, 2, 5 

HBGER ON EACH OF THE THREE? 5,5,5 



YOU LOSE ON 1 
YOU LOSE ON 2. 
YOU HIH 1 TIME ON 5. 
YOU'RE BEHIND t-'S. 



els • 



HOH MANY NUMBERS DO YOU WANT TO BET ON? . 
HHflT TWO NUMBERS? 1,2 
HftGER ON BOTH? 10,10 



YOU LOSE ON 1 
YOU HIH 1 TIME ON : 
YOU'RE BEHIND $-20. 



els ■ 



HOH MANY NUMBERS DO YOU WANT TO BET ON? . 
UHATTHO NUMBERS? 2,4 
HftGER ON BOTH'' 25,25 



YOU LOSE ON Z 
YOU LOSE OH 4. 
YOU'RE BEHIND $-78. 

HOH HflNV NUMBERS DO YOU HflNT TO BET ON? . 
HHAT TOO NUMBERS? 2,4 
HftGER ON BOTH? 18,10 



• els 



VOU LOSE ON 2. 

VOU HIH 1 TIME ON 4. 

YOU'RE BEHIND $-76. 



HOH MANY NUMBERS DO YOU HANT TO BET ON? STOP- 

NHflTTH0NUMBERS?2,4 

HftGER ON BOTH? 10, 16 



VOU LOSE ON 2. 

VOU HIH 1 TIME ON 4. 

YOU'RE BEHIND $-70. 



• els • 



HOH MANY NUMBERS DO VOU KANT TO BET ON? STOP 

SO YOU HflNT TO CASH IN YOUR CHIPS, I SEE! ! ! 

YOU DIDN'T HIH ANY MONEY, BUT I'M HILLING TO CALL IT EVEN!! 

READY 



■ els ■ 



10 CIS: CLEAR 1898: PRINTIM13, "BIG 6" 

28 PRINT: PRINT TAB(?> "COPYRIGHT 1979 CREATIVE COMPUTING NORRISTOHN, NJ" 

28 PR1NTC«960, "■; - INPUT "DO YOU NEED INSTRUCTIONS"; IS 

40 OS: GOSUB 1048 

50 IF LEFT$(1$,1>0"Y" THEN 188 

60 PRINT TRBC28) "BIG 6"- PRINT 

70 PRINT » THIS PROGRAM IS DICE HHEEL GAME IN WHICH" 

80 PRINT "YOU CAN BET ON ANY NUMBER BETWEEN ONE AND SIX" 

90 PRINT "AND UP TO THREE NUMBERS. " 

100 PRINT 

110 PRINT " THE HOUSE LIMIT IS FROM $1 TO $588. " 

120 PRINT 

128 PRINT " TO END THIS PROGRAM TYPE THE HORD 'STOP' " 

148 PRINT 

150 PRINT "GOOD LUCK!" 

160 PRINTI979, "PRESS ANY KEY TO CONTINUE*; 

178 IF INKEY$=" THEN 178 ELSE ttS 

180 DIM SO 

190 GOTO 210 

208 PRINT "YOU CANNOT BET ON LESS THAN ONE OR MORE THAN THREE NUMBERS. " 

210 PRINTK, "HON MANY NUMBERS DO YOU WANT TO BET ON"; 

228 INPUT N$:IF N$="STOP* THEN PRINT CHRK31); • GOTO 980 

220 N=VRL(N$) 

248 IF N=2 THEN 488 

258 IF N=3 THEN 548 

268 IF N>3 OR N<1 THEN 288 

278 PRINT "HHflT NUMBER"; 

2B0 INPUT V 

298 IF V-C=6 OR VM THEN 228 

388 PRINT "YOU CRN ONLY BET ON AN INTEGER FROM ONE TO SIX. " 

210 GOTO 278 

220 PRINT "NAGER"; 

228 INPUT F 

248 IF F<=568 OR F M THEN 270 

350 PRINT "THE HOUSE LIMIT IS FROM II TO BOO. " 

260 GOTO 220 

278 GOSUB 690 

280 S2=V: S2=F GOSUB 328 

298 GOTO 948 

488 PRINT "WHAT THO NUMBERS"; 

418 INPUT V, P 

428 IF VC=6 OR VM OR P<=6 OR PM THEN 450 

428 PRINT "YOU CAN ONLY BET ON AN INTEGER FROM ONE TO SIX. " 

440 GOTO 400 

450 PRINT "HRGER ON BOTH"; 

460 INPUT F, I 

478 IF F<=588 OR F>=1 OR K=508 OR IM THEN 500 

488 PRINT "THE HOUSE LIMIT IS FROM $1 TO $580. " 

498 G8T0 450 

588 GBSUB 698 

510 S2=V: S3=F 

520 S2=P- £2=1 

530 GOTO 940 

540 PRINT "HHflT THREE NUMBERS"; 

550 INPUT V,P,S 

568 IF VC=6 OR V>=1 OR PC=6 OR PM OR S<=6 OR S>=1 THEN 598 

578 PRINT "YOU CAN ONLY BET ON AN INTEGER FROM ONE TO SIX. ■ 



GOSUB 820 
GOSUB 828 



588 GOTO 540 

598 PRINT "HRGER ON EACH OF THE THREE"; 

608 INPUT F, I, J 

610 IF F<=588 OR FM OR K=588 OR IM OR J<=588 OR JM THEN 640 

628 PRINT "THE HOUSE LIMIT IS FROM $1 TO $580. " 

628 GOTO 598 

640 GOSUB 698 

650 S2=V: S3=F- GOSUB 830 

660 S2=P' S3=I: GOSUB 838 

678 S2=S. S3=J: GOSUB 838 

688 GOTO 940 

698 X=-i 

780 A=INT(6*RND<0)+1) :B=INT(6*RND(0)+1) :C=INT(6*RNDC0)+i> 

718 S<iMi:S<2)=B:SG>=C 

720 FOR Y=l TO 2 

728 FOR X=i TO 3-Y 

748 IF S(XX=S(X+1> THEN 760 

758 TE=S(X): S<X)=S(X+i): S(X+1)=TE 

768 NEXT X: NEXT Y 

770 FOR TX=1 TO RND(18)+10 

788 PRIHT0256, A$(RND(6»" "ft$(RNDC6»" "fl$(RND(6))i 

790 NEXT TX 

BOO PR1HT0256, A«SC1»» •A$(S(2)>" "A$(S<3»; 

810 PRINT0512, CHR$<21); 

820 RETURN 

838 C1=0 

840 IF S2=A THEN C1=C1+1 

858 IF S2=B THEN Ci=Cl+l 

868 IF 52=C THEN C1=C1+1 

878 IF Cl>8 THEN 988 

888 S3=S3*<-1> 

898 PRINT "YOU LOSE ON"; S2; CHR$<8>; " •• GOTO 928 

980 S2=S2*Ci 

910 IF Cl=l THEN PRINT "YOU UIN 1 TIME 0N";S2;CHR$<8);" " 

928 H=H+S3 

938 RETURN 

940 IF N=0 THEN PRINT "YOU'RE EVEN!!"- PRINT: GOTO 210 

958 IF VM THEN PRINT "YOU'RE AHEAD $"; U; CHR$(8); " "- PRINT: GOTO 218 

960 IF W<0 THEN PRINT "YOU'RE BEHIND $"; It CHR$<8>; " ■• PRINT: GOTO 218 

978 REM 

986 PRINT: PRINT: PRINT "SO YOU WANT TO CASH IN YOUR CHIPS, I SEE!!!'- PRINT 

998 IF 108 THEN 1820 

1888 PRINT "YOU DIDN'T UIN AHY MONEY, BUT I'M HILLING TO CALL IT EVEN!!' 

1816 GOTO 1820 

1020 PRINT "YOU HON EXACTLY $";«;"!! NOT BAD !!!" 

1030 END 

1848 FOR R=l TO 6: FOR 8=1 TO 3: FOR D=i TO 5: READ C 

1850 fl$(A)=fl$(A)+CHR$(C+100): NEXT D 

1068 A$(A)=A$(A)+CHR$(26)+STRING$(5,8):tCXT B 

1870 R$ffl}=A$<A>+STRING$(5,32HSTRIHG«3,27): NEXT A 



1888 DATA 28,76,88,28,28,28, 
1890 DATA 76,48,48,40,76,76, 
1100 DATA 76,40,48,48,76,28, 
1118 DATA 26,28,76,88,28,88, 
1128 DATA 88,48,40,48,48,31, 



28,91,28,26,28,40,43,48,28 
48,40,40,31,43,40,40,40,40 
28,40,46,79,31,40, 
79,76,9176,28,28,28, 
2L 21,21,88, 31, 



1138 DATA 28,76,40,28 
1148 RETURN 



26,91,48,48,48,76,31,48,48, 



40,31 
43,28 
40,31 
48,31 




This game tests your skills in binary- 
to-decimal and decimal-to-binary con- 
version. You are given twenty conver- 
sion trials. Numbers are chosen 
randomly and your score is printed at 
the end. The answer to any conversion 
you miss is displayed; if the next 
conversion is presented, you may 
assume you got the previous one 
correct. 



There are several possible 
modifications for this program such as 
timing the response, allowing the user 
to specify the number range, checking 
for duplicate numbers, or extending it 
to other bases. 

This program was written by Ted 
Park of Pacific Union College. It 
originally appeared in Creative Com- 
puting, Mar/Apr 1975. 



BINARY 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



HIT ENTER TO START? _ 




BINARY: 00111 


DECIMAL. ? 7 




BINARY: 68111 


DECIMAL. ~> 7 




BINARY: 11100 


DECIMAL. ? 27 


CORRECT ANSWER: 28 


BINARY: 01008 


DECIMAL. '' 8 




BINARY: 11110 


DECIMAL. ? 32 


CORRECT ANSWER: 36 


BINARY: 00101 


DECIMAL. ? 5 




BINARY: 61111 


DECIMAL. ■> 15 




BINARY: 08101 


DECIMAL. ? 5 




BINARY: 06001 


DECIMAL: ' 1 




BINARY: 01011 


DECIMAL. ■> - 
els 




DECIMAL. 21 


BINARY: ? 11111 




DECIMAL. 11 


BINARY: ? 01611 




DECIMAL. 20 


BINARY: ? HUB 




DECIMAL: 26 


BINARY: ? 11016 




DECIMAL. 6 


BINARY: ? 06116 




DECIMAL. 15 


BINARY: ? 01100 


CORRECT ANSWER: 81 


DECIMAL: 9 


BINARY: ' 01061 




DECIMAL: 14 


BINARY: '' 61116 




DECIMAL: 20 


BINARY: ? 11110 




DECIMAL. 27 


BINARY: ■> 16061 


CORRECT ANSWER: 11 


YOUR SCORE: 75 7. 






TRY AGAIN? . 


ri<t 





16 CLS. PRINT§413, "BINARY" 

26 PRINT: PRINT TAB<7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

36 PRINT0966, ""; INPUT "HIT ENTER TO START"; I* 

46 CLS 

59 B$="01" 

68 T6=26 

76 FOR 1=1 TO 16 

88 GOSUB 480 

96 P0=PEEK<16416)+PEEK<16417)*256-15366 

IBS PRINT "BINARY: "; 

110 FOR J=l TO 5 

120 PRINT MIDf<B*,B(J>+l,l>; 

130 NEXT J 

140 PRINT " DECIMAL: "; 

150 INPUT A 

160 IF A=D THEN 196 

176 PRINT0PO+38, "CORRECT ANSWER: ";D 

180 T6=T6-1 

158 REM 

288 NEXT I 

218 FOR A=l TO 566: NEXT: CLS 

220 FOR 1=1 TO 16 

236 GOSUB 480: PO=PEEK(16416>+PEEK(16417)*25S-15360 

240 PRINT "DECIMAL: ";D; 

253 PRINT " BINARY: "; 

260 I*="06000" 

270 INPUT I* 

28B IF LEN<I*»16 THEN 356 

290 I*="00090"+I* 

200 I*=RIGHT«I*,5> 

316 FOR J=l TO 5 

326 IF MID*<B*,Ba>+l,lX>MID$a*,X 1> THEN 350 

320 NEXT J 

240 GOTO 466 

256 PRINT6P0+39, "CORRECT ANSWER: "; 

360 FOR J=l TO 5 

370 PRINT MID*CB*,6<J>+1,1>; 

280 NEXT J: PRINT 

390 T0=T0-1 

480 REM 

410 NEXT I 

420 PRINT 

420 PRINT 

446 PRINT "YOUR SCORE:"; INTCT6/. 2+ 5);";;" 

456 PRINT 

460 INPUT "TRY AGAIN"; HNS* 

476 IF LEFWCANSS, 1)="Y" THEN CLS. GOTO 56 ELSE END 

488 D=8 

490 FOR J=l TO 5 

500 B(J)=INKRND(0)+ 5) 

510 D=D*2+B<J) 

528 NEXT J 

538 RETURN 
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Description: Black Box is a computerized version of the 
game that appeared in the August 1977 issue of Games 
and Puzzles. The Black Box is an 8-by-8 square in which 
several atoms are hidden. The object of the game is to 
discover the positions of the atoms by projecting rays at 
them from the sides of the box and noticing how these rays 
are deflected, reflected, or absorbed. Rays enter the box 
across one of the four edges and travel horizontally or 
vertically. The entry points are numbered from 1 to 32, 
counterclockwise, starting at the top of the left edge. 

To piay the game, you first specify how many atoms to 
place in the Black Box. Then you type in the point at which 
you send the ray into the box, and you are told whether the 
ray was absorbed or where it emerged. Type a zero to end 
the game and print the board. The path of the ray is 
governed by the following rules: 

(1) Rays that strike an atom directly are absorbed. 

(2) Rays that come within one square of an atom in a 
diagonal direction (so that they would pass next to the 
atom if they continued) are deflected by 90 degrees. 

(3) Rays aimed between two atoms one square apart are 
reflected. 

(4) Rays that enter on either side of an atom on the edge 
of the box are reflected. 

(5) Rays otherwise travel in straight lines. 

The game is pretty interesting with four or five atoms, 
but can get out of hand with too many more. Occasionally, 
an atom can be masked by others. This doesn't occur 
often, but sometimes the position is truly ambiguous 
(more often, there is only one place the atom can be). For 
competitive play, score one point for reflections and 
absorptions, two for rays which emerge from the box, and 
five points for each atom guessed incorrectly. 

This program and description were written by Jeff 
Kenton. A previous version appeared in Creative Com- 
puting, May/Jun 1978. 
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BLACK BOX 
COPYRIGHT 1379 CREATIVE COMPUTING MORRISTOUN, NJ 



HIT ENTER TO START? . 



HO. OF ATOMS? 2. 



- els ■ 

■ els - 
• els - 



I THE BLACK BOX 



32 31 38 29 28 27 26 25 

81 24 

82 23 

83 22 

84 21 

65 28 

66 19 
87 18 
88 17 

89 10 11 12 13 14 15 16 



RflY? 1 ABSRBD. RAY? 28 ABSRBD. RAY? 11 TO 38 RAY? 6 TO 19 
RAY? 15 TO 3 RAY? 23 ABSRBD. RAY? 26 ABSRBD. RAY? 25 ABSRBD. 
RAY? 8. 



■ els - 



HOH TELL Mt WERE DO YOU THINK THE ATOMS ARE? 
(IN ROM, COLUMN FORMAT PLEASE ) 
ATOM 8 1 '15 
ATM J 2 ^ 2,8- 



■ els ■ 



32 31 38 29 28 27 26 25 

81 24 

62. 23 

62 22 

84 21 

85 28 

86 19 

87 18 
88 17 

89 18 11 12 13 14 15 16 



YOU GUESSED 2 OUT OF 2 ATOMS CORRECTLY! ! 
YOUR SCORE FOR THIS ROUND HAS 11 POINTS. 



] THE BLACK BOX 



CARE TO TRY AGAIN? NO. 



■ els • 



18 CIS. PRINTM11 "BLACK BOX" 

26 PRINT: PRINT TRB(7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOUN, NJ" 

20 PRINT8968, ""; ' INPUT "HIT ENTER TO START"; If 

48 CLS. PRINT 'NO. OF ATOMS"; - INPUT N: CLS: 60SUB 568 

58 FOR J=8 TO 9: FOR 1=8 TO 9: B(U)=8: NEXT I, J 

68 FOR 1=1 TO N 

78 X=RM>(8): Y=RHD(8>: IF B<X,Y)08 THEN 78 

88 BCX,YM: NEXT I 

98 S=8: C=8 

188 P0=P0+8: IF P0=968 THEN P0=Lt*64 

118 PRINTCPO, "RAY";CHRt(28); ■ P0=P0+8: INPUT R: IF R<1 THEN 388 

128 ON (R-iVB+l GOTO 148,158,168,178 

128 PRINT "ERROR"' GOTO 188 

146 X=8: Y=R: U=l: V=8: GOTO 188 

158 X=R-8: Y=9: U=0: V=-i: GOTO 188 

168 X=9: Y=25-R: U=-i: V=8: GOTO 188 

178 X=33-R: Y=8: U=8: V=i 

188 Xi=X+U: Yi=Y+V 

198 IF U=8 THEN X2=X1-1: X2=X1+1: Y2=Y1: Y3=Yi: GOTO 210 

266 Y2=Y1-1: Y3=Y1+1: X2=X1: X3=X1 

210 GOSUB 640: ON 8*B«1 Y1>+B<X2, Y2H2*B<X3, Y3H1 GOTO 238,240,258,248 

228 PRIHT8P0, "ABSRBD. "• S=S+1: GOTO 188 

238 X=X1: V=Vi: GOTO 288 

246 Z=l: GOTO 260 

258 Z=-l 

268 IF U=0 THEN U=Z: Y=8: GOTO 280 

278 U=8: Y=Z 

288 OH (X+15>/8 GOTO 328,386,330 

298 STOP 

368 ON (Y+15V8 GOTO 348,180,250 

310 STOP 

326 Z=Y: GOTO 266 

228 Z=25-Y: GOTO 268 

248 Z=33-X: GOTO 366 

356 Z=8+X 

268 IF Z=R THEN PRINT8P0, "RRCTD. "• S=S+1: GOTO 180 

370 PRINWO, "TO";Z: S=S+2: GOTO 108 

288 CLS: PRINT "NOH TELL HE, WHERE DO YOU THINK THE ATOMS ARE?" 

290 PRINT "<IN ROU, COLUMN FORMAT PLEASE )' 

408 FOR 6=1 TO N 

410 PRINT "ATOM#";Q; 

428 INPUT I, J 

428 IF BU,I)=6 THEN S=S+5: GOTO 458 

440 C=C+1 

450 NEXT Q 

468 CLS: GOSUB 560: FOR J=l TO 8: FOR 1=1 TO 8: FL=-i 

470 IF B(I,J)=0 THEN 490 

488X1=I:Y1=J:G0SUB648 

490 NEXT I: NEXT J 

508 PRINT81W4, "YOU GUESSED"; C; "OUT OF"; N; "ATOMS CORRECTLY!!" 

518 PRINT "YOUR SCORE FOR THIS ROUND HAS";S; "POINTS. " 

528 PRINT 

528 INPUT "CARE TO TRY AGAIN"; At 

548 IF LEFT«A», 1)="Y" THEN CLEAR: GOTO 48 

558 END 

568 PRINT: A$="01248222022204210528061907188817" 

578 FOR LO=0 TO 7: FR*=MW<ft$, L0*4+l, 2) : LN$=HIM«tt. LO+4+3, 2) 

588 PRINT FR*;" "; CHR«191); STRIHGK22, 22); CHM(191); " ";LN»: NEXT 

598 PRINT " •;CHRf(2?);STRING»(22,176) 

688 PRINT " 89 16 11 12 13 14 15 16" 

61BPRINTee, " °; CHR*<26); STRING$<23, 131>; 

620 PRINT88, " 22 21 28 29 28 27 26 25"; 

628 PRINT8292,CHR*(93);" THE BLACK BOX"; P0=ll*64-8: RETURN 

648 IF Xi=B OR Xi=9 OR Y1=0 OR Yl=9 THEN RETURN 

658 PR=PEEK(Yi*64+Xl*2+i+15268>: IF PR032 THEN CR=12+PR ELSE CR=148 

660 PRINT8Yi*64+Xi*3+l, CHRJ(CR); ■ IF FL THEM RETURN 

678 PRINT§Y1*64+X1*2+1 CHRt(PR); ' RETURN 
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Bobstones 



The idea for this number game was 
derived from a contest called 
"Bobstones" described in the novel 
Watership Down. The object of 
Bobstones is to guess three things 
about the roll of a pair of dice. 

1. If the sum of the dice 

is odd or even 1 point 

2. The sum of the dice 2 points 

3. The number on each 

of the two dice 3 points 

The winner is the first player to score 
eleven points. If atie results, the winner 
is the first player to break the tie. 

In thiscomputerversionofthegame, 
you are playing against the computer. 
However, the computer makes its 
guess before the dice are "rolled." 
Hence, it has no real advantage over its 
human opponent. 

This game was written by Dohn 
Addleman. It originally appeared in 
Creative Computing Mar/Apr 1976. 



COPYRIGHT 1979 



BOBSTONES 
CREATIVE C0I1PUTIN6 
els 



HORRISTOWK, HJ 



DO VOU NEED INSTRUCTION? YES. 
— els ■ 



BOBSTONES 
THIS IS R NUMBER GBC CALLED BOBSTONES. THE OBJECT OF 
BOBSTONES IS TO GUESS THREE THINGS ABOUT THE ROLL OF A PAIR 
OF DICE ON EACH TURN, THE COMPUTER SIMULATES THE ROLL OF 
THE DICE. THEN, VOU OR THE COMPUTER (VOIR OPPONENT) GUESS 



1 IF THE SUN OF THE DICE IS ODD OR EVEN 

2. THE SUN OF THE DICE 

2. THE NUMBER ON EACH OF THE TUO DICE 



SCORE 

1 POINT 

2 POINTS 
2 POINTS 



THE WINNER IS THE FIRST PLRVER TO SCORE 11 POINTS. IF A 
TIE RESULTS, THE WINNER IS THE FIRST PLAVER TO BREAK THE TIL 

PRESS ANY KEV TO START 
els 



VOU FIRST OR HE? ME 



PRESS ANV KEV TO CONTINUE 
els 



YOURTURH. 

IS THE SUM ODD OR EVEN? I 

SORRV, THE SUM IS 10. 



PRESS ANV KEY TO CONTINUE 
els 



NY TON 

*** ON THIS ROLL OF THE DICE, THE TOO NUMBERS ARE 5 AND ; 

*** THE SUN IS 7. 

HV GUESS IS THAT THE SUN IS EVER 

AH I RIGHT OR WRONG? HR.0NG 

THE SCORE IS If ; 8 - VOU: 0. 

PRESS ANV KEV TO CONTINUE 
els 



VOURTURH 

IS THE SUM ODD OR EVEN? ODD 
SORRV, THE SUN IS 8. 

PRESS ANV KEV TO CONTINUE 
els 



• els ■ 



m TURN. 

*** ON THIS ROLL OF THE DICE, THE TUO NUMBERS f 

«* THE SUH IS 10. 

HV GUESS IS THAT THE SUM IS ODD. 

AH 1 RIGHT OR HRONG? WRONG 

THE SCORE IS HE. - VOU: 0. 



£51 



• els • 



VOIR TURN. 

IS THE SUN ODD OR EVEN? ODD 

YOU ARE CORRECT. 

NO* GUESS THE SUH? 7 

SORRV, THE SUH IS 9. 

PRESS ANV KEV TO CONTINUE 
els 



HV TURN. 

*** ON THIS ROLL OF THE DICE, THE TWO NUMBERS ARE 1 AND 1 

*** THE SUM IS 2. 

NY GUESS IS THAT THE SUM IS ODD. 

AH I RIGHT OR HRONG? HRONG 

THE SCORE IS IC. - VOU: 1 

PRESS ANV KEV TO CONTINUE 
els — 



YOUR TURN. 

IS THE SUM ODD OR EVEN? EVEN 

VOU ARE CORRECT. 

NOW, GUESS THE SUN? 6 

VOU ARE CORRECT. 

WHAT ARE THE TWO NUHBERS WHICH PRODUCED 6 '■ 4 

"<?2 

SORRV, THE NUMBERS ARE 2 AND 1 

PRESS ANY KEV TO CONTINUE 
els 



HV TURN. 

*** ON THIS ROLL OF THE DICE, THE TWO NUMBERS I 

*** THE SUH IS 7. 

HV GUESS IS THAT THE SUB IS ODD. 

AH I RIGHT OR HRONG?' RIGHT 

HV GUESS OF THE SUM IS 7. 

AN I RIGHT OR WRONG? RIGHT 

HV GUESS IS THAT THE NUHBERS ARE 6 AND 1 

AM I RIGHT OR HRONG? HRONG 

THE SCORE IS ME. 2 - VOU: 4. 



; AND 4. 



10CLS 

20 PRINT 8 411 "BOBSTONES" 

20 PRINT 

40 PRINT TAB(?)"COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOMH, NJ" 

50 PRINT 8 960, «"; 

60 INPUT'OO VOU ICED INSTRUCTIONS"; It 

70 IF LEFTtdt, 1)="Y" THEN CIS. PRINT 8 27, "BOBSTONES" ■ PRINT ELSE 220 

80 PRINT" THIS IS A NUMBER GRHE CALLED BOBSTONES. THE OBJECT OF" 

90 PRINTBOBSTOHES IS TO GUESS THREE THINGS ABOUT THE ROLL OF H PAIR" 

10B PRINT'OF DICE ON EACH TURN, THE COMPUTER SIMULATES THE ROLL OF" 

110 PRINT"THE DICE THEN, VOU OR THE COMPUTER (YOUR OPPONENT) GUESS" 

120 PRINT 

120 PRINT" SCORE" 

140 PRINT" « 

150 PRINT" 1. IF THE SUM OF THE DICE IS ODD OR EVEN 1 POINT" 

160 PRINT" 2. THE SUM OF THE DICE 2 POINTS" 

170 PRINT" 2, THE NUMBER ON EACH OF THE TOO DICE 2 POINTS" 

130 PRINT 

190 PRINT" THE WINNER IS THE FIRST PLAVER TO SCORE 11 POINTS. IF A" 

200 PRINTTIE RESULTS, THE WINNER IS THE FIRST PLAVER TO BREAK THE TIE " 

210 PRINT 8 979, "PRESS ANV KEV TO START"; 

220 IF INKEVt ="" THEN 220 

220 DIM 0(2) 

240 fl(i)=8 

250 R<2)=8 

260 Zl=-1 

270 Z2=-l 

288 Z2=-l 

293 Z4=-l 

208 Z5=-i 

210 Jl=8 

220 as 

228 PRINPYOU FIRST OR ME"; 

240 INPUT Zt 

258 Z*=LEFT«3, 1) 
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368 IF 2$="V THEN 468 

378 IF Zt="M" THEN 488 

388 PRINT"/// TYPE THE NORD 'YOU' OR THE HORD 'ME' " 

398 GOTO 326 

488 Di=RHD(6> 

418 IF Zi=8 THEN 438 

426 21=8 

438 D2=RMK6> 

448 S=OM>2 

458 IF Ji=0 THEN 598 

468 IF Z$0"H" THEN 538 

478 IF J208 THEN 1126 

488 PRINT 

458 PRINFTHE SCORE IS HE:";flC2)i" - VOU:"iB(l); CHR$(8);" 

588 IF A(i»=il THEN 1328 
518 IF fi(2>Ml THEN 1328 
528 GOTO 616 

538 IF ZtO'Y" THEN 2858 

548 IF J201 THEN 618 

558 PRINT 

568 PRINTTHE SCORE IS YOU:"; fid);" - l£:";a<2>; CHR*<8>;" ' 

578 IF R(i»=ii THEN 1328 

589 IF fl(2»=il THEN 1928 
598 Ji=-i 

688 IF Z«="V" THEN 1128 

616 PRINT 8 979, 'PRESS ANY KEY TO CONTINUE"; 

628 IF INKEY$ =" THEN 628 

638 PRINT CHR«2S>CHR$C31>"Y0UR TURN. " 

648 J2=i 

658 R=S-< INT(S/2>*2> 

668 PRINT"IS THE SUB ODD OR EVEN"; 

676 INPUT AS 

688 fB=LEFT«A*, 1) 

698 IF fiJ="8" THEN 738 

788 IF Rt=-E* THEN 766 

716 PRINT"/// TYPE THE WORD 'ODD' OR THE HORD 'EVEN' " 

728 GOTO 668 

738 IF R=i THEM 788 

748 PRINT'SORRY, THE SUH IS";S; CHMC8);" " 

756 GOTO 488 

766 IF R=6 THEN 788 

776 GOTO 748 

788 PRIMT'YOU RRE CORRECT. " 

738 A(1)=A<1)+1 

889 PRINTNOH, GUESS THE SUM"; 

818 INPUT Gl 

828 IF GK2 THEN 858 

838 IF Gl>12 THEN 856 

846 GOTO 878 

858 PRINT"/// THE SIM HUST BE BETWEEN 2 RND 12 " 

868 GOTO 888 

878 IF G1=S THEN 988 

888 PRINTSORRY, THE SUH IS"; Sj CHRK8);" " 

838 GOTO 468 

988 PR1NTYOU ARE CORRECT. " 

918 A<l)=fl(lH2 

928 PRINTHHAT ARE THE TWO NUMBERS WHICH PRODUCED"; S; 

938 INPUT NL N2 

948 IF Nia THEN 998 

958 IF N2a THEN 998 

368 IF ND6 THEN 396 

978 IF N2>6 THEN 996 

988 GOTO 1818 

938 PRINT'/// THE NUMBERS MUST BE BETWEEN 1 AND 6. " 

1888 GOTO 328 

1816 IF K1=D1 THEN 1656 

1828 IF N2=D1 THEN 1878 

1838 PRINTSORRY, THE NUMBERS ARE"; Mi "AND"; D2; CHR$<8);" " 

1848 GOTO 488 

1856 IF H2=D2 THEN 1898 

1868 GOTO 1836 

1876 IF m=02 THEN 1898 

1888 GOTO 1838 

1898 PRINTYOU ARE CORRECT. " 

1168 A(l)=A(l)+3 

1116 GOTO 488 

1128 J2=8 

1138 PRINT 6 979, "PRESS ANY KEY TO CONTINUE"; 

1148 IF IHKEY* ="' THEN 1148 

1158 OS 

1166 PRIHT'IN TURN " 



1178 PRINT"*** ON THIS ROLL OF THE DICE, THE TWO NUMBERS ' 

1186 PRINTARE";D1; "AND"; D2; CHR$<3>;" " 

1198 PRINT"*** THE SUM IS";S; CHR*<8);" • 

1288 Ai=IHT(2*RHD(8>+i) 

1218 IF Z2=8 THEN 1238 

1228 22=6 

1238 IF «=i THEN 1268 

1246 PRINT'NY GUESS IS THAT THE SUH IS ODD. " 

1256 GOTO 1278 

1266 PRINT"MY GUESS IS THAT THE SUH IS EVER " 

1278 PRINT'flH I RIGHT OR WRONG"; 

1288 INPUT D$ 

1298 Dt=LEFTJ(D$, 1) 

1388 IF M="R" THBI 1346 

1318 IF M="H" THEN 488 

1328 PRINT"/// TYPE THE HORD 'RIGHT' OR THE HORD 'WRONG'. ' 

1338 GOTO 1276 

1348 A(2)=A(2)+1 

1358 IF 81=1 THEN 1416 

1368 ei=INT<5*RND(0>+i) 

1378 IF Z3=0 THEN 1396 

1388 Z2=G 

1398 B2=Bi+Bl+i 

1468 GOTO 1438 

1418 Bi=RND<6> 

1428 B2=B14B1 

1436 PR1NTMY GOBS OF THE SUM IS"; 82; CHRK8);" " 

1446 PRINT'ffl I RIGHT OR WRONG"; 

1458 INPUT D* 

1468 D*=LEFT«W, 1) 

1476 IF D*="R" THEN 1516 

1486 IF D*="U" THEN 488 

1498 PRINT"/// TYPE THE HORD 'RIGHT' OR THE WORD 'WRONG' 
1568 GOTO 1448 
1518 A(2)=fl(2>+2 

1526 IF 8202 THEN 1568 
1538 Ci=i 

1548 C2=l 

1558 GOTO 1826 

1568 IF B203 THEN 1688 

1578 Cl=i 

1580 C2=2 

1598 GOTO 1828 

1688 IF B2011 THEN 1648 

1616 Cl=5 

1626 C2=6 

1638 GOTO 1828 

1648 IF 02O12 THEN 1688 

1658 Cl=6 

1668 C2=6 

1678 GOTO 1826 

1686 IF B2>7 THEN 1758 

1638 K1=B2-1 

1768 C1=INT<K1*RND(6H1) 

1718 IF Z4=0 THEN 1738 

1728 Z4=6 

1736 C2=B2-Ci 

1740 GOTO 1828 

1758 Kl=B2-6 

1766 K3=Ki-i 

1770 K2=?-Ki 

1788 Cl=( INT(K2*RND(8HiHK3> 

1736 IF 25=8 THBI 1816 

1888 Z5=8 

1816 C2=B2-C1 

1828 PRINTMY GUESS IS THAT THE NUMBERS ARE"; CI; "A*"; C2; CHR$(8);" 

1838 PRINT'flH I RIGHT OR WRONG"; 

1848 INPUT D* 

1858 D*=LEFT$(M, 1) 

1868 IF W="R" THEN 1388 

1878 IF 0*="N" THEN 408 

1888 PRINT"/// TYPE THE HORD 'RIGHT' OR THE WORD 'HRONG' " 

1898 GOTO 1838 

1968 R(2>=A(2H2 

1916 GOTO 488 

1928 IF A(l)OA(2)THEN 1358 

1938 IF J208 THEN 1128 

1940 GOTO 610 

1358 IF H(i»fl(2)THEN 2866 

1968 PRINT 

1978 PRINT"! HIH! ANOTHER GAME"; 



1988 INPUT CJ 

1990 C*=LEFT$<C$, 1) 

2688 IF C*="Y" THEN 240 

2618 IF C*="N" THEN 2648 

2828 PRINT"/// TYPE THE HORD 'YES' OR THE I 

2838 GOTO 1988 

2846 PRINT'SEE YOU LATER. " 

2656 END 

2868 PRINT 

2870 PRINT"YOU HIH! ANOTHER GAME"; 

2888 GOTO 1988 



' 'NO' 
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Bocce 



BOCCE 
COPYRIGHT 1379 CREATIVE COMPUTING MORRISTOHN, NJ 



This program simulates the Italian 
game of Bocce also called "lawn 
bowls" or just "bowls." 

The instructions starting at the line 
1280 explain the game. 

This is the four-ball version (Q=5). 
Allowing more balls in the game 
(raising Q) will increase central 
processing time since the chances of 
collision will rise and the resulting 
position of each ball has to be recom- 
puted. However, the delay is short and 
we routinely play six to eight balls. 
Increasing Q beyond 9 will require 
redimensioning the arrays at line 80. 

It is important to remember that the 
object is to get close to the jack and not 
to hit it. Upon collision, the jack will 
move off more quickly than a ball 
because it is smaller and lighter. A 
careless shot can turn a good game 
into a disaster. 

It requires some imagination to play 
the game well. It goes best if you 
imagine that you are standing at 
coordinates 0,0 and are looking out 
along the X-axis. 

This game and the description above 
were written by Victor Bendall of 
Eastern Kentucky University. It 
originally appeared in Creative Com- 
puting, Jul/Aug 1977. 



DO YOU ICED INSTRUCTIONS? YES. 

0l8 

IN THIS GAME YOU ROLL 4 BRLL5 SUCCESSIVELY RT R TARGET 
BULL (CALLED fl JACK). THE OBJECT IS TO GET THE BROS RS CLOSE 
TO THE JACK RS POSSIBLE. THE BRLLS RRE 16 CH. IN DIftHETER AND 
ARE WEIGHTED SO THAT THEY ROLL IN A CURVE YOU HILL HAVE TO 
ROLL THffl AT RN ANGLE TO THE LINE FROH YOU AT COORDINATES 8,8 
TO THE JRCK AT COORDINATES X,Y. A POSITIVE ANGLE HILL HAKE 
THE BALL CURVE CLOCKWISE. R NEGATIVE ANGLE HILL HAKE IT CURVE 
ANTI-CLOCKHISE. THE JRCK IS 4 CM. HIDE AND HILL ROLL 
STRAIGHT IF YOU HIT IT. BALLS HIT BY YOUR THROWN BALL HRY 
CURVE IN EITHER DIRECTION. 

HINT. TRY RN INITIAL VELOCITY OF 588 AND RH ANGLE OF 18. 
PRESS ANY KEY TO CONTINUE 

0l3 

THE JACK IS LOCATED RT 2624,-21 
BALL1 



VELXITY7 588 
ANGLE? 56. 



els ■ 



BALL VELOCITY = 2 87864 

JACK AT COORDINATES 2624,-21 

BALL 1 AT COORDINATES 2434,-495 IT IS 563. 662 FROM THE JRCK 

YECH! OVER 16 FEET RHAY! 
SHORT AND TO THE RIGHT. 

BRLL2 



VELOCITY? 568 
ANGLE? 51. 



• els ■ 



BALL VELXITY = 2 67864 

JACK AT COORDINATES 2624,-21 

BALL 1 AT COORDINATES 2434,-495 IT IS 583. 662 FROH THE JACK 

BALL 2 AT COORDINATES 2434,-495 IT IS 563. 662 FROH THE JACK 

YECH! OVER 16 FEET AHRY! 
SHORT AND TO THE RIGHT. 



BALL3 



VELOCITY? 528 
ANGLE? 68. 



CIS ■ 



BALL VELOCITY = 2 35658 

JACK AT COORDINATES 2624,-21 

BALL 1 AT COORDINATES 2434,-495 IT IS 563. 662 FROH THE JACK 

BALL 2 AT COORDINATES 2434,-495 IT IS 563. 662 FROH THE JACK 

BRLL 3 RT COORDINATES 2633,-535 IT IS 567. 879 FROH THE JACK 

YECH! OVER 16 FEET AHRY! 
LONG RND TO THE RIGHT. 

BRLL4 




VELOCITY? 5 
ANGLE? 5. 



els ■ 



BALL VELOCITY = . 6788862 

JRCK RT COORDINATES 2624,-21 

BALL 1 RT COORDINATES 2434, -.35 IT IS 583.662 FROM THE JRCK 

BRLL 2 RT COORDINATES 2434,-495 IT IS 563. 662 FROH THE JACK 

BALL 3 AT COORDINATES 2633,-535 IT IS 587. 879 FROM THE JACK 

BRLL 4 RT COORDINATES 8,-1 IT IS 2617. 68 FROM THE JRCK 

YECH! OVER 85 FEET RHAY! 
SHORT RND TO THE LEFT. 



THE TOTAL DISTRNCE OF ALL BRLLS FROH THE JACK IS 583. 662 CH 
DON'T PLRY THIS GRHE FOR HONEY! ! 



CARE TO TRY AGAIN? NO. 



■ cis 
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leas 

28 PRINT 9 413, 'BOCCE' 

39 PRINT 

49 PRINT TRB(7>'COPYRIGHT 1379 CREATIVE COMPUTING KORRISTOHL- NJ' 

58 PRINT 8 968, "; 

68 INPUT-DO VOU NEED INSTRUCTIONS"; 1$ 

78 92=5 

88DIHBK9), B1K9), 0!(9), V!(9), X!(9>, Y!(9) 

98 IF LEFTOI*, i)='V TKEN GOSUB 1276 

198 Pi!=3. 14159 

118 Sl!=8 

12BS2!=8 

138B!=-49.3 

148 X2(i)=INT(2888+768*RND(6)) 

158 YM>=INT(298-468*RM>(8)) 

168 OS 

178 PRINT"™ JOCK IS LOCATED AT"; SKI); CKR$<8); ", •; YWi); CHS(8);-. " 

1B8 PRINT 

198 FOR B!=2 TO 82 

288 JX=PX 

218 GOSB 968 

228 NEXT PX 

238 FOR JX=2 TO Q 

248 Di!=Dl!+D!U2) 

258 NEXT JX 

268 PRINT 

278 PRIHT'TKE TOTRL DISTANCE OF Hi BROS FROH THE JACK IS'; 

288 PRINT Di!; "CK. " 

298 IF D1!<QH2 TUN PRINT"HRGNIFICEHT BOM.ING! HOT HI EVE!!" 

388 IF WKQH2 THEN 278 

318 IF Di!<2*QH2 TKEN PRINT'EXCELLENT, BUT COULD BE BETTER. *; GOTO 378 

328 IF Dl!<3*ea2 TKEN PRINT-GOOD, BUT (EEDS SOKE IKPROYEHENT. ■ ; GOTO 378 

338 IF D1!<6»0H2 TIEN PRIHT'FHIR - YOU NEED BORE PRACTICE "• GOTO 378 

348 IF Di!<i8*8H2 TKEN PRIKTPOOR - TRV TO BE MORE CONSISTENT. " : GOTO 278 

358 IF Dl!<28*fia2 THEN PR1HT-YOUR GHC ICEDS LOTS OF HORK ": GOTO 278 

368 PRINTDON'T PLRV THIS GAKE FOR HOIEV!!* 

379 FOR J2=i TO 62 

388BKJM 

398 B1!(J2>=8 

488D!(J!!)=e 

418 Y!(J2)=8 

428 X!U2>=8 

438 V!<J2)=8 

448 NEXT SX 

459 PRINT 

468 INHJT'CflRE TO TRV AGAIN"; Y$ 

478 PRINT 

488 IF LEFT$(Y$, 1)="V THEN 118 

498 GOTO 1438 

588KlX=-28 

518 IF JZ=1 THEN K1X=8 

528 Ftl!=a!*C0S(B!(JK))-«lX»£05((Pl!/2HB!OZ)) 

536R2!=fl!*SIK<B!<J2»+Kl&SlN«Pi!/2)«B!<JX» 

548 S3!=V!(JX)*C0S(B!(X,!))*.95Tt25E-83»fll! 

558 S4!=V!(K)*SIN(B!(JX)H95*125E-83*fl2! 

568 B!(J»=ATN((V!(JX)*S1N(B!(J2)>+A2!*- 85)/<V!U2)*CGS(B!U2»+Ai!*. 85)) 

578 IF BH<JZK8 TVEH S4i=-S4i 

588 S5!=S1!*S2! 

598 S6!=S2!+S4! 

688 IF JX=1 TKEN 628 

618 IF ABS(S5!-X!(1)X7 AND RBS(S6!-V!<1)><? THEN KM: GOSUB 948 

628 FOR KX=2 TO OX 

628 IF KX=JX OR X2(K2)=8 THEN 658 

648 IF ft3S<S5!-X!(t2»ae RHD ABS<S6!-YX(K»)<18 THEN GOSUB 858 

656 NEXT KX 

668 PRIHT 8 8, "BALL VELOCITY =' V!(JX) 

676 IF V!(JX)<ABS(R!*.95)THEN 728 

68BV!CJS»=V!CJXH(A!*.85> 

698 S1!=S5! 

788 S2!=S6! 

718 GOTO 588 

729 GOTO 598 



728 mm-mm+S'. 

748 VX(JZ)=VZ(JZ)+S6! 

758S1!=8 

768 S2!=8 

778S5!=8 

788S6!=8 

798 FOR U=l TO 82 

888 IF V!(L2»ABS(B!*.85)THEN JZ=LX: GOTO 588 

BIB B!(L2)=8 

828 V!(LZ)=8 

828 NEXT 12 

848 GOTO 1878 

859 BKKZ)=ATN((V/!(KZ)-S2!)/<XK<K2)-S1!)) 

868 PRINT CHR$(7)i 

878 IF JX=i TKEN V!U»=Y!OX)/5 

888 V ! ( J2)=ABS(V ! (J2)*SIH(B ! ( JK)-B ! (KX) )) 

898 V!<K2)=fK<Y!<ffi>*C0S(B!<J2)-B!<K2>>) 

988B!(J2)=((Pi!/2)*B!(KZ)) 

918 S5!=S1! 

928S6!=S2! 

926 IF KZ=i TKEN V!(KX)=5*V!(K2> 

948 IF JX=1 THEN VICH)=5«V!(ffi) 

958 RETURN 

96BPRINT'BAU';(JX-i) 

978 PRINT* " 

988 INPUT-VELOCITY'; V! OX) 

998V!(JX)=ABS(V!<JX)) 

1888 IF V!(JX»1698 TKEN PRINT'VELOCITY TOO HIGR "• GOTO 988 

1819 INPUT-BUGLE"; B1K.K) 

1828 OS 

1838 IF ABSCB1!(JX>»89 THEN PRINT'ANGLE TOO BIG ■: GOTO 588 

1848 PRINT 

1858 BKJ2)=ffiS(B!<T/!)*Pl!/188) 

1868 GOTO 588 

1876 PRINT" JACK AT COORDINATES"; XX(1); CKR$<8);",-;V«i); CKRS(8);" ■ 

1888 FOR HX=2 TO PX 

1898 D!=( S8R((YX(i)-YKKX))C2+(X2(l>-XX(KX))[2))-7 

1180 D!(KX)=D! 

1118 IFDKBTKEND!(HX)=8 

1128 PRINT'BRLL"; (KX-1); "AT COORDINATES'; XKHX); CHR»<8); ", "; YZ(HX); 

1138 PRINT "IT IS"; D! (IE); "FROH THE JACK' 

1148 NEXT HZ 

1158 PRINT 

1166 IF DUPXX18 THEN PRINT TABC15); "EXCELLENT SHOT! "; : GOTO 1216 

1178 IF D!(PZ><28 TKEN PRINT TABC15); "GOOD SHOOTING! "; : GOTO 1218 

U88 IF DKP2X3B THEN PRINT TBB(15>; "NICE TRV !"; : GOTO 1218 

1198 IF DKPX)>598 THEN PRINT TRB<5); "VECH! 0Y£R";lNT(D!(PZ)/36.48)i 

1299 IF DKK!)>568 THEN PRINTFEET AHAY!" 

1216 IF XZ(PZ)>XX(i)THEN PRIHT"LONG AM) *; 

1228 IF XX(fi!)<XZ(i>THEN PRIHT'SHORT AMD "; 

1228 IF YX(P2»Y2(i)THEN PRINT'TO THE LEFT. " 

1248 IF VZ(P2)<YX(1)TKEN PRINT'TO THE RIGHT. * 

1259 PRINT 

1269 RETURN 

1279 OS 

1288 PRINT'IN THIS GAKE VOU ROLL"; 02-1; "BALLS SUCCESSIVELY AT A TARGET" 

1298 PRINT'BBiL (CALLED A JACK). THE OBJECT IS TO GET THE BALLS AS aOSE" 

1388 PRINT'TO THE JACK AS POSSIBLE. THE BALLS ARE 16 CH. IN DIATBER AND" 

1316 PRINT'flRE SIGHTED SO THAT THEY ROLL IN A CURVE VOU HILL HAVE TO' 

1328 PRINT'ROU. THEH AT AN RNGLE TO THE LINE FROH YOU AT COORDINATES 6,8" 

1238 PRINT'TO THE JACK AT COORDINATES X.V. A POSITIVE ANGLE HILL KRKE" 

1346 PRIHT'THE BALL CURVE aOCKHISE. A NEGATIVE ANGLE HILL HAKE IT CURVE" 

1358 PRINT'ANTI-aOCKHISE. TKE JACK IS 4 CM. HIDE AM) HILL ROLL" 

1268 PRIHT'STRAIGHT IF YOU HIT IT. BALLS HIT BY YOUR THRO* BALL HAY" 

1378 PRIHT'CURVE IN EITHER DIRECTION. ' 

1288 PRINT 

1398 PRINT'HINT. TRY AN INITIAL VELOCITY OF 588 AND AN ANGLE OF 16. ' 

1468 PRINT t 979, "PRESS ANY KEY TO CONTINUE-; 

1418 IF IKKEYI =" THEN 1418 

1428 RETURN 

1428 END 
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Boga II 




A Boga is a bogus animal or mythical 
beast in the Hurkle family. Like a 
Hurkle, the Boga hides on a grid with 
dimensions up to16 by 16. It sends out 
clues that tell you which direction to 
move from where you are to where it is. 
However, one major difference 
between a Boga and a Hurkle is the 
Boga is also seeking you out at the 
same time you are looking for it. You 
don't have to tell it which directions to 
go after each of its guesses to get 
closer to you. It apparently has a very 
good nose and can tell on its own. 
However, it plays fairly and gives you 
the first guess, and then it takes its 
guess. Guesses continue alternately 
until one or the other, human or boga, 
find the opposing player. At the begin- 
ning of the game, you may print out the 
grid if you wish to make your guessing 
job slightly easier. Remember, direc- 
tions in this game correspond to the 
diagram; that is, north is up and east is 
to the right. 

This game was created by David 
Strickler. 



N 



W 



BOGfl II 
COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHH, NJ 
els 



DO VOU NEED INSTRUCTIONS? YES. 

cis 

THE BOGfl IS HIDING ON A GRID (YOU SPECIFY THE LENGTH 
AND WIDTH). TRY TO GUESS HIS POSITION USING THE HINTS 
I GIVE YOU. EACH GUESS IS TWO NUMBERS SEPARATED BY 
A COMMA. PLEASE KEEP IN HIND THAT THE BOGA IS ALSO 
SEARCHING FOR YOU! ! ! ! 



HOW BIG SHOULD THE GRID BE (12 NFMMUM)? 18. 


els 




1 




B123 4567 890 




*********** 




1 *********** 




2 *********** 




3 *********** 




4 *********** ]- 


— THE GRID 


5 *********** 




6 *********** 




7 *********** 




8 *********** 




9 *********** 




18 *********** 




els — 




CHOOSE YOUR POSITION? 4,7 




THE BOGA PICKS HIS POSITION! 




GUESS # i ? 7,7. 




YOU GUESSED 7 , 7. 




HE'S MORE TO THE WEST. 




THE BOGA GUESSES 5 , 5. 




GUESS 1 2 i 7,5. 




YOU GUESSED 7 , 5. 




HE'S MORE TO THE HEST. 




THE BOGA GUESSES 4 , 7. 





THE BOGfl GUESSED YOUR POSITION IN 2 DUESS(ES)! 

THE BOGA WAS AT 7 , 4. 

DO YOU WANT TO PLAY AGAIN? YES 

HOW BIG SHOULD THE GRID BE (12 MAXIMUM)? 5. 



■ els ■ 



81234 5 

9 ****** 

1 ****** 

2 ****** 

3 ****** i the grid 

4 ****** 

5 ****** 



■ CIS ■ 



CHOOSE YOUR POSITION? 2,4 
THE BOGA PICKS HIS POSITION! 
CHESS « i ■> 5,5. 

C | 

YOU GUESSED 5 , 5. 

HE'S MORE TO THE NORTHWEST. 
THE BOGA GUESSES 2 , 2. 

GUESS » 2 i 2,3. 



YOU GUESSED 2 , 3. 

HE'S MORE TO THE WEST. 
THE BOGfl GUESSES 2 , 4. 

THE BOGA GUESSED YOUR POSITION IN 2 GUESS(ES)! 

THE BOGfl WAS AT 2 , 2. 

DO YOU WANT TO KAY AGAIN? NO. 



• els ■ 
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18 OS. PRIHT6413, "BOGR II" 

26 PRINT. PRINT TRB<7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOUN, NJ' 

38 CLERR 288: PR1NT8968, ";: INPUT 'DO YOU NEED INSTRUCTIONS"; I* 

40 IF LEFT$<»,i)0"V" THEN aS: GOTO 129 

58 aS: PRINT929, "BOGR II": PRINT 

68 PRINT " THE BOGR IS HIDING ON R GRID (YOU SPECIFY THE LENGTH" 

78 PRINT "AND WIDTH). TRY TO GUESS HIS POSITION USING THE HINTS" 

88 PRINT "I GIVE YOU. ERCH GUESS IS TWO NUWERS SEPRRHTED BY" 

98 PRINT "A COMfl. PLERSE KEEP IN HIND THAT THE BOGfi IS ALSO" 

188 PRINT "SERRCHING FOR YOU!!!!" 

118 PRINT: PRINT 

128 U=0 

138 K=i 

148 F=8 

158 INPUT "HOH BIG SHOULD THE GRID BE <12 KflXIHUfl)";G 

168 IF G>12 OR Ga THEN PRINT: GOTO 158 

176 S=G 

188 REM: PRINTS THE GRID 

198 0S 

208fl*=" 

218 IF GO.B THEN 278 

220 FOR X=18 TO G 

238 X1=INKX/18> 

248 fB=fi*+CHR«Xi+48>+" " 

258KEXT X 

268 PRINT TAB(25);R$ 

278 R*=" 

288 FOR X=B TO G 

290 Xl=X-IMTOV18)*ie 

388 Rt=flt+CHR«<Xi+48)+" " 

316 NEXT X 

328 PRINT TAB(5>;fl* 

338 «="" 

248 FOR X=B TO G 

258 A$=R$+°* " 

368 NEXT X 

378 FOR X=8 TO G 

388 PRINT USING "«";X; : PRINTTR8<5>; f» 

398 NEXT X 

488 PRINT8INTCX/2+l)*64+Xt2*18, CHR$<93>;" THE GRID"; 

418 FOR Tl=l TO 2588: t€XT: aS 

428 H=l 

438 INfUT "CHOOSE YOUR POSITION"; XI, Yl 

448 IF XDG OR Xl<8 OR YDG OR Yl<8 THEN PRINT: GOTO 428 

458 PRINT "THE BOGfl PICKS HIS POSITION!" 

468 X2=INTCRND(8)*G) 

478 Y2=INT(RND(8)*G) 

488 PRINT "GUESS «"IC 

498 INPUT X3,Y3: CLS 

588 IF X3>G OR X3<8 OR Y3>G OR Y3<6 THEN PRINT: GOTO 488 

516 K=K+i 

528 F=F+1 

538 IF K=16 THEN 1638 

548 IF ABSCX3-X2)rtBS(Y3-Y2>=8 THEN 1838 

558 PRINT "YOU GUESSED"X3", "Y3; CHR$(8); ". " 

568 PRINT 

578 PRINT "HE'S HORE TO THE "; 



588 IF X2=X3 THEN 638 

598 IF X2>X3 THEN 626 

688 PRINT "NORTH"; 

618 GOTO 628 

628 PRINT "SOUTH"; 

630 IF Y2=Y3 THEN 690 

640 IF Y2>Y3 THEN 670 

658 PRINT "WEST"; 

668 GOTO 698 

678 PRINT "ERST"; 

688 REH: LINES 788-978 AND 1118-li50=8OGflS GUESSING FORHULfl 

698 PRINT" ": IF H=8 THEN 728 

788X4=INT(.5*S) 

718 Y4=INT(. 5*S> 

728 PRINT 'THE BOGfl GUESSES"X4", "Y4; CHR*<8); " " 

728 U=U+1 

740 PRINT "" 

758 Q=RBSCY1-Y4)+RBS(X1-X4) 

760 IF 0=8 THEN 978 

778 H=8 

788 IF Y4=Y1 THEN 878 

798 R=l 

888 IF RBSCY4-Y1K2 THEN 828 

818 GOSUB 1128 

828 IF Y4<Yi THEN 856 

838 Y4=INT(ABS(Y4-fl» 

848 GOTO 878 

858 Y4=INT(RB5<Y4+R)> 

868 IF Y4>G THEN 1898 

878 IF X4=Xi THEN 968 

888 R=l 

898 IF RBS(X4-X1)<2 THEN 918 

988 GOSUB 1128 

918 IF X4<X1 THEN 946 

920 X4=1NT(RBS(X4-R» 

930 GOTO 968 

948 X4=1NT(RBS<X4+R» 

958 IF X4>G THEN 1118 

968 GOTO 488 

978 PRINT "THE BOGA GUESSED YOUR POSITION IN"U"GUESS(ES) ! " 

988 PRINT 

938 GOTO 1848 

1888 PRINT "YOU GUESSED THE BOGR'S POSITION IN"F"GUESS<E5> ! " 

1816 PRINT 

1828 GOTO 1848 

1838 PRINT "YOU USED UP ALL OF YOUR GUESSES. ' 

1840 PRINT "THE BOGfl HRS RT"X2", "Y2i CHRK8); « " 

1058 PRINT 

1868 INPUT "DO YOU NRNT TO PLflV RGflIN";Q* 

1878 IF LEFT«Q*,i)="Y" THEN 128 

1888 GOTO 1148 

1898 Y4=. 5*G 

1188 GOTO 878 

1118 X4= 5*G 

1128 ft=2 

1138 RETURN 

1148 END 



Bombrun 



Bomb Run is an extremely accu- 
rate simulation of an aircraft drop- 
ping a bomb on a very small target. 
You may specify whether the aircraft 
is climbing, diving, and the angle in 
degrees. You may specify speed in 
feet per second; you may also 
specify at what point you wish to 
drop the bomb. The program gives 
you four passes over the target. 

A perfect hit is possible but 
extremely difficult to achieve. A hit 
within 300 feet of the target is 
considered "threatening" while hits 
outside of that range may be consid- 
ered a negative commentary on your 
knowledge of physics. 

This program was originally writ- 
ten by Jim Prelesnik. 

This program uses TRS-80 graph- 
ics which do not reproduce well on a 
line printer. Therefore the sample run 
does not give a true representation of 
the program. The only way this 
program can be truly appreciated is 
to run it. 



ELRPSED TIME 6 SECONDS VELOCITY 746. 899 FT/SEC 

PRESENT ANGLE LEVEL 8 DEG ALTITUDE 118. 821 FEET 

RESULTANT ANGLE. . . DEG LEVEL DISTANCE FROM SITE. . 4580 FEET 

ETA 6. 8249 SEC 

MAINTAIN RESULTANT ANGLE? VES. STANDING BV. 

els 



ELAPSED TIME 

PRESENT ANGLE. . 
RESULTANT ANGLE. . 
ETA 

flIRSPEED? 8B8_ 



8 SECONDS 

LEVEL 8 DEG 

8 DEG LEVEL 

6. 8249 SEC 



VELOCITV 746. 899 FT/SEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE. . 4588 FEET 



els • 



ELAPSED TIME 1 SECOND 

PRESENT ANGLE LEVEL DEG 

RESULTANT ANGLE. . . DEG LEVEL 
ETA 4. 6258 SEC 

BOMB COMMAND? STAND BV. 



VELOCITV 808. 800 FT/SEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE . . 3780 FEET 



ELAPSED TIME 

PRESENT ANGLE. . . 
RESULTANT RNGLE. 
ETA 



1 SECOND 

LEVEL 8 DEG 

8 DEG LEVEL 

4. 6250 SEC 



VELOCITV. 888. 088 FT/SEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE . . 3788 FEET 



BOMB RUN 
COPVRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 



■ els • 



DO VOU NEED INSTRUCTIONS? V. 



■ els ■ 



VOU HAVE THE OPTION OF MAKING FOUR PASSES OVER THE TARGET 
HITH THE ABILITV TO DROP A BOMB ONCE DURING EACH OF 
THESE PASSES. ALTITUDE CHANGES MAVBE MADE THROUGH THE 
'CLIMB/DIVE' COMMAND BV PRINTING 'CLIMB' OR 'DIVE', FOL- 
LOWED BV A COMMA AND THE DESIRED ANGLE (IN DEGREES). NEW 
VELOCITIES (RANGING FROM 388 TO 900 FEET PER SECOND) MflV 
BE INPUT AFTER THE 'AIRSPEED' OUESTION MARK. 'CLIMB/DIVE' 
ANGLES, VARVING FROM 8 TO 15 DEGREES, MILL ADD AS SPEC- 
IFIED BV 'CLIMB' OR 'DIVE' COMMANDS TO VIELD A NET INCLIN- 
ATION/DECLINATION ANGLE BETWEEN TO 68 DEGREES, CLIMBING 
OR DIVING. A MINIMUM ALTITUDE OF 108 FEET MUST ALSO BE 
MAINTAINED. WILLFULLY EXCEEDING ANV OF THE MAX. /MIN. SPECS 
HILL RESULT IN THE CRASH OF YOUR BOMBER. ALSO, A BOMB 
PRESS ANV KEY TO CONTINUE 



COMMAND OF 'DROP' DURING A DIVE WILL GIVE YOUR BOMB AN 
INITIAL DOWNWARD VELOCITV, SHORTENING THE DROP TIME, AS A 
'CLIMB' COMMAND WILL LENGTHEN THIS TIME. THE BOMB WILL BE 
LAUNCHED IMMEDIATELY FOLLOWING THE MOST RECENT 'STATS' READ- 
OUT UPON 'DROP' COMMAND, AND WILL BE HELD FOR FURTHER 
POSITIONING INFORMATION UPON THE COMMAND 'STAND BY' THE 
TARGET IS 1 FOOT IN DIAMETER. GOOD LUCK! 

PRESS ANY KEY TO CONTINUE 
els 



ELAPSED TIME. 8 SECONDS 

PRESENT ANGLE LEVEL DEG 

RESULTANT ANGLE. . . 8 DEG LEVEL 

ETA. . . 6. 8249 SEC 

BOMB COMMAND? STAND BY. 
els 



VELOCITV 746. 899 FT/SEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE. . . 4508 FEET 



HRINTAIN RESULTANT ANGLE? NO_ 

els — 



STANDING BY. 



ELAPSED TIME 1 SECOND 

PRESENT ANGLE LEVEL DEG 

RESULTANT ANGLE. . . DEG LEVEL 
ETA 4. 6258 SEC 

'CLIMB/DIVE' COMMAND? CLIMB, 18. 
els 



VELOCITY 880. 088 FT/SEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE. . . 3780 FEET 



ELAPSED TIME 1 SECOND 

PRESENT ANGLE LEVEL 8 DEG 

RESULTANT ANGLE. . . DEG LEVEL 
ETA 4. 6250 SEC 



VELOCITY 888. 088 FT/SEC 

ALTITUDE 118. 821 FEET 

DISTANCE FROM SITE. . . 3780 FEET 



AIRSPEED? 608- 



■ els • 



ELAPSED TIME 2 SECONDS VELOCITY 680. 888 FT/SEC 

PRESENT ANGLE CLIMB IB DEG ALTITUDE 223. 809 FEET 

RESULTANT ANGLE 10 DEG CLIMBING DISTANCE FROM SITE... 3189 FEET 
ETA. 5. 2618 SEC 



BOMB COMMAND? DROP. 



■ els ■ 



ELAPSED TIME 2 SECONDS VELOCITV 608. 088 FT/SEC 

PRESENT ANGLE CLIMB 18 DEG ALTITUDE 223. 889 FEET 

RESULTANT ANGLE 18 DEG CLIMBING DISTANCE FROM SITE... 3169 FEET 

ETA 5. 2618 SEC 



BOMB DROPPED. 
TIHE TO EXPLOSION. 
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8. 16732 SECONDS 
- els 




RRPSED TIME 2 SECONDS VELOCITV 600. 000 FTVSEC 

PRESENT ANGLE CLIMB 10 DEG ALTITUDE 223. 089 FEET 

RESULTANT ANGLE 10 DEG CLIMBING DISTANCE FROM SITE. . . 3109 FEET 
ETA 5. 2618 SEC 

THE BOMB LANDED 1716. S3 FEET BEVOND THE TARGET'S CENTER. 
VOU HAVE THUS FAR COMPLETED 1 RUN. WOULD VOU LIKE TO 
MAKE ANOTHER PASS? N. 

DURING VOUR 1-PASS 80MBRUN, VOU FAILED TO EVEN 
THREATEN THE TARGET WITH A HIT. BETTER LUCK NEXT TIME. 

LOOK OVER THE PHVSICS LAMS GOVERNING FALLING BODIES, 
AND RETURN TO PLAV AGAIN SOON. 



18 OS: CLEAR 598: CR*=STRING$(5, 148>+CHR$(143) 

28 F*=" Ut. M" 

38 PRINT8412, "BOMB RUN" 

48 PRINT: PRINT TRB(7) "COPVRIGHT 1979 CREATIVE COMPUTING HORRISTOUN, NJ" 

58 PRINT8968, ""; • INPUT "00 VOU NEED INSTRUCTIOHS"; I* 

68 X5=3888 

78 IF LEFT*(I*,i)="V" THEN 88 ELSE GOTO 338 

88 OS: PRINT TA£(28>; "BONE RUN'- PRINT 

98 PRINT "VOU HAVE THE OPTION OF HIKING FOUR PASSES OVER THE TARGET* 

188 PRINT "WITH THE ABILITV TO DROP A BOHB ONCE DURING EACH OF" 

118 PRINT "THESE PASSES. ALTITUDE CHANGES MAV BE HADE THROUGH THE" 

128 PRINT "'CLIM&'DIVE' COMMAND BV PRINTING 'CLIMB' OR 'DIVE'. FOL-" 

138 PRINT "LOWED BV A COMMA AND THE DESIRED ANGLE (IN DEGREES). NEW" 

148 PRINT "VELOCITIES (RANGING FROM 388 TO 988 FEET PER SECOND) HAV" 

156 PRINT "BE INPUT AFTER THE 'AIRSPEED' OlESTION MARK. 'CLIMB/DIVE'" 

168 PRINT "ANGLES, VARV1HG FROM 8 TO 15 DEGREES, HILL ADD AS SPEC-" 

178 PRINT "IFIEO BV 'CLIMB' OR 'DIVE' COMMANDS TO VIED A NET INCLIN-" 

188 PRINT "ATION/DECLINATION ANGLE BETWEEN 8 TO 68 DEGREES, CLIMBING' 

198 PRINT "OR DIVING. A MINIMUM ALTITUDE OF 188 FEET MUST ALSO BE" 

288 PRINT 'MAINTAINED. MILLFULLV EXCEEDING RNV OF THE MAX. /MM SPECS" 

218 PRINT "HILL RESULT IN THE CRASH OF TOUR BOMBER. ALSO, A BOHB" 

228 PRINT6979, "PRESS HNV KEV TO CONTINUE"; 

238 IF INKEW=" THEN 238 ELSE PRINT 8128, CHWG1); 

248 PRINT "COMMAND OF 'DROP' DURING A DIVE HILL GIVE VOUR BOMB AN" 

258 PRINT "INITIAL DOWNWARD VELOCITV, SHORTENING THE DROP TIME, AS A" 

268 PRINT "'CLIMB' COmBND HILL LENGTHEN THIS TIME THE BOHB HILL BE" 

278 PRINT "LAUNCHED IMMEDIATELY' FOLLOWING THE MOST RECENT 'STATS' READ-' 

288 PRINT "OUT UPON 'DROP' COMMAND, AND HILL BE HELD FOR FURTHER" 

298 PRINT "POSITIONING INFORMATION UPON THE COMMAND 'STAND BV' THE" 

388 PRINT "TARGET IS 1 FOOT IN DIAMETER GOOD LUCK!"- PRINT: PRINT 

318 PRINT8979, "PRESS ANV KEV TO CONTINUE"; 

328 IF INKEV*=" THEN 328 ELSE CLS 

338 CLS: 21=1888 

348 22=1066 

358 23=1886 

368 24=1888 

378 PRINT8448, STRINGK64, 176) : PRINT8448, CHRK188); CHR«19i>; CHRK188); 

2B8R=R+1 

398 Hl=8 

408X2=8 

418 W3=8 

428 W4=6 

438 T=8 

448A1=8 

458 B=6 

468 V1=RND(8) 

478 V=V1*1686 

488 IF VG68 OR V)988 THEN 468 

498 V1=RHD(8) 

588 V=Vi*588 

518 IF Va88 THEN49B 

528 X=458B 

53BE=!CV 

548 GOTO 1346 

558 m=e 



568 W2=8 

570W3=8 

588H4=8 

598 PRINT8832, "BOHB COMMAND"; CKR*Gi); 

688 INPUT C* 

618 IF LEFT$(C*,1)="S" THEN 628 ELSE IF LEFT*(C$, i)="D" THEN 1638 

628 PRINT8864, "STANDING BV. "; 

638 GOTO 678 

648 A=A-M 

658 T=T-1 

668 GOTO 788 

678 PRINT8B32, "MAINTAIN RESULTANT ANGLE"; 

688 INPUT M 

698 IF LEFT$(P*,1)="N" THEN 788 ELSE IF LEFTKPJ, 1)="V" THEN 1858 

788 PRINT8832, "CLIMB/DIVE' COMMAND"; CHR*(31); 

718 INPUT B$,A1 

728 IF Al<8 THEN 758 

738 IF Al>15 THEN 798 

748 GOTO 858 

758 PR1NT8832, "ANGLE INPUT MUST BE POSITVE. IF NECESSARV, CHANGE THE" 

768 PRINT "'DIVE' COMMAND TO 'CLIMB', OR VICE VERSA ■ 

778 FOR 1=1 TO 2888: NEXT: PRINT8832, CHRJG1) 

788 GOTO 788 

798 m=m+i 

888 IF Hl=2 THEN 2218 

818 PRINT6832, "VOUR BOMBER CANNOT TOLERATE THE STRESS CAUSED BV ANGLE" 

828 PRINT "INPUTS EXCEEDING 15 DEGREES. RECONSIDER VOUR CHOICE. ' 

838 FOR 1=1 TO 2888: NEXT: PRINT8832, CHR*G1) 

848 GOTO 788 

850 IF LEFT*(AJ,i)="C" THEN 878 

868 Al=-Bi 

878 A=A*B1 

888 IF B<-68 THEN 918 

898 IF B>68 THEN 988 

988 GOTO 1068 

918 H2=M2+1 

928 IF H2=2 THEN 2258 

938 PRINT8832, "VOUR PRESENT 'DIVE' COMMA!© HILL EXCEED THE HBXIMUN RE-" 

948 PRINT "SULTANT DIVE ANGLE OF 68 DEGREES, CAUSING AN IRREVERSIBLE" 

958 PRINT "NOSEDIVE. RECONSIDER VOUR CHOICE "; 

968 FOR 1=1 TO 2588: NEXT: PRINT8832, CHRK31) 

978 GOTO 648 

988 W34TM 

998 IF W3=2 THEN 2298 

1688 PRINT883i "VOUR PRESENT 'CLIMB' COMMAND HILL EXCEED THE MAXIMUN RE-" 

1816 PRINT "SULTANT CLIMB ANGLE OF 66 DEGREES, CAUSING VOUR ENGINES" 

1828 PRINT "TO FAIL AND VOUR PLANE TO CRASH RECONSIDER VOUR CHOICE"; 

1838 FOR 1=1 TO 2566: NEXT: PRINTC832, CHRK31) 

1648 GOTO 648 

1858 REM 

1868 PRINT8832, "AIRSPEED"; CHRJG1); 

1878 INPUT V 

1888 IF V>986 THEN 1118 

1698 IF VC388 THEN 1158 

1186 GOTO 1218 

1118 PRINT6832, "VOUR BOMBER ISN'T CAPABLE OF ATTAINING THAT VELOCITV. " 

1128 PRINT "INPUT AN AIRSPEED LESS THAN 968 FEET PER SECOND. "; 

1136 FOR 1=1 TO 2888: NEXT: PRINT8832, CRMG1) 

1140 GOTO 1868 

1158 H4=W4+1 

1168 IF H4=2 THEN 2338 

1178 PRINT8832, "IF VOUR VELOCITV ISN'T INCREASED IMMEDIATELY VOUR BOMBER* 

1188 PRINT "WILL FALL TO EARTH AND BE DESTROYED. "; 

1198 FOR 1=1 TO 2888: NEXT: PRINT8832, CHR«3i> 

1288 GOTO 1868 

1218 T=T+1 

1228 B=B*3. 14159/188 

1238 V=V+¥*SIN(B) 

1248 IF V>188 THEN 1318 

1258 W5=H5+1 

1268 IF W5=2 THEN 2376 

1276 PRINTG832, "IF VOUR ALTITUTE ISN'T INCREASED IMMEDIATELY TO A MIN-" 

1286 PRINT "IMUN OF 168 PUT, A CRASH IS IMMINENT. "; 

1298 FOR 1=1 TO 2688: NEXT: PRINT6832, CHWG1) 

1388 GOTO 646 

1318 X=X-V*COS(B) 

1328 IF X<=6 THEM 2428 

1338 E=XAV*COS(B» 

1348 IF NQT(T=i) THEN 1378 

1358 PRINT8512, "ELAPSED TIME 1 SECOND" 

1366 GOTO 1388 
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1370 PRINT8512, ""; : PRINT USING 

1386 IF H0KA1=8) THEN 1416 

1399 PRINT8576, "PRESENT ANGLE . . 

I486 GOTO 1458 

1418 IF A*="CLIMB' 

1428 PRINW6, " 

1438 GOTO 1458 

1448 PRIHT8576, "' 

1458 IF (KB THEN 14S8 

1468 IF (08 THEN 1516 

1479 PRINT&48, "RESULTRNT ANGLE. 

1488 GOTO 1528 

1498 PRINT964B, 

1598 GOTO 1528 

1516 PRINT8648, 

1528 PRINT9544, 

1538 PRINT8668, 

1548 PRIHT6S72, 

1558 PRINT900, 



'ELRPSED TIME. ttt SEa 



. LEVEL 8 DEG" 



THEN 1448 

: PRINT USING "PRESENT ANGLE DIVE 18 DEG'; -fil 



PRINT USING "PRESENT ANGLE. .... CLIMB It DEG";Ai 



8 DEG LEVEL" 

: PRINT USING ■RESULTANT ANGLE. ## DEG DIVING"; -Al 

: PRINT USING "RESULTANT ANGLE it DEG CLIMBING"; A 

: PRINT USING "VELOCITV. Hi. HI FT/SEC"; V; 

: PRINT USING "ALTITUDE »»##.««# FEET"; V; 

: PRINT USING "DISTANCE FROM SITE... Hit FEET";*; 
STRINGS, 32); 



1568 XX=INTC?-INT<Y/i68»*64+INT<X/188)+i: IF XX<8 THEN 1588 

1576 PRINT8XX, CR*; • 00=XX: GOTO 1688 

1588 PRINT815,"Y0UR AIRCRAFT IS OFF OUR RADAR"- FOR TI=1 TO 1588: NEXT 

1598 PR1NT88, CKR*<38> 

1668 PRINT8784, ""; ■ PRINT USING "ETA ii. Mt SEC"; E 

1619 PRINT 

1628 GOTO 559 

1638 PRINT8832, "BOMB DROPPED. "; CHR* (31) 

1646 T3=(SQR((V*SIN<B»t2464. 4*Y)+V*SIN(B)>/32 2 

1658 PRINT "TIME TO EXPLOSION... ■; T3; "SECONDS"" X4=X 

1668 X=X-V*C0S(B)*T3 

1676 X=INT<X*168)/188 

1688 ON ERROR GOTO 1738: IF X5>ABS(X5) THEN X5=ABS(X5): 0R=4 

1698 FOR TI=8 TO B STEP .3: RL-«32 2*TI-V*SIN(B))[2-<V*SIN<B))t2)/64.4 

1789 DI=X4-V*C0S(B)*TI: AL=INT(fiL/ie> : AL=AL/18: DI=IHT(0I/198> 

1718 AL=V-HL*188: AL=AL/188: RESET(i+0D*2, 24-9fl*3> ; SET(i+0I*2, 24-AL*3> 

1728 004)1: OA=AL. NEXT: IF DK8 OR 0A<6 THEN 1796 RSE 1748 

1736 RESUME 1728 

1748 0D=DI*2+1: 0A=24-AL*3: SEKOD, OR-1) : SEKOD+L OA-i) 

1758SET<0D+L0A): SET(OD, Ofl-2) : SEKOD+2, OA-2) 

1768 SEKOD+2, OR): SET(OD,OA): FOR XS=1 TO 46: tCXT 

1776 RESET(0D,0A-1): RESET(OD+L OA-i) : RESEKOD+L. OA) : RESET(OD, OA-2) 

1789 RESET(0D+2,0A-2>: RESET(0D+2, OA) : RESEKOO,OA> 

1798 IF XO.5 THEN 1838 

1888 IF X>.5 THEN 1858 

1816 PRINT8832, "CONGRATULATIONS, VOU SCORED A PERFECT HIT. " 

1829 GOTO 2158 

1836 PRINT8832, "THE BOMB LANDED"; -* "FEET BEVOND THE TARGET'S CENTER. " 

1848 GOTO 1866 

1856 PRINT8832, "THE BOMB LANDED"; Xj "FEET IN FRONT OF THE TRRGET'S CENTER. " 

1868 IF R=l THEN 1988 

1876 IF R=2 THEN 1926 

1886 IF R=3 THEN 1946 

1898 IF R=4 THEN 1968 

1989 Z1=ABS(X) 

1918 GOTO 2488 

1928 Z2=ABS(X) 

1938 GOTO 2588 

1948 Z3=ABS(X) 

1959 GOTO 2528 

1968 Z4=ABSCX) 

1978 Z1=Z16(1) :Z2=Z16<2) :Z3=Z18<3) :Z4=Z18<4> 

1988 FOR 1=1 TO 1568: NEXT 

1998 FOR M=i TO 4 

2888 FOR m= 4 TO 1 STEP-1 

2819 IF 218(M)<Z16(M1) THEN Z18(M)=X5 

2926 IF M=rtL AND M=l THEN 2648 

2838 NEXT Ml 



2646 NEXT M 

2658 PRINT 

2968 IF X5<= 398 THEN 2126 

2878 CIS: PRINT "DURING VOUR"; Pj CHRJ<8); "-PASS B0K3RUN, VOU FAILED TO EVEN" 

2888 PRINT "THREATEN THE TARGET WITH A HIT. BETTER LUCK (EXT TIME " 

2898 IF LEFT*(R*,1)="H" THEN 2678 

2188 GOTO 2168 

2119 GOTO 2698 

2128 CLS: PRINT "DURING VOUR"; fc CHR«8); "-PASS BOHBRUN, VOU MANAGED TO STRIKE" 

2138 PRINT "WITHIN"; X5; "FEET OF THE TARGET. "; 

2146 PRINT 

2158 IF R$="NO" THEN 2678 

2168 PRINT "MOULD VOU LIKE TO RELOAD AND PLAV AGAIN"; 

2178 INPUT M 

2186 IF LEFT«At,i)="Y" THEN 2198 ELSE GOTO 2678 

2198 R=6 

2288 GOTO 338 

2218 CLS. PRINT "VOU TORE THE HINGS OFF OF VOUR BOMBER BV EXCEEDING THE" 

2228 PRINT "HAXIMUN ANGLE INPUT OF 15 DEGREES. NEXT TIME TAKE MV ADVICE " 

2238 H=i 

2248 GOTO 1978 

2259 CLS: PRINT "THE STEEP DIVE ANGLE DESIRED CAUSED AN IRREVERSIBLE NOSE-" 

2266 PRINT "DIVE RESULTING IN THE DESTRUCTION OF YOUR BOMBER. " 

2279 H=l 

2286 GOTO 1979 

2296 CLS: PRINT "THE ENGINES OF VOUR BOMBER FAILED WHILE CLIMBING THE" 

2399 PRINT "STEEP ANGLE INPUT DURING VOUR ANGLE COMMAND OPPORTUNITY " 

2318 (M 

2329 GOTO 1976 

2339 CLS: PRINT "THE VELOCITY OF VOUR BOMBER MRS INSUFFICIENT TO SUPPORT" 

2348 PRINT "ITS WEIGHT, AND CONSEQUENTLY IT CRASHED. " 

2356 H=l 

2368 GOTO 1978 

2378 CLS: PRINT "VOUR BOMBER FAILED TO MAINTAIN THE LOU RLTITUTE VOU DE-" 

2386 PRINT "SIRED AND SOON CRASHED. " 

2398 PRINT "BETTER LUCK NEXT TIME ■ 

2468 H=l 

2416 GOTO 1978 

2426 CLS: PRINT "YOUR BOMBER JUST PASSED UP THE TARGET, AND NEEDLESS TO" 

2438 PRINT "SAY, YOU NO LONGER THREATEN ITS EXISTRNCE " 

2446 PRINT 

2458 IF R=2 THEN 2589 

2468 IF R=3 THEN 2528 

2478 IF R=4 THEN 1978 

2486 e$="SECOHD" 

2498 GOTO 2538 

2566 8*="THIRD" 

2519 GOTO 2539 

2526 Q*="FOURTH AM) FINAL" 

2539 IF R>1 THEN 2579 

2549 PRINT "YOU HAVE THUS FAR COMPLETED 1 RUN MOULD VOU LIKE TO" 

2558 PRINT "MAKE ANOTHER PASS"; 

2568 GOTO 2598 

2578 PRINT "VOU HAVE THUS FAR COMPLETED"; Pj "RUNS. MOULD VOU LIKE TO ■ 

2589 PRINT "MAKE ANOTHER PASS"; 

2598 INPUT R$ 

2666 IF LEFT$(R*,i)="Y" THEN 2618 ELSE IF LEJTORt, 1)="N" THEN 1978 

2616 CLS 

2628 PRINT "VOUR PLANE HAS CIRCLED, AND IS HON IN POSITION TO MAKE" 

2636 PRINT "ITS "; 0$; « PA5S. ": PRINT 

2648 PRINT "ENTER 'RETURN' «N YOU ARE READY. "; 

2658 IF INKEY*=" THEN 2658 

2666 CLS: GOTO 378 

2676 PRINT: PRINT "LOOK OVER THE PHYSICS LANS GOVERNING FALLING BODIES, " 

2689 PRINT "AND RETURN TO PLAV AGAIN SOON. " 

2698 END 
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Bridge-It 



Bridge-it is a two-player pencil and 
paper logic game. One player is 
represented by X's, the other by O's. 
The X's and O's are arranged in an 
alternating grid pattern so that X's may 
be joined to one another by a line 
without crossing an O and O's may be 
joined to one another without crossing 
an X. The object of the game is for the 
X's to draw a line from the top to the 
bottom of the board. The O's must 
connect a continuous chain from the 
right to the left of the board. Players 
move alternately and may go any place 
on the grid. Any two of your symbols, 

BRIDGE IT 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



• els ■ 



DO VOU NEED INSTRUCTIONS? VES. 
cis 

THE OBJECT OF THIS GAME IS FOR VOU TO GO FROM THE LEFT 
COLUMN TO THE RIGHT COLUMN BV CONNECTING THE O'S. THE 
COMPUTER MUST GO FROM THE TOP TO THE BOTTOM BV CONNECTING 
THE X'S. 

VOU MAKE VOUR MOVES BV TVPING IN THE COORDINATES (X, V) OR 
(COLUMN, ROM) OF THE '0' VOU WISH TO MOVE FROM AFTER THE 
COMPUTER TYPES: 

VOUR MOVE FROM? 
AND BV TVPING IN THE COORDINATES OF THE '0' VOU WISH TO MOVE 
TO AFTER THE COMPUTER TVPES: 

TO? 

PRESS ANV KEV TO CONTINUE 

els 

VOU CAN MOVE EITHER VERTICALLY OR HORIZONTALLY BUT NOT 
DIAGONALLV. VOU CANNOT MOVE VERTICALLY IN EITHER THE FIRST 
COLUMN OR THE THIRTEENTH COLUMN. THE COMPUTER MILL MOVE FIRST. 

NOTE. ALL MOVES MUST BE ENTERED IN AS A TMO DIGIT NUMBER 
SUCH AS: 

02, 84 CFOR 2, 4 ETC. ) 

PRESS ANV KEV TO CONTINUE 



■ els - 



1 2 3 4 5 6 7 8 9 10 11 12 13 
13 X X X X X X 

12 0000000 

11 X X X X X X 

10 0000000 
9 X X X X X X 
80000000 
? X X X X X X 
60000000 
5 X X X X X X 
40.0 

3 X X X X X X 
200 
1 X X X X X X 

VOUR MOVE FROM — > 81, 04 TO — > 03, 04 
I MOVE FROM 2, 1 TO 2, 1 

123456789 10 11 12 13 

13 X X X X X X 

12 0000000 

11 X X X X X X 

IB 0000000 
9 X X X X X X 

80000000 
7 X X X X X X 

60000000 
5 X X X X X X 

4 0. .0.0 
3 X X X X X X 
20 00000 
1 X X X X X X 

VOUR MOVE FROM — > 03,02 TO — > 03,04 
I MOVE FROM 4 , 3 TO 4,5 
els 



either X's or O's, may be connected 
together on a given move. 

In this particular version of the game, 
the computer is your opponent. The 
computer plays the X's and you play 
the O's. The computer moves first, 
which gives it a very slight advantage. If 
you find it is too formidable an oppo- 
nent you may wish to modify the 
program to allow the player to move 
first. At any point during the game you 
may ask for a printout of the board and 
see how the play is progressing. 

This program was written by Michael 
Kass, Miles Barel, and Alan Segal. 



• cis ■ 



1 2 3 4 5 6 7 8 9 18 11 12 13 
13 X X X X X X 

12 0000000 

11 X X X X X X 

10 0000000 
9 X X X X X X 
80000000 
7 X X X X X X 
60000000 
5 X X X X X X 
40. .0 
3 X X X X X X 
20,00 

I X X X X X X 
INVALID MOVE — TRY AGAIN 

I MOVE FROM 4 , 1 TO 4,3 

els 

1 2 3 4 5 6 7 8 9 10 11 12 13 

13 X X X X X X 

12 0000000 

11 X X X X X X 

10 0000000 

9 X X X X X X 
80000000 
7 X X X X X X 
60 ... 
5 X X X X X X 
40. .0 
3 X X X X X X 
2000 
1 X X X X X X 

VOUR MOVE FROM — > 03, 86 TO — > 05, 06 

I MOVE FROM 4 , 1 TO 4,3 

els 

123456789 10 11 12 13 

13 X X X X X X 

12 0000000 

II X X X X X X 

10 0000000 
9 X X X X X X 
80000000 
7 X X X X X X 
60 0..0.0 
5 X X X X X X 
40.0 
3 XX X X X X 
200 
1 X X X X X X 

VOUR MOVE FROM — > 05, 04 TO — > 85, 06 
I HOVE FROM 6 , 5 TO 6,7 
els 
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CIS 

1 2 3 4 5 6 7 8 9 18 11 12 13 
13 X X X X X X 

12 0000000 

11 X X X X X X 

18 0000000 
9 X X X X X X 

80 0.0 

7 X X X X X X 

60 0.0 

5 X X X X X X 

4 ... 
3 X X X X X X 
20000000 
1 X X X X X X 

YOUR MOVE FROM — > 05,88 TO — > 87,88 
I MOVE FROM 6 , 3 TO 6,5 

els 

1 2 3 4 5 6 7 8 9 18 11 12 13 

13 X X X X X X 

12 0000000 

11 X X X X X X 
18 0.0 

9 X X X X X X 

80 0.. 0.0 

7 X X X X X X 

60 0.. 

5 X XX X X X 
40. .0.00 
3 X X X X X X 
20 00 
1 X X X X X X 

VOUR MOVE FROM — > 87,18 TO — > 69,18 
I MOVE FROM 8 , 7 TO 8,9 

els 

1 2 3 4 5 6 7 8 9 18 11 12 13 

13 X X X X X X 

12 0000000 

11 X X X X X X 

18 0..0 

9 X X X X X X 

80 0..00 

7 X X X X X X 

60 0..0 

5 X X X X X X 

40. .0 

3 X X X X X X 

20 00 

1 X X X X X X 

VOUR MOVE FROM — > 89, 08 TO — > 89, 18 

I MOVE FROM 18 , 9 TO 10 , 11 

els 

1 2 3 4 5 6 7 8 9 IB 11 12 13 

13 X X X X X X 

12 0000000 
11 X X X X X X 

18 0.0 

9 X X X X X X 

80 0.. 

7 X X X X X X 

60 0..00 

5 X X X X X X 

40.00 

3 X X X X X X 

200 

1 X X X X X X 

VOUR MOVE FROM — > 87, 06 TO — > 07, 88 

I MOVE FROM 18 , 7 TO 10 , 9 

els 



els 

1 2 3 4 5 6 7 8 9 18 11 12 13 
13 X X X X X X 

12 0..0 

11 X X X X X X 

10 0.00 
9 X X X X X X 
80 0.00 
7 X X X X X X 
60 ... 
5 X X X X X X 
40.. 
3 XX X X X X 
200 
1 X X X X X X 

VOUR MOVE FROM — > 09,12 TO — > 11,12 
I MOVE FROM 8 , 5 TO 8,79 

els 

1 2 3 4 5 6 7 8 9 10 11 12 13 

13 X X X X X X 

12 0..0.0 

11 X X X X X X 

10 0.0 

9 X X X X X X 

80 0.000 

7 X X X X X X 

60 0..0 

5 X X X X X X 

40.0 00 

3 X X X X X X 

20000000 
1 X X X X X X 

VOUR MOVE FROM — > 09, 12 TO — > 11, 12 

I WIN!!!! 

els 



10 CLS. PRINT0411, "BRIDGE IT" 

20 PRINT: PRINT TRB(7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOMN, NJ" 

30 PRINTB960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; I* 

48 1=1-2 

50 IF LEFT«I*,1)="N" THEN CLS: GOTO 298 

68 CLS: PRINT TflBC26>; "BRIDGE IT" • PRINT 

70 PRINT " THE OBJECT OF THIS GAME IS FOR VOU TO GO FROM THE LEFT" 

88 PRINT "COLUMN TO THE RIGHT COLUMN BV CONNECTING THE O'S. THE" 

98 PRINT "COMPUTER MUST GO FROM THE TOP TO THE BOTTOM BV CONNECTING" 

188 PRINT "THE X'S. " 

110 PRINT " VOU MAKE VOUR MOVES BV TVPING IN THE COORDINATES (X, V) OR" 

128 PRINT "(COLUMN, ROW) OF THE '0' VOU WISH TO MOVE FROM AFTER THE" 

138 PRINT "COMPUTER TVPES:" 

140 PRINT " VOUR MOVE FROM?" 

158 PRINT "AND BV TVPING IN THE COORDINATES OF THE '0' VOU WISH TO MOVE" 

160 PRINT "TO AFTER THE COMPUTER TVPES:" 

170 PRINT " TO?" 

180 PRINT6979, "PRESS ANV KEY TO CONTINUE"; 

190 IF INKEV$= M " THEN 198 ELSE PRINT8128, CHR*(31); 

203 PRINT "VOL! CRN MOVE EITHER VERTICALLY OR HORIZONTALLV, BUT NOT" 

218 PRINT "DIAGONALLY YOU CANNOT MOVE VERTICALLY IN EITHER THE FIRST" 

220 PRINT "COLUMN OR THE THIRTEENTH COLUMN. THE COMPUTER MILL MOVE FIRST. " 

238 PRINT 

240 PRINT "NOTE: ALL MOVES MUST BE ENTERED IN AS A TWO DIGIT NUMBER" 

25B PRINT "SUCH AS:" 

260 PRINT " 02, 84 (FOR 2, 4 ETC. ) 

270 PRINT0979, "PRESS ANV KEV TO CONTINUE"; 

280 IF INKEY$="" THEN 280 ELSE CLS 

290 DIM X(20, 28) 

308 DIM 0(20, 20) 
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310 DIM TC20,20) 

320 FOR X=l TO 13 STEP 2 

330 FOR V=2 TO 12 STEP 2 

348 OCX, Y)=l 

358 XCY,X)=1 

350 NEXT V 

370 NEXT X 

380 CLS. PRINT TAB<10>; FOR fi=l TO 13: PRINT USING "#»"; fl; 

390 NEXT: PRINT: FOR A=13 TO 1 STEP -2: PRINT TAB(8>; 

400 PRINT USING "## X";fl; FOR Al=l TO 5: PRINT" X"; 

410 NEXT fll: PRINT: PRINT TflBCS); IF fl=l THEN 440 

420 PRINT USING "## 0";fl-l; FOR fll=l TO 6: PRINT" 0"; 

430 NEXT fll: PRINT 

44S NEXT fl 

450 IF E<>5 THEN 470 

466 GOTO 2490 

470 GOSUB 1018: REM COMPUTER MOVE 

480 GOSUB 678: REM COMPUTER WIN SUBROUTINE 

498 IF E=5 THEN 450 

500 GOSUB 2188: REM PLflVER WIN SUBROUTINE 

510 PRINT9896, "VOUR MOVE FROM — > "; CHR*(38); 

520 F=8: FOR X9=l TO STEP -1 

530 fl*=INKEV$: IF fl$=" THEN 530 

540 F=F+VHL(A*)*10£X9: PRINT fl*; NEXT X9: PRINT","; 

550 G=8: FOR X9=l TO STEP -1 

560 A*=INKEY*: IF A*="" THEN 560 

570 G=G+VflL(A*)*10[X9: PRINT fit; NEXTX9 

580 PRINT§928, "TO — > "; CHR*(30); 

590 F1=0: FOR X9=l TO STEP -1 

600 fl$=INKEY$: IFfl$="" THEN 600 

610 Fl=Fl+Vf)L(fl«*10£X9: PRINT FW; NEXT X9: PRINT","; 

628 G1=0: FOR X9=l TO STEP -1 

630 A$=INKEYS: IF A*=" THEN 630 

640 Gl=Gl+VflL<flt)*10CX9: PRINT fl$; NEXT X9 

656 GOSUB 1590: REM ERROR AND CHANGE BOARD SUBROUTINE 

660 GOTO 450 

670 REM WIN SUBROUTINE 

680 REM FIRST TEST 

690 FOR H=l TO 11 STEP 2 

760 J=12 

718 IF 0<H, J)=3 THEN 740 

720 NEXT H 

730 GOTO 1000 

740 FOR 1=1 TO 11 STEP 2 

750 J=2 

766 IF 0(I,J)=3 THEN 798 

770 NEXT I 

780 GOTO 1800 

790 REM OTHER TESTS 

880 J=J+2 

818 IF >12 THEN 970 

826 IF 0<I,J>=3 THEN 900 

830 IF 0(1+1, J+i)=2 THEN 920 

840 IF I-K0 THEN 870 

858 IF 0(1-1, J-l)=2 THEN 950 

8S0 IF X(I+1,J+1)=2 THEN 928 

870 IF I-K0 THEN 1888 

888 IF XCI-1,J-1) THEN 920 

890 GOTO 778 

908 J=J+2 

918 GOTO 810 

920 J=J 

930 1=1+2 

940 GOTO 810 

950 J=J 

968 GOTO 1000 

970 PRINT0960, "I WIN!!!!"; CHR*(38); 

980 GOTO 2490 

938 E=5 

1800 RETURN 

1018 REM COMPUTER MOVE SUBROUTINE 

1820 B=B+1 

1030 IF B>1 THEN 1880 

1040 0C1,2)=3: PRINT0783, CHR$(143); 

1058 PRINT0960, "I MOVE FROM 2,1 TO 2,3"; 

1068 B1=B1+1 

1870 IF B1>1 THEN 1260 

1080 FOR C=3 TO 11 STEP 2 

1098 T(C, C+l)=l 

1100 T(C-2, C+l)=l 

1110 GOTO 1168 



1120 NEXT C 

1130 T(2, 3)=3 

1140 T(7, 12)=2 

1158 GOTO 1260 

1160 FOR G=C+3 TO 12 STEP 2 

1178 T(C-2,0)=2 

1188 TCC-1, Q+l)=2 

1198 T(C-1, Q-l)=2 

1200 NEXT Q 

1210 FOR S=C TO 3 STEP -2 

1220 T(C-1, S)=3 

1238 T(C, S-l)=3 

1248 NEXT S 

1258 GOTO 1120 

1260 IF F>F1 THEN 1320 

1270 IF FOF1 THEN 1290 

1280 IF G>G1 THEN 1320 

1290 X=F 

1300 V=G 

1310 GOTO 1340 

1320 X=F1 

1338 V=G1 

1348 IF T(X, V)=8 THEN 1580 

1350 IF FOF1 THEN 1370 

1360 ON T(X-1, Y+i) GOTO 1386, 1458, 1528- 

1370 ON T(X,V) GOTO 1380,1458,1520 

1388 IF X=Y-1 THEN 1420 

1390 0(X+2,V)=3: PRINTI»(14-Y)*64+15+(X+i)*3, CHR*(143); 

1488 PRINT896B, "I MOVE FROM "; X+3; ", "; V-l; "TO "; X+3; ", "; Y+l; 

1418 GOTO 1588 

1420 0(X-2,Y>=3: PRINTe(14-Y)*64+15+(X-3>*3, CHR$(143); 

1430 PRINTC960, "I MOVE FROM "; X-l; ", "; V-l; "TO "; X-l; ", "; V+l; 

1440 GOTO 1580 

1450 IF X(X-1, V+i>=3 THEN 1490 

1460 X(X+1,V-1)=2: PRINT§(15-Y)*64+14+X*3, STRING*(3, 140); 

1470 PRINT6960, "I MOVE FROM "; X+l; ", "; V-l; "TO "; X+3; ", "; V-l; 

1488 G0T01588 

1498 0(X-2,V+2)=3: PRINT(K12-Y)*64+15+(X-3)*3, CHR*(143); 

1500 PRINT8968, "I MOVE FROM "; X-l","; V+l; "TO "; X-l; ", "; V+3; 

1510 GOTO 1580 

1520 IF X<X-1, V+l)=3 THEN 1560 

1530 X(X-1,V+1)=2: PRINTC«(13-Y)*64+14+(X-2)*3, STRING$(3, 140); 

1540 PRINT8968, "I MOVE FROM "; X-l; ", "; V+l; "TO "; X+l; ", "; V+l; 

1550 GOTO 1588 

1560 0(X,V)=3: PRINT0(14-Y)*64+15+(X-1)*3, CHR$(143); 

1578 PRINT6960, "I MOVE FROM "; X+l; ", "; V-l; "TO "; X+l; ", "; V+l; 

1588 RETURN 

1598 F=INT(F)' G=INT(G)' G1=INT(G1)' F1=INT(F1) 

1688 IF FOF1 THEM 1650 

1618 IF F=l THEN 2008 

1620 IF F=13 THEN 2888 

1630 IF Fl=13 THEN 2000 

1648 IF G=G1 THEN 2000 

1650 IF F/2=INT(F/2) THEN 2000 

1668 IF F>13 THEN 2000 

1670 IF G>12 THEN 2888 

1680 IF G/20INKG/2) THEN 2000 

1690 IF FOINT(F) THEN 2088 

1780 IF FCI THEN 2088 

1718 IF GC1 THEN 2888 

1728 IF Fl/2=INT(Fl/'2) THEN 2800 

1730 IF Fl>13 THEN 2008 

1748 IF Gl>13 THEN 2008 

1758 IF G1/20INT (Gl/2) THEN 2808 

1768 IF FlOINT(Fl) THEN 2888 

1770 IF GK1 THEN 2888 

1788 IF F=F1 THEN 1980 

1798 IF GOG1 THEN 2888 

1800 IF ABS(F-F1)<>2 THEN 2000: REM PRINT ERROR 

1810 IF F>F1 THEN 1868 

1828 IF 0(F,G)=2 THEN 2000 

1838 IF 0(F, G)=3 THEN 2088 

1848 0(F,G)=2: PRINT§(14-G)*64+14+(F-1)*3, STRING$<3, 148); 

1858 GOTO 2170: REM RETURN 

I860 IF 0(F1, Gl)=2 THEN 2000 

1878 IF 0(F1, Gl)=3 THEN 2880 

1888 0(F1,G1)=2: PRINT§(14-G1)*64+14+(F1-1)*3, STRING*(3, 148); 

1898 GOTO 2170: REM RETURN 

1988 IF RBS(G-G1)02 THEN 1908: REM PRINT ERROR 

1910 IF G>G1 THEN i960 

1928 IF X(F-1, G+l)=2 THEN 2008 
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1936 IF XCF-1, G+l)=2 THEN 2000 2220 

1940 XCF-i,G+l>=2: PRINTe<13-G)*64+15+<F-2)*3, CHR*<143>; 223B 

1950 GOTO 2170: REM RETURN 2240 

I960 IF X<F1-1, Gl+1>=2 THEN 2000 2250 

1970 IF XCF1-1, Gl+1>=3 THEN 208B 2268 

1980 X<F1-1,G1+1>=3: PRINT0(13-Gl>*64+15+CFl-2>*3, CHR*C143>; 2278 

1998 GOTO 2170: REM RETURN 2280 

2000 PRINTS896, "INVALID MOVE — TRV AGAIN",- CHR*G0>; 2290 

2010 FORA=1TO1000: NEXT 2300 

2020 PRINT6896, "VOUR MOVE FROM — > "; CHR*C28>; 2310 

2030 F=8: FOR X9=l TO STEP -1 2328 

2040 fl*=INKEVt: IF fl*="" THEN 2040 2330 

2050 F=F+VAL<fl*)*10CX9: PRINT A*; NEXT X9: PRINT","; 2340 

2060 G=0: FOR X9=l TO STEP -1 2350 

2070 f»=INKE«: IF fl*="» THEN 2070 2360 

2080 Q=G+VflL<(W>*iB[X9: PRINT A$; NEXTX9 2370 

2090 PRINT8926, "TO — > "; CHR«20>; 2380 

2100 F1=0: FOR X9=l TO STEP -1 2398 

2118 A*=INKEV$: IFfl*="" THEN 2110 2480 

2120 Fl=Fl+VflL<fl«*10[X9: PRINT fl*; NEXT X9: PRINT","; 2418 

2130 G1=0: FOR X9=l TO STEP -1 2420 

2140 fl$=INKEV$: IF ft$="" THEN 2140 2430 

2150 Gl=Gl+VAL(fl*)*10£X9: PRINT Afc NEXT X9 2440 

2160 GOTO1590 2458 

2170 RETURN 24S0 

2188 REM PLAYER WIN ROUTINE 2473 

2198 FOR H=l TOll STEP 2 2480 

2208 1=12 2490 
2210 IF XCI, H>=3 THEN 2240 



NEXT H 
GOTO 2480 

FOR J=l TO 11 STEP 2 

1=2 

IF X(I,J)=3 THEN 2298 
NEXT J 
GOTO 2480 

1=1+2 

IF 1=12 THEN 2440 

IF XCI,J)=3 THEN 2288 

IF XCI+1,J+1)=2 THEN 2400 

IF J-K0 THEN 2268 

IF X<I-1,J-1)=2 THEN 2420 

IF 0(1+1, J+l>=2 THEN 2480 

IF J-K0 THEN 2480 

GOTO 2300 

1=1+2 

GOTO 2300 

J=J+2 

GOTO 2388 

J=J-2 

GOTO 2288 

IF 0(1, 2X>2 THEN 2488 

PRINTC968, "VOU WIN ' .' ! CONGRATULATIONS ! ! '"; CHR«21>; 
GOTO 2498 
E=5 
RETURN 

FOR XX=1 TO 2880: NEXT XX: END 



25 



In this game of high adventure, your 
object is to travel 200 miles across the 
great Gobi Desert. You're being chased 
by a tribe of knock-kneed pygmies. 
You have one quart of water which will 
last you for six drinks; it may be 
renewed if you find an oasis or, if you 
are found by another traveller, you may 
get an additional half-quart of water. 
During your journey you encounter all 
types of hazards such as sand storms, 
wild Berbers and possible injuries to 
your camel. 

Warning: this is a very hazardous and 
addictive game. It is also very difficult 
to win. In ten plays of the game, the 
maximum distance we were able to 
travel was 159 miles, and in many cases 
we managed to make only seven or 
eight miles before one of the hazards 
caused our demise. 

This game was submitted by the 
Heath Users Group. 



CRMEL 
COPVRIGHT 1979 CREATIVE COMPUTING 



HORRISTOWN, NJ 



• els ■ 



DO YOU NEED INSTRUCTIONS? YES- 



• els ■ 



WELCOME TO CAMEL. THE OBJEST IS TO TRAVEL 
200 MILES ACROSS THE GREAT GOBI DESERT. 
f) TRIBE OF KNOCK-KNEED PIGMIES WILL BE CHASING YOU. 
YOU WILL BE ASKED FOR COMMANDS EVERY SO OFTEN. 

YOU HAVE ONE QUART OF WATER WHICH WILL LAST YOU SIX DRINKS. 
VOU HAVE RENEW YOUR WATER SUPPLY COMPLETELY AT AN OASES. 
YOU GET A HALF A QUART IF FOUND BY HELP. 
IF HELP DOES NOT FIND YOU AFTER COMMAND SIX, YOU LOSE. 
GOOD LUCK AND GOOD CAMELING ' ! 

PRESS ANY KEY TO CONTINUE 
els 



#1 DRINK FROM CANTEEN 
12 AHEAD MODERATE SPEED 
S3 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 



YOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS. 
VOU HAVE TRAVELLED MILES ALTOGETHER. 
WHAT IS YOUR COMMAND? 3. 
els 



#1 DRINK FROM CANTEEN 
«2 AHEAD MODERATE SPEED 
S3 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
m HOPE FOR HELP 



YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS. 
YOU HAVE TRAVELLED 4 MILES ALTOGETHER. 
UHflT IS YOUR COMMAND? 2. 



#1 DRINK FROM CANTEEN 
#2 AHEAD MODERATE SPEED 
#3 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 



YOU HAVE ARRIVED AT AN OASES 

FILLING YOUR CANTEEN AND EATING FIGS. 
YOUR CAMEL LIKES THIS PACE. 
YOU HAVE TRAVELLED 8 MILES ALTOGETHER. 
BHAT IS YOUR COMMAND? 2. 



YOUR CAMEL IS 



els ■ 
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#1 DRINK FROM CANTEEN 
#2 AHEAD MODERATE SPEED 
»3 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
86 HOPE FOR HELP 



YOUR CAMEL LIKES THIS PACE. 

THE PYGMIES HAVE CAPTURED YOU. CAMEL AND PEOPLE SOUP IS 

THEIR FAVORITE DISH ' ! I ." 

KANT A NEW CAMEL AND A NEW GAME ? YES- 

Cl8 



til DRINK FROM CANTEEN 
#2 AHEAD MODERATE SPEED 
12 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 



YOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS. 
VOU HAVE TRAVELLED 8 MILES ALTOGETHER. 
WHAT IS YOUR COMMAND' 2_ 
els 



«. DRINK FROM CANTEEN 
#2 AHEAD MODERATE SPEED 
13 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 

YOUR CAMEL IS 



YOU HAVE ARRIVED AT AN OASES 

FILLING YOUR CANTEEN AND EATING FIGS. 

YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS. 

YOU HAVE TRAVELLED 6 MILES ALTOGETHER. 

NHAT IS YOUR COMMAND? 3- 

els 

#1 DRINK FROM CANTEEN 
#2 AHEAD MODERATE SPEED 
»3 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 



YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS. 
VOU HAVE TRAVELLED 16 MILES ALTOGETHER. 
WHAT IS YOUR COMMAND? 2. 

els 

#1 DRINK FROM CANTEEN 
«2 AHEAD MODERATE SPEED 
83 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
85 STATUS CHECK 
#6 HOPE FOR HELP 



YOUR CAMEL LIKES THIS PACE. 
WARNING — 



GET A DRINK 



THE PYGMIES ARE 16 MILES BEHIND YOU. 
YOU HAVE TRAVELLED 18 MILES ALTOGETHER. 
WHAT IS YOUR COMMAND? 1. 

els 

#1 DRINK FROM CANTEEN 
12 AHEAD MODERATE SPEED 
12 AHEAD FULL SPEED 

BETTER WATCH FOR AN OASES 
mm IS YOUR COMMAND? 4. 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 



els ■ 







#1 DRINK FROM CANTEEN 
12 AHEAD MODERATE SPEED 
#3 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
#6 HOPE FOR HELP 



VOUR CAMEL LIKES THIS PACE. 
THE PYGMIES ARE 14 MILES BEHIND YOU. 
YOU HAVE TRAVELLED 37 MILES ALTOGETHER. 
mm IS YOUR COMMAND? 5_ 

els 

#1 DRINK FROM CANTEEN 
12 AHEAD MODERATE SPEED 
#3 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
86 HOPE FOR HELP 



YOUR CAMEL HAS 2 GOOD DAYS LEFT. 

VOU HAVE 5 DRINKS LEFT IN YOUR CANTEEN. 

YOU CAN GO COMMANDS WITHOUT DRINKING. 

BETTER WATCH FOR AN OASES ' 

HHAT IS YOUR COMMAND? fi- 



ds • 



81 DRINK FROM CANTEEN 
#2 AHEAD MODERATE SPEED 
#3 AHEAD FULL SPEED 



#4 STOP FOR THE NIGHT 
#5 STATUS CHECK 
86 HOPE FOR HELP 



VOU DIED IN THE DESERT. 

THE NATIONAL CAMEL'S UNION IS NOT ATTENDING YOUR FUNERAL! 

NANT A NEW CAMEL AND A NEW GAME ? NO. 

Cl8 



16 CLS. PRINTS413, "CflHEL" 

20 PRINT: PRINT THB<7> "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

28 PRINT0960, ""; : INPUT "DO VOU NEED INSTRUCTIONS"; I* 

40 IF LEFT$<I*, 1)="N" THEN CLS: GOTO 188 

50 CLS: PRINT TABC30); "CAMEL"' PRINT 

60 PRINT " WELCOME TO CflMa. THE OBJEST IS TO TRAVEL" 

70 PRINT "200 MILES ACROSS THE GREAT GOBI DESERT. " 

38 PRINT "A TRIBE OF KNOCK-KNEED PIGMIES WILL BE CHASING VOU " 

98 PRINT "VOU WILL BE ASKED FOR COMMANDS EVERV SO OFTEN. " 

180 PRINT 

110 PRINT " VOU HAVE ONE QUART OF WATER WHICH WILL LAST VOU SIX DRINKS. " 

128 PRINT "VOU IfflV REICH TO? HATER SUPRV CWLETELV AT AN OASIS. " 

130 PRINT "VOU GET A HALF A QUART IF FOUND BV HELP. » 

140 PRINT "IF HELP DOES NOT FIND VOU AFTER COMMAND SIX, VOU LOSE. " 

150 PRINT "GOOD LUCK AND GOOD CAMELING '!" 

160 PRINTO979, "PRESS ANV KEV TO CONTINUE"; 

170 IF INKEV*="" THEN 170 ELSE CLS 

180 PRINT "#1 DRINK FROM CANTEEN"; TABC32); "#4 STOP FOR THE NIGHT" 

190 PRINT "#2 AHEAD MODERATE SPEED"; TflB<32); "#5 STATUS CHECK" 

200 PRINT "#3 AHEAD FULL SPEED"; TABC32); "#6 HOPE FOR HELP" 
210 PRINT 

220 PRINT "VOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS. " 

230 GOSUB 1550 

248 IF C>199 THEN 1090 
250 Z=Z-1 

260 IF Z=l THEN PRINT " WARNING GET A DRINK" 

270 IF Z<0 THEN 1490 

280 P=P+1 

290 X2=INT(10*RNDC0>+2. 5> 

300 IF Q>0 THEN 880 

318 IF P<4 THEN 380 

320 Cl=Ci+X2 

330 IF CKC THEN 370 

340 PRINT "THE PVGMIES HAVE CAPTURED VOU. CAMEL AND PEOPLE SOUP IS" 

358 PRINT "THEIR FAVORITE DISH .'!!!!" 
360 GOTO 1440 

370 PRINT "THE PVGMIES ARE"; C-Cl; "MILES BEHIND VOU. " 

380 PRINT "VOU HAVE TRAVELLED"; C, "MILES ALTOGETHER. " 

398 PRINT "WHAT IS VOUR COMMAND"; 
400 INPUT V 

410 PRINT6256, CHR*<31>; 

420 ON V GOTO 690,490,568,630,660 

430 T=INT(10*RND(0)) 

440 IF TOl THEN 1080 

450 PRINT "HELP HAS FOUND VOU IN A STATE OF UNCONSCIOUSNESS. " 

460 S=3 

470 Z=4 

488 GOTO 240 

430 F=F+1 

500 IF F=8 THEN 1070 
510 GOSUB 740 

520 X1=INT<10*RND<0» 

530 C=C+X1 

548 PRINT "VOUR CAMEL LIKES THIS PACE. " 

550 GOTO 240 

560 F=F+3 

578 IF F>7 THEN 1070 

580 GOSUB 740 

590 Xl=2*INTil0*RND<0» 

600 C=C+X1 

610 PRINT "VOUR CAMEL IS BURNING ACROSS THE DESERT SANDS. " 

628 GOTO 248 

638 PRINT "VOUR CAMEL THANKS VOU!" 

648 F=0 

650 GOTO 250 

660 PRINT "VOUR CAMEL HAS"; 7-F; "GOOD DAVS LEFT. " 

670 PRINT "VOU HAVE"; S; "DRINKS LEFT IN VOUR CANTEEN. " 

680 PRINT "VOU CAN GO"; Z; "COMMANDS WITHOUT DRINKING. " 

690 S=S-1 

708 IF S<0 THEN 1080 

710 PRINT "BETTER WATCH FOR AN OASES '" 

720 Z=4 

730 GOTO 390 

740 A=INTa00*RNDC0>> 

750 IF R>5 THEN 1000 

760 PRINT "WILD BERBERS HIDDEN IN THE SAND HAVE CAPTURED VOU. " 

770 PRINT "LUCKILV THE LOCAL SHEIK HAS AGREED TO THEIR RANSOM-" 

780 PRINT "DEMANDS BUT WATCH FOR THE PVGMIES " ! " 

790 PRINT "VOU HAVE A NEW CHOICE OF SUB-COMMANDS:" 
800 PRINT "#7 - ATTEMPT AN ESCAPE" 
810 PRINT "#8 - WAIT FOR PAVMENT" 
820 PRINT "VOUR SUB-COMMAND "; 
830 INPUT X 



848 IF X=8 THEN 920 

850 X1=INT<10*RND<0>> 

860 IF Xl<5 THEN 900 

870 PRINT "CONGRATULATIONS, VOU SUCCESSFULLV ESCAPED ' ! " " 

880 Q=0 

896 GOTO 240 

900 PRINT "VOU WERE MORTALLV WOUNDED BV A PIG STABBER WHILE ESCAPING. " 

910 GOTO 1290 

920 X1=INT<100*RND<0» 

930 REM 

948 IF Xl>24 THEN 980 

950 PRINT "VOUR RANSOM HAS BEEN PAID AND VOU ARE FREE TO GO. " 

960 Q=0 

970 GOTO 240 

980 PRINT "THE LOCAL SULTAN IS COLLECTING JUST WAIT » 

990 GOTO 240 

1000 A=INT(10*RND<0)> 

1018 IF A>2 THEN 1120 

1820 PRINT "VOU HAVE ARRIVED AT AN OASES VOUR CAMEL IS" 

1030 PRINT "FILLING VOUR CANTEEN AND EATING FIGS. « 

1040 Z=4 

1050 S=6 

I860 RETURN 

1070 PRINT "YOU DIRTV RAPSCALLION! VOU RAN VOUR POOR CAMEL TO DEATH "" 

1888 GOTO 1290 

1890 PRINT "VOU WIN, A PARTV IS BEING GIVEN IN VOUR HONOR " 

1100 PRINT " THE PVGMIES ARE PLANNING TO ATTEND " 

1110 GOTO 1440 

1120 X1=INK180*RND<0>> 

1130 IF Xl>5 THEN 1230 

1148 PRINT "VOU HAVE BEEN CAUGHT IN A SANDSTORM GOOD LUCK!" 

1158 X5=INT<10*RND<0>) 

1160 X6=INT(10*RND<0» 

1170 IF X6<5 THEN 1200 

1188 C=C+X5 

1190 GOTO 1210 

1208 C=C-X5 

1210 PRINT "VOUR NEW POSITION IS"; C, "MILES SO FAR!" 

1220 RETURN 

1230 X1=INT<100*RND<0» 

1240 IF Xl>5 THEN RETURN 

1250 C1=C1+1 

1260 PRINT "VOUR CAMEL HURT HIS HUMP. " 

1270 PRINT "LUCKILV THE PVGMIES WERE FOOTWEARV ".<" 

1280 RETURN 

1298 U=INT<10*RND<0>> 

1380 PRINT "VOU DIED IN THE DESERT. " 

1310 IF U>1 THEN 1348 

1320 PRINT "THE NATIONAL CAMEL'S UNION IS NOT ATTENDING VOUR FUNERAL" 1 " 
1330 GOTO 1440 

1340 IF U>3 THEN 1370 

1350 PRINT "VOUR BODV WHS EATEN BV VULTURES AND IMPORTED CRNNINBHLS 1 ! !" 
1368 GOTO 1448 

1278 IF U>5 THEN 1400 

1388 PRINT "THE LOCAL SHEIK NOW USES VOUR SKULL FOR A CHANGE PURSE!!!" 
1390 GOTO 1440 

1408 IF U>7 THEN 1430 

1410 PRINT "PEOPLE WITH LITTLE INTELLIGENCE SHOULD STAV OUT OF THE 
1420 GOTO 1440 DESERT" 

1430 PRINT "TURKEVS SHOULD FLV, NOT RIDE CAMELS ■!!••■■" 
1440 REM 

1450 PRINT "WANT A NEW CAMEL AND A NEW GAME "; 
1460 INPUT D* 

1478 IF LEFWDS, 1)="V" THEN 150 
1480 GOTO 1510 

1490 PRINT "VOU RAN OUT OF WATER SORRV CHUM! "" 

1500 GOTO 1290 

1510 PRINT " » 

1520 PRINT " CHICKEN" 

1530 PRINT " " 

1540 END 
1550 Z=4 
1560 S=6 
1570 C=0 
1580 Cl=8 
1590 B=8 
1608 F=0 
1610 P=0 
1628 RETURN 
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lase 



CHASE puts you in a maze made up 
of high-voltage fences and posts. This 
in itself isn't too unpleasant but there're 
also the five interceptor robots bent on 
just one thing— your destruction. If 
these robots touch you ... that's the 
end of the game (and you!). There's 
one hope— make the robots hit the 
maze, or each other (they're like 
people— sometimes they'd rather be 
alone). If you destroy them all, you win! 
If you find yourself in a totally hopeless 
situation, you have the option of 
making a tremendous ieap to a random 
location (which may well be on top of a 
fence or a guard). 

At the end of the game, you may 
replay with the same or different 
starting conditions. 

I believe this game was originally 
created by Mac Oglesby. It was then 
modified by Bill Cotter and further 
improved by Arnold Loveridge. An 
intermediate version appeared in 
Creative Computing, Jan/Feb 1976. 



COPVRIGHT 1979 



CHASE 
CREATIVE COMPUTING 



MORRISTOWN, NJ 



DO YOU NEED INSTRUCTIONS? YES_ 
els 



VOU ARE WITHIN THE WALLS OF A HIGH VOLTAGE MAZE 

THERE ARE FIVE SECURITY MACHINES TRYING TO DESTROY YOU 

YOU ARE THE '**' THE INTERCEPTORS ARE THE '++' 

THE AREAS MARKED ' . ' ARE HIGH VOLTAGE 

YOUR ONLY CHANCE FOR SURVIVAL IS TO MANEUVER EACH 

INTERCEPTOR INTO AN ' ' GOOD LUCK 

MOVES ARE 7. 8. 9 
4.*. 6 
12.3 
18 = NO MOVE FOR THE REST OF THE GAME 
-1 = GAVE UP, SITUATION HOPELESS. 
8 = A TREMENDOUS (BUT UNFORTUNATELY RANDOM) LEAP 

PRESS ANY KEY TO CONTINUE 
els 



HHHT IS YOUR MOVE? i. 



• els • 



++ ... ++ 



mm IS YOUR MOVE? 4. 



- els • 




WHAT IS YOUR MOVE? 4. 



- els ■ 



WHAT IS YOUR MOVE? 4 



■ els • 



** ++ 



28 



[HAT IS YOUR MOVE? 4 



- els • 



.// 



** ++ 



WflT IS VOUR MOVE? 0. 



■ els - 



*IHT IS VOUR MOVE? . 
St, 8B0, 600 JUMP 1 !! 



■ els 



10 CLS: PRINT0413, "CHASE" 

20 PRINT: PRINT TABC7) "COPYRIGHT 1979 CREATIVE COMPUTING 

MORRISTOMN, NJ" 
30 PRINT0960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; It 

40 IF LEFT$<I*,1)="N" THEN CLS: GOTO 200 

41 CLS: PRINT TABC29); "CHASE" • PRINT 

50 PRINT "VOU ARE WITHIN THE WALLS OF A HIGH VOLTAGE MAZE" 
68 PRINT "THERE ARE FIVE SECURITY MACHINES TRYING TO DESTROY YOU" 
70 PRINT "YOU ARE THE '**' THE INTERCEPTORS ARE THE '++'" 
80 PRINT "THE AREAS MARKED ' U STRING«2, lftLV" ARE HIGH VOLTAGE" 
90 PRINT "YOUR ONLY CHANCE FOR SURVIVAL IS TO MANEUVER EACH" 

100 PRINT "INTERCEPTOR INTO AN "'STRINGSC2, 191)"' GOOD LUCK 

110 PRINT "MOVES ARE 7. 8. 9" 

120 PRINT " 4. * 6" 

130 PRINT " 1. 2. 3" 

158 PRINT "10 = NO MOVE FOR THE REST OF THE GAME" 

160 PRINT "-1 = GAVE UP, SITUATION HOPELESS. " 

170 PRINT " = A TREMENDOUS (BUT UNFORTUNATELY RANDOM) LEAP" 

180 PRINT 

190 PRINT0979, "PRESS ANY KEY TO CONTINUE"; 

191 IF INKEY*=" THEN 191 ELSE CLS 

200 DIM AC10, 20),A1(10, 20), N(12),LC5),MC5),L1<5),M1<5> 

210 REM 

220 FOR B=l TO 10 

230 FOR C=l TO 20 

240 X=INT<10*RND<0)) 

250 IF X=5 THEN 280 

260 A<B,C)=ASC<:" ") 

270 GOTO 290 

288 A<B,C>=ASC<"X") 

290 NEXT C 

380 NEXT B 

318 FOR D=l TO 10 

320 A<D,1)=ASC<"X"):A<D,20)=ASCC"X") 

330 NEXT D 

340 FOR F=l TO 20 

350 A<1,F)=ASCC"X"):AC10,F)=ASCC"X") 

360 NEXT F 

370 GOTO 420 

380 H=INT(2+8*RND(0)) 

390 I=INT(2+18*RND<0)) 

400 IF ACH, DOASCC" ") THEN 380 

410 RETURN 

420 GOSUB 380 

438 ACH, I)=ASC("*") 

440 J=H:K=I 

45B FOR N9=l TO 5 

460 GOSUB 380 

470 A(H, I)=ASC("+") 

480 L(N9)=H:M<N9)=I 

498 NEXT N9 

580 FOR Bl=l TO 10:FOR B2=l TO 20:AKBl,B2)=fl(Bl,B2):NEXT B2:NEXT Bl 

510 FOR Bl=l TO 5:L1<B1)=LCB1):M1(BD=M<B1):NEXT Bl 

528 J1=J:K1=K 

530 Y9=0 



540 PRINT B, ""; FOR D2=l TO 10 
550 FOR B2=l TO 20 

560 N$=CHR«0CD2, B2)-103*<B(D2, B2)=88) /<[ , 
570 PRINT NtNt; K "' 

580 NEXT B2 
59S PRINT 
680 NEXT D2 

610 IF Y9 O 10 THEN 640 
620 PRINT 
630 GOTO 890 

640 PRINT: INPUT "WHAT IS YOUR M0VE";Y9 
650 J2=J:K2=K 
660 IF Y9=0 THEN 860 
678 IF Y9 < THEN 1230 
688 IF Y9=10 THEN 1070 

690 ON Y9 GOTO 820, 800, 780, 840, 890, 760, 700, 720, 740 
700 J=J-1:K=K-1 
710 GOTO 890 
720 J=J-1 
730 GOTO 890 
740 J=J-1:K=K+1 
750 GOTO 890 
760 K=K+1 
770 GOTO 890 
780 J=J+1:K=K+1 
790 GOTO 890 
866 J=J+1 
810 GOTO 890 
820 J=J+1:K=K-1 
830 GOTO 898 
840 K=K-1 
850 GOTO 890 

860 PRINT "$6, 008, 088 JUMP 1 ! ' " 
870 J=INT<2+8*RND<0)) 
880 K=INT(2+18*RNDC8)) 
890 IF B(J,K)=ASCC"X") THEN 1260 
908 A(J2,K2)=ASC(" ") 
918 B<J,K)=ASC<"*"> 
928 GOTO 1870 

930 RBI INTERCEPTOR MOVEMENT 
940 IF A(X,Y)=ASCC"X") THEN 1040 
950 X2=X:Y2=Y 
968 X=SGNCJ-X)Y=SGN(K-Y) 
970 X=X+X2:Y=Y+Y2 
980 IF A<X,Y)=ASC("*") THEN 1050 
990 IF H(X,Y)=ASC(" ") THEN 1020 
1080 A<X2,Y2)=ASC<" ") 
1810 RETURN 
1020 H(X,Y>=ASC("+") 
1030 H(X2,Y2)=ASC(" ") 
1048 RETURN 
1058 G9=99 
1868 RETURN 
1070 FOR N9=l TO 5 
1080 X=L(N9):Y=M<N9) 
1090 G9=0 
1108 GOSUB 940 
1110 IF G9 O THEN 1240 
1120 LCN9)=X: M(N9)=Y 
1130 NEXT N9 
1140 FOR N9=l TO 5 

1150 IF A(L(N9),M(N9» O ASC(" ") THEN 1170 
1160 A(L(N9),M(N9))=ASC("+") 
1170 NEXT N9 
1180 FOR N9=l TO 5 

1190 IF A(L(N9),MCN9)> O ASCC'X") THEN 548 
1280 NEXT H9 

1210 PRINT:PRINT "YOU HAVE DESTROYED ALL YOUR OPPONENTS - THE GAME IS YOURS" 
1220 GOTO 1290 

1230 PRINT:PRINT "GIVE UP, EH. " 

1240 PRINT:PRINT "*** YOU HAVE BEEN DESTROYED BY A LUCKY COMPUTER ***" 
1258 GOTO 1290 

1260 PRINT .-PRINT "HIGH VOLTAGE! !!!!!)!!!" 
1270 PRINT "***** ZAP ***** YOU'RE DEAD!! 1 " 
1280 PRINT 

1290 PRINT.PRINT "ANOTHER GAME WN)"; 
1388 INPUT N9$ 

1310 IF N9t O "V" THEN 1390 
1320 PRINT "SAME SETUP (Y/N)"; 
1330 INPUT N9t 

1340 CLS. IF N9$ O "Y" THEN 210 

1358 FOR Bl=l TO 10:FOR B2=l TO 20:ACB1,B2)=H1(B1,B2):NEXT B2:NEXT Bl 
1368 FOR Bl=l TO 5:L<B1)=LKB1):M(B1)=M1CB1):NEXT Bl 
1378 J=J1:K=K1 
1380 GOTO 538 
1390 END 
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Chuck-A-Luck 



CHUCK-A-LUCK 
COPYRIGHT 1979 CREATIVE COMPUTING 



MORRISTOWN, NJ 



VES- 



els ■ 

DO VOU NEED INSTRUCTIONS? 

els 

CHOOSE R NUMBER FROM 1 TO 6. I WILL ROLL 3 DICE. 
IF VOIR NUMBER HATCHES 1 DIE, I PAV OFF EVEN MONEV. 
TWO DICE, 2:1 3 DICE, 3:1 



BET B TO QUIT. 



• 0l8 • 



PRESS RNV KEV TO CONTINUE 
VOU HAVE * 460. MAKE A BET. '' _ 
CHOOSE A NUMBER? 3 



VOU DIDN'T MATCH AT ALL. 
VOU LOSE $ 108. 

els ■ 



VOU HAVE * 508. MAKE A BET. ? 
CHOOSE fl NUMBER? 



VOU'VE WON * ISO. 



cis ■ 



VOU HAVE * 500. MRKE A BET. ? 100 
CHOOSE A NUMBER? 3_ 



Chuck-a-luck is generally found in 
fairgrounds, cheap casinos, and small 
gambling parlors. It flourished in 
frontier America, but dates back to 
European gaming houses of the 
eighteenth century. During its long 
history, chuck-a-luck has had many 
names including sweatcloth, chucker- 
luck, chuck luck, and bird cage. 

Each player places his betsononeof 
the six numbers, one through six. 
When all bets have been placed, the 
operator tumbles three dice in a chuck 
cage until they come to rest face up or 
drop down a chute onto the table. If a 
players number appears on one die, 
the operator pays him even money; if 
on two dice, two to one; if on three dice, 
three to one. 

The computer version of Chuck-a- 
luck was originally written by Michael 
Tanoff. 



VOU'VE WON * 100. 



■ els ■ 



VOU HAVE * 400. MAKE A BET. ■> 200 
CHOOSE fl NUMBER? 1_ 



VOU DIDN'T MATCH AT ALL. 
VOU LOSE * 100. 

Cl8 

VOU HAVE * 700. MAKE A BET. ? 10 
CHOOSE A NUMBER? 1_ 



VOU'VE WON i 300. 



CIS • 



VOU HAVE $ 690. MAKE A BET. ? 690 
CHOOSE A NUMBER? 1_ 



VOU DIDN'T MATCH AT ALL. 
VOU LOSE * 10. 
els 

VOU HAVE $ 690. MAKE A BET. "? 690 

VOU DIDN'T MATCH AT ALL. 
VOU LOSE * 690. 



16 CLEAR 588: CLS: PRINT8411 "CHUCK-A-LUCK" 

28 PRINT: PRINT TRB(7) "COPYRIGHT 1979 CREATIVE COHPUTING HORRISTOHN, NJ" 

39 PRINTB968, ""; : INPUT "DO VOU NEED INSTRUCTIONS"; I* 

48 IF LEFT«I*,1)="N* THEN OS: GOTO 128 

58 CLS: PRINT TAB(26) "CHUCK-R-LUCK" : PRINT 



68 PRINT "CHOOSE fl NUKBER FRON 1 TO 6. I HILL ROLL 3 DICE. " 

70 PRINT "IF VOUR NWBER HATCHES 1 DIE, I PAV OFF EVEN MONEV. " 

88 PRINT "TO DICE 2:1 3 DICE, 3:1": PRINT 

90 PRINT "BET 8 TO QUIT. • 

1B0 PRINTM79, "PRESS RNV KEV TO CONTINUE"; 

118 IF IHKEV*=" THEN 118 ELSE CLS 

128 GOSUB 428: R=588 

138 PRINT§8, "VOU HAVE $■; N; CH»(8); ". HAKE fl BET. ";CKR$(3e>; 

148 INPUT B 

158 IF B=8 THEN END 

160 IF B>H THEN 388 

178 IF B>8 THEN IF B*iBB=INUB*188) THEN 198 

188 GOTO 398 

190 PRINT "CHOOSE R NUMBER"; CHR*<38); 

288 INPUT N 

218 IF INKN)=N RND N>8 RND N<7 THEN 238 

220 PRINT "CHEATER! !!!!!"■ GOTO 198 

238 R=RND<6>: D=RND<6>: C=RND<6>: PRINT 

248 FOP Al=l TO RND<10H5: PRINTM92, R$<RND<6»,RttRHD(6»,ft*(RND(6»; 

250 tf J (tt: PR1NM92, ftKfl), fl*<D), R*(C); : PRINT9512, CHRJGD; 

268 'i=8 

278 IF R=N THEN T=T+1 

288 IF D=N THEN T=T+1 

298 IF ON THEN T=T+1 

388 IF T=8 THEN PRINT "VOU DIDN'T NATCH AT ALL " 

318 ON T GOTO 358,368,378 

328 PRINT "VOU LOSE 1";B;CHR$(8);». " 

338 H=H-B: IF «<=8 THEN 488 

348 GOTO 138 

358 PRINT "VOU'VE HON *";B;CHR*<8>," 

368 PRINT "VOU'VE HON *'; B*2; CHR$<8>. 

378 PRINT "VOU'VE HON $";B»3;CHR$(8): 

388 PRINT "I DON' TRKE I.O.U'S !!!!" 



': M=M+B: GOTO 138 
'-"■ B=N+2*8: GOTO 138 
'. ": K=H+B*3: GOTO 138 
GOTO 138 



398 PRINT "DON'T GET CUTE!!!": GOTO 138 

488 PRINT 

418 END 

428 R*=CKRtti91)+CHIS<26HSTRINGtt9,8>: Bt=STRING*<3, 2?) 

438 FOR R=i TO 6: FOR B=i TO 3: A*<R)=«(fl)+CH»<191) 

448 FOR C=l TO 7: READ D: fl*<R>=RttRHCH»<D+i8B>: (EXT C 

458 A*(A)=R$<R)+A$: NEXT B: f»(R)=LEFT$(«(R),48)+BJ: NEXT R: RETURN 

468 DATR 31 31, 31, 31, 31, 31, 3L 28, 28, 28, 48, 28, 28, 28, 76, 76, 76, 76, 76, 76, 76 

478 DRTR 31, 79, 31, 31, 3L 31, 31, 28, 28, 28, 28, 28, 28, 28, 76, 76, 76, 76, 76, 79, 76 

488 DATA 31, 79, 31, 31, 31, 31, 3L 28, 28, 28, 48, 28, 28, 28, 76, 76, 76, 76, 76, 79, 76 

498 DRTR 31, 79, 3L 3L 31, 79, 3L 28, 28, 28, 28, 28, 28, 28, 76, 79, 76, 76, 76, 79, 76 

508 DATA 31, 79, 31, 31, 3L 79, 31, 28, 28, 28, 48, 28, 28, 28, 76, 79, 76, 76, 76, 79, 76 

518 DRTR 31 79, 31, 31, 31, 79, 31 28, 48, 28, 28, 28, 48, 28, 76, 79, 76, 76, 76, 79, 76 
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Clos© Eiieo&ii 



In this game, you are situated at the 
center of a target area for a UFO. The 
program assigns coordinates 0,0 to 
your location. You are given informa- 
tion as to the course of the UFO in 
degrees longitude and degrees latitude 
and also its speed. You then have two 
alternatives. One, you can attempt to 
shoot the UFO out of the sky with an 
ICBM or you can do nothing and hope 
that air friction will cause the course of 
the UFO to deviate or to bum up. 

A knowledge of mathematical coor- 
dinate systems will be of some 
assistance in winning this game, 
although you'll probably be able to 
discover a reasonably good strategy by 
yourself using trial and error if you piay 
enough games. 

This program was originally written 
by Chris Falco. 








CLOSE ENCOUNTERS 
COPVRIGHT 1979 CREATIVE COMPUTING M0RRIST0M, NJ 
els 



HIT ENTER TO START? . 



VOU ARE SITUATED RT COORDINATES (8,0). A UFO IS 
HEADING FOR IMPACT AT THAT LOCATION. 



AT FIRST TRUCK, THE UFO IS ON B COURSE OF 54 DEGREES LONGITUDE 
AND 135 DEGREES LATITUDE. 

(ALSO IT'S FALLING AT A SPEED OF 6816 MILES/PER HOUR) 

VOU HAVE THE FOLLOWING ALTERNATIVES. 

fl) VOU CAN ATTEMPT TO SHOOT THE UFO OUT OF THE SKV. OR 

B) VOU CAN DO NOTHING, AND HOPE THAT AIR FRICTION 

HILL CAUSE THE COURSE OF THE UFO TO DEVIATE, AND THUS 

MISS VOUR LOCATION. 



HKflT IS YOUR PLAN OF ACTION (A OR B)? B. 










els 








MILES 


SPED 


LONGITUDE 


LATITUDE 


COURSE 




12080 


6810 


54 


135 


86 




11883. 6 


11483 


52 


126 


93 




115719 


14281 


43 


120 


182 




11272.8 


17946 


41 


118 


182 




18899. 7 


22389 


22 


112 


184 




18437. 2 


27746 


38 


103 


98 




9926. 72 


30992 


26 


98 


97 




9354.37 


33981 


26 


93 


92 




8685. 72 


48-119 


21 


89 


92 




7942 92 


44568 


21 


87 


91 




7899.72 


58592 


18 


85 


92 




6196. 53 


54191 


9 


81 


97 




5228. 43 


58086 


7 


74 


92 




8685.72 


40119 


21 


89 


92 




7942. 92 


44568 


21 


o- 


91 




7899. 72 


50592 


18 


85 


92 




6196.53 


54191 


9 


81 


97 




5228. 43 


58886 


7 


74 


92 




4224. 88 


68213 


7 


67 


89 




318125 


62618 


-6 


62 


92 




2867. 83 


66805 


-18 


68 


95 




896. 266. 


78294 


-15 


53 


93 







IMPACT - 


AT - 74,988 


— 










HIRE - SERVICE - ON - LINE - 
SERVED EXPLOSION AT COORDINATE 


5 18 15 
S (-2 , 0). - 




— HAVE 


JUST 0B 


— 


BLAST SEN FROM 42875 MILES flHRV. 


NO SURVIVORS 










els 







TRV AGAIN? VES_ 

V0U ARE SITUATED AT COORDINATES (8,8) A UFO IS 

HEADING FOR IMPACT AT THAT LOCATION. 

AT FIRST TRACK, THE UFO IS ON A COURSE OF 44 DEGRES LONGITUDE 
AND 125 DEGREES LATITUDE. 

(ALSO IT'S FALLING AT A SPEED OF 2361 MILES/PER HOUR) 

VOU HAVE THE FOLLOWING ALTERNATIVES. 

A) VOU CAN ATTEMPT TO SHOOT THE UFO OUT OF THE SKV. OR 

B) VOU CAN DO NOTHING, AND HOPE THAT AIR FRICTION 

HILL CAUSE THE COURE OF THE UFO TO DEVIATE, AND THUS 
MISS VOUR LOCATION. 

MAT IS VOUR PLAN OF ACTION (A OR B>? fl. 

els 

LAUNCH AN I. C. B. M. ON A COURSE THAT HILL INTERCEPT THE UFO 

WITHOUT THE UFO BEING TOO CLOSE TO VOUR 

OCATIOM. IF THE SPED 

OF THE UFO EXCEEDS 11361 MP. H. , VOUR MISSILES ARE USELESS! 

-SCANNERS. PREDICT VOU HAVE 4 MINUTES TO DESTROV THE UFO 

BEFORE IT IS TOO CLOSE TO IMP ACT. 

-COMPUTER INDICATES COURSE AT FIRST SIGHTING IS APPROX. 98 

HIT ENTER TO LAUNCH ICBM? 

TIME SPEED 



■ els 

LONGITUDE LATITUDE COURSE 



9 3361 


44 


125 




■>6e 


5 5818 


27 


118 




''55 


1 6659 


38 


111 




"> 48 


t 5 8308 


23 


184 




''48 


2 9957 


16 


97 




'' 48 


2 5 11686 


9 


98 




"> 48 


SORRV— THE SPEED OF THE UFO HAS EXCEEDED 11 


261 




THIS SPED IS TOO GREAT FOR VOUR DEFENSE SCREEN TO TRACK! 


THEREFORE, VOU ARE DOOMED! 








TRV AGAIN? HO. 
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18 CLS. PRIHT0418, "CLOSE EHCOUHTERS" 

28 PRINT: PRINT TftB(?) "COPYRIGHT 1979 CREATIVE COHPUTIHG HORRISTOHN, NJ" 

28 PRINTSm "i ' INPUT "HIT ENTER TO START";f»: CLS 

48 GOSUB 1678 

58 PRINT "VOU ARE SITUATED AT COORDINATES (0,8). A UFO IS" 

60 PRINT "HERDING FOR IMPACT AT THAT LOCATION. " 

78 PRINT 

88 PRINT "AT FIRST TRUCK, THE UFO IS OH A COURSE OF"V"DEGREES "; 

98 PRINT "LONGITUDE" 

188 PRINT "AND"Z"DEGREES LATITUDE. " 

118 PRINT » (ALSO IT'S FALLING AT A SPEED OF"X"MILES/PER HOUR)" 

128 PRINT 

128 PRINT "VOU HAVE THE FOLLOWING ALTERNATIVES:" 

148 PRINT "A) VOU CAN ATTEMPT TO SHOOT THE UFO OUT OF THE SKY. OR" 

150 PRINT "B> VOU CAN DO NOTHING, AND HOPE THAT AIR FRICTION" 

168 PRINT " HILL CRUSE THE COURSE OF THE UFO TO DEVIATE, AND THUS" 

i?8 PRINT " HISS YOUR LOCATION ": PRINT 

188 PRINT "HHAT IS VOUR PLAN OF ACTION (A OR B>"; : INPUT W: CLS 

198 IF LEFT*(D»,1)="B" THEN 728 

288 PRINT CHR«26); "LAUNCH AN I. £ B. N. ON A COURSE THAT HILL INTERCEPT THE UFO" 

218 PRINT "WITHOUT THE UFO BEING TOO CLOSE TO VOUR LOCATION IF THE ■; 

228 PRINT "SPEED" 

238 PRINT "OF THE UFO EXCEEDS'H'H. P. H. , VOUR MISSILES ARE USELESS!" 

248 PRINT "--SCANNERS PREDICT VOU HHVE'lfMINUTES TO DESTROV THE UFO" 

258 PRINT "BEFORE IT IS TOO CLOSE TO IMPACT. ":PRINT 

263 C=2-Y+I-INT(RHD(8)*4>+1 

27B PRINT "-COMPUTER INDICATES COURSE AT FIRST SIGHTING IS RPPROX "; C+F 

280 PRINT 

230 INPUT-HIT ENTER TO LAUNCH ICBH";R»: CLS 

280 PRINT 

210 PRINT "TIME";TRB(10);"SPEED";TAB(21), "LONGITUDE"; TRB(25); 

228 PRINT "LATITUDE"; TA8(48>; "COURSE" 

238 PRINT " ";TAB(10);" ";TAB(21);" ";TAB(25); 

348 PRINT " >;TAB(4B);" » 

350 FOR T=8T0 5 STEP 5 

268 PRINT T TAB(18) X TAB(21) V TABG5) 2 TAB(48); 

276 INPUT A: IF T4t THEN 558 

288 IF X<=H THEN 420 

298 PRINT "SORRV-THE SPED OF THE UFO HAS EXCEEDED "; :PRINT USING "#«,I#S ";H 

480 PRINT "THIS SPEED IS TOO GREAT FOR VOUR DEFENSE SCREEN TO TRACK!" 

418 PRINT "THEREFORE, VOU ARE DOOMED! ":PRINT:GOTO 688 

428 IF A=C THEN 658 

428 IF (019 THEN 488 

440 PRINT "AT THAT COURSE, VOU SHOT VOUR MISSILE STRAIGHT UP, SO WHEN' 

458 PRINT "IT RUNS OUT OF FUEL IN ABOUT"F"HOURS, IT HILL FALL"; 

460 PRINT " THROUGH" 

478 PRINT "VOUR ROOF!!!!!!!!!! GOODBVE! !!!!!••. GOTO 590 

480 IF A<288 GOTO 518 

498 PRINT "GOOD WORK! THERE GOES THE MISSILE RIGHT TOWARDS" 

508 PRINT "RUSSIA!!!! NOW YOU'RE DEFINITELY IN TROUBLE! !":GOTO 590 

510 IF fl=C-l THEN 688 

520 IF A=C+1 THEN 640 

520 X=X+V+1288 : Y=V-I+5 : 2=2-1+5 : OZ-Y+5 

548 NEXT T 

558 PR1NT:PRINT " ATTENTION " 



■VOU OVERSHOT THE UFO'S COORDINATES,": GOTO 610 

FANTASTIC! ! ! ! VOU HIT THE UFO EXACTLY ON PROJECTED COURSE" 

YOU MUST BE VERV SHARP 1 ":PRIKT 



560 PRINT "ELAPSED - TIME 

578 PRINT'IF - YOU - HERE 

588 PRINT'THE - EXPLOSION 

590 GOTO 688 

688 PRINT "VOU ARE SHY OF THE UFO' 



INDICATES - THAT -";M;"- MINUTES HAVE PASSED" 
TO - HIT - THE - UFO - HON - THE - FORCE - OF" 
WOULD - DESTROV - BOTH - VOU - AND - THE - UFO!" 

: COORDINATES, " 



610 PRINT "HOWEVER THIS IS ONLY A SLIGHT DEVIATION SO THE' 

620 PRINT "UFO HAS BEEN DESTROVED!":PRINT 

628 GOTO 688 

648 PRINT 

658 PRINT 

668 PRINT 

670 PRINT 

688 PRINT "TRY AGAIN"; : INPUT J*: IF LEFTOJ*, 1)="N" THEN 1198 

698 GOSUB 1878 

798 GOSUB 1840 

718 PRINT:PRINT:GOTO 248 

728 PRINT 

720 F=0 

740 A=INT(RND(8)*5)+1:C=2-V+A 

750 M=12088: CLS: PRIHT0128, ""; ' GOSUB 760: GOTO B20 

760LB=PEEK(16416): MB=PEEK(16417) 

778 PRINT80, "MILES"TAB(16)"SPEED"TRB(21)"L0NGITUDE«TABG5); 

788 PRIHT"LATITUDE"TAB(48) "COURSE" 

798 PRINT " "TAB(ie)" "TA8(21>" "TABG5); 

888 PRINT"—— "TAB(48)" "; 

818 P0KE16416,LB: P0KE1641?,MB: RETURN 

829 P=X+i 

828 PRINT M TABCIB) X TABC21) Y TABC35) Z TAB(48) C. GOSUB 768 

848 C=Z-Y 

858X=X+INT(RND(0)*5908>+2080:M=N-X/68 

860 V=¥-INT(RND(0)*10) :Z=Z-INT(RND(0)*10) :C=Z-Y+RT.2 

879 IF X-P>5789 THEN F=F+1 

880 IF M>0 THEN 828 

899 PRINT " IMPACT - AT - "; :PRINT USING "M,I»";X; 

989 PRINT" " 

910 IF F<=2 THEN 950 

928 PRINT "GOOD WORK FRICTION 0F";F;CHRJ(8); "X HAS CAUSED THE COURSE" 

928 PRINT "OF THE UFO TO DEVIATE IMPACT COORDINATES ARE" 

948 PRINT "NOW ("F", "0-F"). VOU MADE IT!":GOTO 998 

958 PRINT" UPI - HIRE - SERVICE - ON - LINE -"^"'"A+S^'A+ie" 

960 PRINT "— HAVE JUST OBSERVED EXPLOSION AT COORDINATES <"8-F", 0). — 

978 A=(A+2)*A 

930 PRINT "BLAST SEEN FR0M"AC3"MILES AWAY. NO SURVIVORS. ":PRIHT 

998 INPUT "TRY AGAIN"; J{ 

1089 IF LEFTKJ*,1)="N" THEN 1190 

1018 GOSUB 1878 

1828 GOSUB 1048 

1838 PRINT:PRINT:GOTO 288 

1848 INPUT "PLAN (A OR B)";DJ: CLS 

1850 IF LEFT*(M,1)="B" THEN 728 

1860 RETURN 

1078 I=INT(RND(8)*2B)+l:V=INT(RND(9)*408)+289:F=INT(RND(0)t5)+l 

1880 X=INT(RND(0)*5088)+2881:H=X+8008:Q=INT(R»(8)*5)+1 

1890 Z=IMT<RHD(8>*i48):IF ZC188 THEN 1098 

1169 V=INT(RND<8)*68):IF Y<40 THEN 1100 

1110 IF X>=2889 THEN 1138 

1128 fi=5:G0T0 1180 

1128 IF X>=3708 THEN 1159 

1148 I'M :GOTO 1188 

1150 IF X>=4700 THEN 1170 

1160 M=2:G0T0 1158 

1178 H=2 

1188 RETURN 

1198 END 
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Column 



COLUMN 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ 



DO TO NEB> INSTRUCTIONS? YES. 



Cl8 ■ 



COLUMN 

THIS PROGRAM MILL SHOW YOU A CARD TRICK. RFTER THE FIRST DEAL 
PICK fi CfiRD RND TVPE THE NUMBER OF THE COLUMN CONTAINING IT. 
THE DEALER WILL THEN PICK UP THE CARDS, fl COLUMN AT A TINE, 
AND HILL DEAL THEN OUT AGAIN HORIZONTALLY. WEN HE FINISHES 
EACH TIME, TVPE THE NUMBER OF THE THE HEN COLUMN CONTAINING TOUR 

CARD. FOLLOWING THE LAST DEAL THE DEALER HILL TURN OVER THE 
CARDS, ONE AT A TINE, UNTIL HE REACHES THE ONE VOU PICKED. 



This program is a computer version 
of an old card trick which never fails to 
get some ooohs and aaahs from the 
uninitiated. The dealer, or magician, 
takes twenty-one random cards, deals 
them out in three piles of seven cards 
each. You then tell him which column 
(or which pile) contains your card. He 
then picks up the three columns from 
right to left, putting the right pile on the 
top, and then deals the deck out again 
horizontally. In other words the top 
card of the right column now becomes 
the top card of the left column; the 
second card in the right column now 
becomes the first card in the middle 
column; the third card of the right 
column becomes the first card in the 
third column, and so on. After he deals 
out all twenty-one cards in this way, 
you again tell him which column your 
card appears in. The magician then 
picks up the three piles in the same 
order and deals them out once again. 
Again you tell him which column 
contains your card. He then deals the 
cards out one by one face up and 
identifies yours when he comes to it. 
Don't ask me how he does it! Maybe 
you can figure it out from the program, 
but it works every time. 

This program was originally written 
by Alan Barnes. 





PRESS ANY KEY TO CONTINUE 


COLUMN »i 


COLUMN 12 


COLUHN 12 


10 OF DIAMONDS 


18 OF CLUBS 


6 OF DIAMONDS 


QUEEN OF HEARTS 


5 OF DIAMONDS 


8 OF DIAMONDS 


9 OF SPADES 


4 OF CLUBS 


2 OF SPADES 


8 OF CLUBS 


KING OF HEARTS 


- 9 OF DIAMONDS 


7 OF SPADES 


8 OF SPADES 


5 OF CLUBS 


KING OF SPADES 


7 OF DIAMONDS 


5 OF SPADES 


JACK OF DIAMONDS 


6 OF HEARTS 


4 OF HEARTS 


WHICH COLUHN CONTAINS TOUR CARD? 2. 


COLUMN fl 


COLUMN 12 


COLUMN 12 


10 OF DIAMONDS 


QUEEN OF HEARTS 


9 OF SPADES 


8 OF CLUBS 


? OF SPADES 


KING OF SPADES 


JACK OF DIAMONDS 


10 OF CLUBS 


5 OF DIAMONDS 


4 OF CLUBS 


KING OF HEARTS 


8 OF SPADES 


7 of diamonds 


6 OF HEARTS 


6 OF DIAMONDS 


8 OF diamonds 


2 OF SPADES 


9 OF DIAMONDS 


5 OF CLUBS 


5 OF SPADES 


4 OF HEARTS 


WHICH COLUMN CONTAINS YOUR CARD? 2. 


COLUMN «. 


COLUMN #2 


COLUMN e 


18 OF DIAMONDS 


3 OF CLUBS 


JACK OF DIAMONDS 


4 OF CLUBS 


7 OF DIAMONDS 


8 OF DIAMONDS 


5 OF CLUBS 


OUEEN OF HEARTS 


7 OF SPADES 


IB OF CLUBS 


KING OF HEARTS 


6 OF HEARTS 


2 OF SPADES 


5 OF SPADES 


9 OF SPADES 


KING OF SPADES 


5 OF DIAMONDS 


8 OF SPADES 


6 OF DIAMONDS 


9 OF DIAMONDS 


4 OF HEARTS 


HHICH COLUMN CONTAINS YOUR CARD? 1. 


9 OF SPADES 






8 OF SPADES 






4 OF HEARTS 






10 OF DIAMONDS 






4 OF CLUBS 






5 OF CLUBS 






2 OF SPADES 






KING OF SPADES 


OOPS!!! YOUR CARD IS 


THE 10 OF CLUBS 


6 OF DIAMONDS 






8 OF CLUBS 






7 OF DIAMONDS 






OUEEN OF HEARTS 






KING OF HEARTS 






5 OF SPADES 






DO YOU HANT TO SEE IT AGAIN? NO. 

els — 
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16 CLEAR 1668 

28 CLS 

26 PRINT 8 412, "COLUMN" 

48 PRINT 

59 PRINT TRB(?)"OTVRIGHT 1979 CREATIVE CONFUTING MGRRISTOUM, NJ" 

68 PRINT 8 966, ""; 

76 INPUT'DO VOU NEED INSTRUCTIONS"; It 

86 IF LEFTtdt, 1)="N" THEN 218 

98 CLS 

188 PRINT TAB<29)"C0LUNN" 

118 PRINT 

128 PRINT'THIS PROGRAM NILL SHOH VOU ft CURS TRICK. AFTER THE FIRST DEAL" 

128 PRINT'PICK A CARD AND TVPE THE NUMBER OF THE COLUMN CONTAINING IT. " 

148 PRIHT'THE DEALER HILL THEN PICK UP THE CARDS, A COLUMN AT A TIME, " 

158 PRINTAND NILL DEAL THEM OUT AGAIN HORIZONTALLY. WHEN HE FINISHES" 

168 PRINTEACH TIME, TVPE THE NUMBER OF THE THE HEN COLUMN CONTAINING VOUR" 

178 PRINT'CARD. FOLLOHING THE LAST DEAL THE DEALER MILL TURN OVER THE" 

188 PRINT"CflRDS, ONE AT fl T!t£ UNTIL HE REACHES THE ONE VOU PICKED. " 

198 PRINT 8 979, "PRESS ANV KEV TO CONTINUE"; 

268 IF INKEW ="" THEN 288 

218 CLS 

220 PRINT CHRt<28); 

238DIMHC21), 8(21) 

248 FOR X=l TO 21 

258 J=8 

266 T=IHT(52« RHD<8>» 

278 FOR V=i TO X-i 

288 IF R(V)=T THEN 268 

298 NEXT V 

288 A(X)=T 

218 NEXT X 

228 N=8 

238 FOR 1=1 TO 2 

248 PRINT TABC2); "COLUMN «1"; TAB<23); "COLUMN S2";TAB(44)"C0LUMN »3" 

258 PRINT STRINGt<64, 146); 

268 FOR Z=i TO 21 

376 IF A(Z)=4*< INKA(Z)/4)) THEN 498 

388 IF A<Z)-2=4*( INT<A(Z)/4)) THEN 468 

398 IF fl(Z)-2=4« INKA(Z)/4)) THEN 438 

486 C$="SPADES" 

416 Dt=" 

426 GOTO 516 

438 «-"HEARTS" 

446 Dt="" 

456 GOTO 518 

468 Ct="CLUBS" 

478 Dt="" 

488 GOTO 518 

498 C$="BIANON" 

568 Dt="DS" 

518 N=H+1 

526 IF H04 THEN 556 

538 PRINT 

548 N=i 

558 IF A(Z)>25 THEN 598 

568 CH*=STR*(!HT(AfZ)/4)+2) 

578 PRINT TAB«N-l)*21+2); RIGHTtCCNt, LENiCNtM); " OF ";Ct; Dt; 

588 IF J=5 THEN 1838 1SE 718 

598 IF INKAO/4>=9 THEN 668 

688 IF INT(B(Z)/4)=16 THES1 668 

618 IF INT(A(Z)/4)=11 THEN 646 

628 At='JACK" 

626 GOTO 696 

646 At=»8UEEN" 

658 GOTO 696 

668 fl$="KIHG" 

678 GOTO 698 

688 A$="ACE" 

696 PRINT TfiB«N-l)*2i+2); At;" OF ";«; Dt; 

786 IF J=5 THB< 1628 

718 NEXT Z 

728 PRINT 

738 FOR fl=4 TO 27 

746 SEK8, A) 

758 SET<4£ fl) 

768 SEK84, A) 

778 5ETC127, A) 

786 IC3 A 

798 FOR R=6 TO 127 

888 SETCA, 27) 

818 HOT 



828 H=B 

838 PRINT 

846 PRINTIMCH COLUMN CONTAINS VOUR CARD"; 

858 INPUT K 

868 CLS 

878 IF K<1 OR 103 THEN PRINT: PRIHT"(l-2)»- GOTO 838 

see t=i 

898 S=K+2-3*IMT«K+l>73) 

988 GOSUB 1218 

918 S=K 

926 GOSUB 1218 

938 S=K+l-3*INT(K/'3) 

948 GOSUB 1218 

958 FOR C=l TO 21 

966 A(C)=B(C) 

976 NEXT C 

988 NEXT I 

998 J=5 

1888 FOR Z=l TO 19 

1018 11=8 

1828 GOTO 276 

1828 PRINT 

1648 NEXT Z 

1858 PRINT 8 532, "OOPS! ! ! VOUR CARD IS THE "; 

1668 FL=8 

1878 At="" 

1888 FBR A=15746 TO 16383 

1698 IF PEEK(A)032 THEN FL=6: Rt=A*+CHRt<PEEK<fi»: NEXT A 

1168 IF FL=6 THEN Rt=At+" "• FL=1: NEXT A 

1116 FOR A=385 TO 428 

1128 PRINT 8 A, " ■ At; 

1138 FOR B=i TO 18 

1148 NEXT B, fl 

1158 FOR R=428 TO 556 STEP 64 

1166 PRINT 8 A-64, " " STRING«(LEN(At), 22); 

1178 PRINT i A, " " At; 

1186 FOR 8=1 TO 16 

1198 NEXT B, A 

1268 GOTO 1268 

1216 FOR R=S TO S+18 STEP 3 

1228 B(T)=A(R> 

1238 T=T+1 

1248 NEXT R 

1258 RETURN 

1268 PRINT 8 968, "D8 VOU WANT TO SEE IT AGAIN"; 

1273 INPUT Tt 

1288 IF LEFTttTt, 1)="V" THEN CLS: GOTO 248 

1298 END 
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CONCENTRATION 

COPYRIGHT 1979 CRERTIVE COMPUTING HORRISTOMH, HJ 

cls 



HIT ENTER TO STflRT? _ 



FIRST CARD? i 
SECOND CARD? 2 
» 1 IS QC t 2 IS AC 



This children's card game for any 
number of players is also called 
memory, or pelmanism. It is easy to 
play and is an excellent test of memory 
and observation. The computer version 
here simulates the actual game except 
that it only allows one player to play. In 
the actual game, one player shuffles a 
deck of playing cards and lays them 
face down on a table in all directions 
and so that no card is touching 
another. Each player tries to collect as 
many cards as possible by turning up 
pairs with the same rank per a number 
or picture. The first player to go turns 
over two cards at random and allows 
the other players to see them. If the 
rank of the two cards is the same, for 
example, two aces or two kings, he 
takes them and may turn overtwo more 
cards. He continues in this way until he 
turns over two cards that do not match. 
These cards are then placed back 
down in their original positions, face 
down, and his turn then ends. The play 
then passes to the next player. This 
player turns up one card. If it matches 
one that has already been turned over, 
he must try to remember where that 
card is. If he is successful, he takes the 
pair. He continues his turn until hefails 
to turn over a matching pair. Play 
continues in turn until all the cards 
have been collected. The winner is the 
player with the most cards at the end of 
the game. 

This game is good fun on a CRT 
terminal. Also, why not try modifying it 
to allow play by two or more players? 



FIRST CARD? 12 
SECOND CARD'' 2 
It 13 IS OS « 2 IS ftC 



PRESS ANV KEV TO CONTINUE 
els 



PRESS flNV KEV TO CONTINUE 
ols 



FIRST CURD? 53 

THERE ARE OHLV 52 CARDS IN THE DECK, NOT '. 

FIRST CORD? 41 
SECOND CARD? 2? 
i 41 IS 4C « 37 IS 7S 



PRESS HNV KEY TO CONTINUE 
Cls ■ 



FIRST CfiRD? 28 
SECOND CARD? 16 
It 20 IS 55 « 16 IS 6D 



FIRST CARD? 41 

SECOND CURD? 29 

# 41 IS 4C * 29 IS 7S 



PRESS ANY KEV TO CONTINUE 
cls 



PRESS flNV KEV TO CONTINUE 
cls 



FIRST CARD 1 37 

SECOND CARD? 29 

THAT'S A HATCH ~7S 75 

YOUR SCORE IS MOM 1 YOU HAVE HAD 6 PICKS. 



PRESS ANY KEY TO CONTINUE 
cls 



FIRST CARD? 41 

SECOND CARD? 6 

THAT'S A HATCH -4C 4C 

YOUR SCORE IS HON 2. VOU HAVE HAD 7 PICKS. 



PRESS ANY KEV TO CONTINUE 
cls 



FIRST CARD? 12 

SECOND CfiRD 35 

I 12 IS 65 i 25 IS 7S 



36 



PRESS ANY KEY TO CONTINUE 



IB OS 

28 CLEAR 1880 

36 PRINT s 418, "CONCENTRATION" 

46 PRINT 

56 PRINT TAB>:?)"COPYRIGHT 1979 CREATIVE COHPUTIHG HORRISTOHN, HJ" 

68 PRINT 568,"", 

70 INPUT-HIT ENTER TO START"; I* 

88 CLS 

98 DIM CK52) 

108 FOR X=l TO 52 

118 REM) E* 

128 CI(K)=Ef 

138 NEXT X 

148 REM - SHUFFLE PHD DEAL 

158 FOR Z=i TO 51 

168 K*=CKZ> 

178 L=INT«52-2>*RND(0H1) 

188 CKZXKL+Z-1) 

198 C«L>=K* 

208 (EXT • 

218 REN - STRRT TO PLAV 

228 F8R N=i TO 26 

230 PRINT 

248 PRINT "FIRST CARD'" 

258 INPUT U 

268 IF U > AND U < 53 THBI 298 

276 PRINT "THERE ARE ONLY 52 CARDS IN THE DECK. N0T";U; CHJ»<8>;" " 

286 GOTO 238 

298 LET 6=1 

288 IF C«U>=" " THEN 768 

210 PRINT "SECOND CfiRD"; 

228 INPUT tl 

338 IF H> 8 AND U <52 THEN 368 

248 PRINT "THERE ARE ONLY 52 CARDS IN THE DECK, NOT"; Hi CHR«8);" " 

350 GOTO 318 

268 LET 6=2 

278 IF C$(H)=" " THEN 760 

380 IF U O H THEN 418 

398 PRINT "VOU CAN'T PICK THE SANE CARD TWICE?" 

408 GOTO 218 

410 IF MIM(CttU), 1, 1>=NIM<C«H>, 1, 1) THEN 478 

428 PRINT "«";U;*IS ";C*(U>, "i";U;"I5 ";B(H), 

438 FOR 1=1 TO 58 

448 PRINT; 

458 NEXT 1 

466 GOTO 528 

476 PRINT "THAT'S A HATCH --";C$ttl>, B(M> 



486 LET C«U>=" " 




498 LET C«H)=" ' 




588 LET S=S+1 




518 PRINT "YOUR SCORE IS H0M";S; CHRK8);" YOU HAVE HAD"; N; "PICKS. ' 


526 PRINT 979, "PRESS ANY KEY TO CONTINUE"; 




538 IF INKEW =" THEN 538 




540 CLS 




556 NEXT N 




566 REM - THE RESULTS 




578 LET Sl=S/(N/4) 




588 PRINT "YOU SCORED"; S; "OUT OF"; Hi CHR*<8>;° THAT IS "i 




596 ON Sl+1 5 60T0 688, 628, 648, 688 




686 PRINT "POOR " 




618 GOTO 696 




628 PRINT "FAIR. " 




638 GOTO 698 




648 PRINT "GOOD. " 




658 GOTO 698 




666 PRINT "EXCELLENT ' ' '" 




678 GOTO 698 




688 PRINT " HAAH UK ... YOU MUST HAVE CHEATED! " 




696 PRINT 




780 PRINT "DO YOU WOT TO PLAY AGAIN"; 




716 INPUT 2$ 




720 IF LEFWZi, 1)="V" THEN 158 




738 PRINT 




740 PRINT "COMEBACK AGAIN! 1 " 




750 El© 




768 PRINT "YOU HAVE ALREADY MATCHED THAT CARD. " 




778 IF G=i THEN 238 




788 G8T0 318 




796 DATA "AS", "2S", "3S", "4S", "5S", "65", *7S", "8S", "9S", "185" 


"JS", "OS 


886 DATA "KS" 




818 DATA "AH", "2H«, "3H", "4H», "5H", "6H", "7H", "8H", "9H", "18H" 


"JH", "OH 


826 DATA "KH" 




838 DATA "AD", "2D", "3D", "4D", "5D", "60", "7D", "8D", "9D", "18D" 


"JD", "QD 


848 DATA "KD" 




858 DATA "AC", "2C", "3C", "4C", "5C", "6C", "7C", "8C", "9C", "18C" 


•JC", "QC 


860 DATA "KC" 




870 END 




886 FOR XX=1 TO 4866 




890 NEXT 




988 RETURN 




916 FOR YY=i TO 2886 




928 NEXT 




936 RETURN 
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Ctontiot 



This is the old childhood favorite of 
"connect the dots." The objective is to 
carve out squares of "real estate" with 
the computer as an able adversary. The 
player who connects the two dots 
which complete a square gets 
ownership of that square. In addition, 
the player gets the added bonus of 
moving once more. This can be quite 
advantageous in certain situations. A 
nine-square grid is provided as a 
playing board. 

A sample of the grid follows with an 
identification of each coordinate where 
a line may be drawn. 



(1,2) (1,4) (1,6) 

(2,1) (2,3) (2,5) (2,7) 

(3,2) (3,4) (3,6) 

(4,1) (4,3) (4,5) (4,7) 

(5,2) (5,4) (5,6) 

(6,1) (6,3) (6,5) (6,7) 

(7,2) (7,4) (7,6) 



You'll find it interesting to note that 
the computer mirrors the player's move 
in so far as possible. You may also find 
that the game moves rather slowly, 
especially for the first three or four 
moves. Be patient! Once squares begin 
to fall, the game moves swiftly to its 
conclusion. 

There are some modifications that 
you may wish to consider if you are 
going to adopt this program for regular 
use. In addition to improving the REM 
statements in the program, I would 
suggest: 

1. Modifying the program so that the 
grid is printed after both players 
have moved (rather than each time a 
move is made); 

2. Modifying the program so that once 
a player had ownership of a majority 
of the squares, the game would end 
rather than proceed to its inevitable 
conclusion; and 

3. Modify the program so that the 
player's initials appear in each 
square he captures. 

The program is by Chuck Lund; the 
writeup by Pete Olivieri. It originally 
appeared in Creative Computing, 
Jan/Feb 1976. 



CONNECT THE DOTS 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



HIT ENTER TO START? _ 



■ CIS • 



THIS PROGRAM WILL PLRV CONNECT THE DOTS WITH VOU. 
THE GAME IS PLAVED ON ft 4 X 4 ARRAV. WHEN 
VOU WANT TO MAKE A MOVE VOU MUST TVPE IN 
THE COORDINATES OF THE SPACE BETWEEN THE TWO DOTS VOU 
HflNT TO CONNECT. ENTER EACH OF VOUR MOVES BV TVPING 
THE ROW NUMBER, ft COMMA AND THE COLUMN NUMBER. 
THE UPPER LEFT HAND CORNER OF THE ARRAV IS 1, 1. 
HERE WE GO. 

PRESS ANV KEV TO CONTINUE 



12 3 4 5 



- els • 

6 7 



VOUR MOVE? 1, 1 

VOU REALLV DON'T WANT TO PUT A LINE THERE! 



VOUR MOVE? 1, 2_ 



4 5 6 



VOUR MOVE? 7,5 

VOU REALLV DON'T WANT TO PUT A LINE THERE! 



VOUR MOVE? 7,4_ 



■ els 



3 4 5 6 



VOUR MOVE? 1, 6- 



12 3 4 5 6 7 



VOUR MOVE? 



■ els ■ 



4 5 6 



VOUR MOVE? 4,1. 



• els - 



3 4 5 6 



VOUR MOVE? 



els ■ 

12 3 4! 



VOUR MOVE? 4, 3_ 



12 3 4 5 6 7 



VOUR MOVE? 5, 4_ 



■ els • 



12 3 4 5 6 



VOUR MOVE? 


2, 


3. 


els 


1 2 




3 


4 5 6 7 


1 








O 






H 


3 








4 






C 


5 








6 








VOUR MOVE? 


3. 


.. 6 
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■ els - 



■ els ■ 



12 3 4 5 6 
H H 

C 



12 3 4 5 6 

C H H 

C C C 
C 



TOUR MOVE? 


6,3. 










els 






1 


2 


3 


4 


5 6 7 


1 










2 


C 




H 


H 


3 










4 


C 




C 




5 










6 


C 









«V MOVE 



els ■ 



3 4 5 6 
H H 



MV MOVE 



■ els ■ 



I WON 

DO YOU WANT TO PLRY AGAIN? NO_ 

els 



10 CLS. PRINTO40S, "CONNECT THE DOTS" 
26 PRINT: PRINT TfiB(7) "COPYRIGHT 1979 



NJ" 



INPUT "HIT ENTER TO START 
"CONNECT THE DOTS" 



CREATIVE COMPUTING 

as 



■ It: 



MORRISTOWN, 
28 PRINT0960, ""; 
40 PRINT TABC20) 
56 PRINT 

68 PRINT "THIS PROGRAM WILL PLAY CONNECT THE DOTS WITH YOU. » 
78 PRINT "THE GAME IS PLAYED ON A 4 X 4 ARRAY. WHEN" 
80 PRINT "YOU WANT TO HAKE A MOVE YOU MUST TYPE IN" 
90 PRINT "THE COORDINATES OF THE SPACE BETWEEN THE TWO DOTS YOU" 
100 PRINT "WANT TO CONNECT. ENTER EACH OF YOUR MOVES BY TYPING" 
118 PRINT "THE ROW NUMBER, A COMMA AND THE COLUMN NUMBER " 
128 PRINT "THE UPPER LEFT HAND CORNER OF THE ARRAY IS 1, 1. " 
130 PRINT "HERE WE GO. " ■ PRINTU979, "PRESS ANY KEY TO CONTINUE"; 
140 IF INKEY*=" THEN 140 ELSE CLS 
156 DIM AC12, 12) 
16S V=8 

170 FOR R=l TO 12 
180 FOR C=l TO 12 
190 IF R/2=INTCR/2> THEN 230 
200 IF C/2=INTCC/2) THEN 230 
210 ACR,C)=-58 
220 GOTO 240 
230 ACR, C>=0 
240 NEXT C 
250 NEXT R 
260 IF V=l THEN 270 
270 GOSUB 1120 

230 PRINT: PRINT "YOUR MOVE"; 
298 INPUT X,Y 
300 IF X=INTCX> THEN 330 

-<10 PRINT "YOU REALLY DON'T WANT TO PUT A LINE THERE""" 
320 GOTO 280 

336 IF CX-l)*CX-7)>0 THEN 210 
340 X=X+2 

350 IF CY-l)*CY-7)>0 THEN 210 
360 Y=Y+2 

370 IF CX+Y+1V20INTCCX+Y+1V2) THEN 310 
380 IF A<X,Y)O0 THEN 310 
390 ACX, Y)=50 

400 IF X/2=INTCX/2) THEN 478 

410 IF A<X-2, YHACX-1, Y+D+ACX-1, Y-DO150 THEN 440 
420 P=l 
43S RCX-1, Y>=1 

440 IF flCX+2,Y)+ACX+l,Y+i)+ACX+l,V-l)O150 THEN 530 
450 HCX+1, Y>=1 

460 GOTO 270 

470 IF ACX, Y-2HACX+1, Y-D+ACX-1, Y-DO150 THEN 560 

480 ACX, Y-l)=l 

498 P=l 

500 IF ACX, Y+2)+A(X+l, Y+D+ACX-1, Y+DO150 THEN 530 

510 ACX, Y+l)=l 

520 GOTO 270 

536 IF P=l THEN 270 

548 GOSUB 1120 

550 PRINT:PRINT "MY MOVE" 

560 FOR R=4 TO 10 STEP 2 

570 FOR C=4 TO 10 STEP 2 

580 IF ACR-1,C)+ACR+1,C)+ACR,C-1)+ACR,C+1X>150 THEN 770 

590 ACR,C)=-1 



C-1)+ACR+1,C-1)=100 THEN 950 
C+2)+ACR+l, C+DO160 THEN 910 



600 IF RCR-1, OO0 THEN 640 

610 ACR-1,C)=50 

628 IF fl<R-3,CMACR-2,C-l)+ACR-2,C+l>O150 THEN 540 

638 LET ACR-2, C)=-l 

648 IF A(R+1, C)O0 THEN 680 

650 ACR+1, C)=50 

660 IF ACR+3, O+ACR+2, C-D+ACR+2, C+DO150 THEN 540 

670 RCR+2, C)=-l 

688 IF ACR, C-DO0 THEN 720 

690 ACR, C-l>=50 

780 IF ACR, C-3HACR-1, C-2HACR+1, C+2K>150 THEN 540 

710 ACR,C-2)=-l 

720 IF ACR,C+1>O0 THEN 540 

730 ACR, C+l>=50 

748 IF A<R, C+3)+ACR-l, C+2HACR+1, C+2)O150 THEN 540 

750 ACR, C+2)=-l 

766 GOTO 540 

7?B NEXT C 

788 NEXT R 

798 IF E>1 THEN 840 

808 IF AC12-X, 12-YX>0 THEN 840 

810 AC12-X, 12-Y>=50 

820 IF E>1 THEN 980 

830 GOTO 270 

840 FOR R=3 TO 9 

850 FOR C=3 TO 9 

860 IF CR+CV2=INTCCR+CV2> THEN 958 

870 IF ACR, OO0 THEN 950 

888 IF R/2=INTCR/2) THEN 920 

890 IF ACR-2, D+ACR-1, C-D+ACR-1, C+1)=1O0 THEN 950 

900 IF RCR+2, 0+ACR+1, C-D+ACR+1, C+1)=1B0 THEN 950 

910 ACR, O=50 

928 GOTO 278 

938 IF ACR, C-2)+ACR-l. 

948 IF ACR, C+2HACR-1. 

958 NEXT C 

968 NEXT R 

970 IF E>1 THEN 800 

988 R=INTCRNDC0>*7>+3 

99B C=INTCRNDC0)*7)+3 

1080 IF R/2=INTCR/2) THEN 1830 

1010 IF C/2=INTCC/2) THEN 1050 

1820 GOTO 980 

1030 IF C/20INTCC/2) THEN 1050 

1040 GOTO 980 

1050 IF ACR, CX>0 THEN 980 

I860 ACR, C)=50 

1870 GOTO 270 

1080 PRINT "DO YOU WANT TO PLAY AGAIN 

1090 INPUT Bf 

1100 IF LEFTSCB*, 1)="Y" THEN 170 

1110 END 

1120 P=0: PRINT00, " 1 

1130 D=0 

1149 E=0 

1150 FOR R=3 TO 9: PRINT " ";R-2;" 
1160 FOR C=3 TO 9 
1170 IF ACR, C)O0 THEN 1208 
1180 PRINT " "; 
1190 GOTO 1350 

1280 IF ACR, OO-50 THEN 1230 
1210 PRINT " "; CHR*C140); " "; 
1228 GOTO 1350 

1230 IF ACR, OO-l THEN 1260 
1240 PRINT " C "; 
1250 GOTO 1280 
1260 IF ACR,C)01 THEN 1310 
1278 PRINT " H "; 
1280 D=D+ACR,C) 
1290 E=E+1 
1200 GOTO 1350 

1310 IF R/2=INTCR/2) THEN 1240 
1320 PRINT STRING*C3, 140); 
1238 GOTO 1350 

1340 PRINT " "; CHR*C191); " "; 
1358 NEXT C 
1368 PRINT 
1378 NEXT R 

1380 IF E>=9 THEN 1488 
1298 PRINT: PRINT CHRSC21); RETURN 
1400 PRINT: PRINT: IFD>8 THEN 1430 
1410 PRINT "I WON" 
1420 GOTO 1080 
1438 PRINT "YOU WON!! 1 " 
1446 GOTO 1080 
1450 END 
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COPVRIGHT 1979 



CONVOV 
CRERTIVE COMPUTING 

• els — 



MORRISTOWN, NJ 



DO VOU NEED INSTRUCTIONS? YES_ 
— els 



THIS NAVAL WAR GAME IS PLAYED ON fl 10 BV 10 MfiTRIX. 
VOU fiRE THE SUB; THE COMPUTER IS fl CRRGO SHIP AND ITS TWO 
DESTROVERS. THE SHIP STARTS IN SQUARE 100 AND RANDOMLY MOVES 
TO SQUARE 1, MOVING 0, 1, 2, OR 3 SQUARES AT A TIME. 

ONE OF THE SHIP'S DESTROVERS STARTS AT SQUARE 78 AND MOVES 
RANDOMLY 0, 1, 2 OR 3 SQUARES AT A TIME SEARCHING FOR THE SUB. 
THE OTHER DESTROYER STAYS WITHIN ONE SQUARE OF THE SHIP AS 
m ESCORT. THE SUB STARTS IN SQUARE 12, CBN MOVE UP, DOWN, 
LEFT OR RIGHT 1 SQUARE AT fl TIME, 2 MOVES PER TURN, AND IT 
HAS TORPEDOES WHICH IT CAN FIRE 1 HT A TIME IN ANY STRAIGHT 
LINE AFTER EACH SUB MOVE, THE PERISCOPE WILL SEARCH 
EACH ADJACENT SQUARE FOR THE SHIP, ALSO RANDOM RECONNAISANCE 
REPORTS WILL BE MADE. 

PRESS ANY KEY TO CONTINUE 
Cl8 

THE SEQUENCE OF PLAY IS. 

1 - SHIP AND DESTROYERS MOVE 

2 - YOUR MOVE 

3 - YOU CAN FIRE A TORPEDO 

4 - PERISCOPE SEARCH 

5 - YOUR MOVE AGAIN 

6 - BACK TO NUMBER 1 

THE SUB WINS IF IT SUCCEEDS IN HITTING THE SHIP WITHIN 4 
TORPEDOES WITHOUT MOVING TO A SQUARE OCCUPIED BY A DESTROYER. 
TO 'FIRE?' ANSWER: 'NO', 'L', 'R', 'U', 'D', 'LU', 'LD', 'RU', OR 'RD' 



This is a naval war game played on a 
10 by 10 grid. You are a submarine and 
the computer plays the role of the 
convoy consisting of a cargo ship and 
two destroyers. One destroyer acts as 
the escort traveling alongside the 
cargo ship, while the other searches for 
the submarine and tries to destroy it. 
The destroyer which is searching for 
the submarine moves from zero to 
three squares at a time, searching. The 
other destroyer stays within one 
square of the ship. The submarine 
starts in square #12 and can move up, 
down, left, or right one square atatime 
with two moves per turn. It has four 
torpedoes which may be fired one at a 
time in any straight direction, horizon- 
tally, vertically, or diagonally. 

The game ends when either the 
submarine destroys the cargo ship or 
when one of the two destroyers gets 
the submarine. 



'V = LEFT, 'R' = 


RIGHT, 'U' 


= UP, 'D 
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'RU' = RIGHT UP, 
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= RIGHT DOWN. 
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SUB IS MOW AT 18. 
SUB'S MOVE? 38. 



SHIP HAS MOVED. 

DESTROVER LAST SIGHTED AT 78. 



THE 
BOARD 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


36 


37 




39 


40 


41 


42 


43 


44 


45 


46 


47 


48 


49 


58 


51 


52 


53 


54 


55 


56 


57 


58 


59 


60 


61 


62 


63 


64 


65 


66 


67 


68 


69 


70 


71 


72 


73 


74 


75 


76 


77 


78 


79 


80 


81 


82 


83 


84 


85 


86 


87 


88 


89 


90 


91 


92 


93 


94 


95 


96 


97 


98 


99 108 



DESTROVER HAS MOVED. 
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10 CLEAR500: CLS: PRINTC412, "CONVOV" 

2B PRINT: PRINT TAB<7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOWN, NJ" 

38 PRINT?960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; If 

40 IF LEFT*<I*,1)="N" THEN CLS: GOTO 350 

53 CLS: PRINT TflB<29); "CONVOV"" PRINT 

68 PRINT " THIS NAVAL WAR GAME IS PLflVED ON fi 10 BV IB MATRIX " 

78 PR1KT°V0U ARE THE SUB. THE COMPUTER IS fl CflRGO SHIP HMD ITS TWO" 

SO PRINT"DESTROVERS. THE SHIP STRRTS IN SGURRE 188 RND RANDOMLY MOVES" 

90 PRINT"TO SQUARE 1, MOVING 0, 1, 2, OR 3 SOUARES AT A TIME. " 

186 PRINT" ONE OF THE SHIP'S DESTROYERS STARTS AT SQUARE 78 AND MOVES" 

110 PRINT"RANDOMLY 0, 1, 2 OR 3 SQUARES AT A TIME SEARCHING FOR THE SUB. " 

128 PRINT"THE OTHER DESTROYER STAYS WITHIN ONE SQUARE OF THE SHIP AS" 

130 PRINT"HN ESCORT. THE SUB STARTS IN SQUARE 12, CRN MOVE UP, DOWN, " 

140 PRINT'lEFT OR RIGHT 1 SQUARE AT A TIME, 2 MOVES PER TURN, AND IT " 

15B PRINTERS TORPEDOES WHICH IT CAN FIRE 1 AT A TIME IN ANY STRAIGHT" 

160 PRINTLINE. AFTER EACH SUB MOVE, THE PERISCOPE WILL SEARCH" 

178 PRINT"EACH ADJACENT SQUARE FOR THE SHIP. ALSO RANDOM RECONNAISANCE" 

180 PRINT"REPORTS WILL BE MADE. " 

198 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

288 IF INKEY*="" THEN 208 ELSE PRINT§128, CHR$(31); 

210 PRINT" THE SEQUENCE OF PLAY IS:" 

220 PRINT" 1 - SHIP AND DESTROYERS MOVE" 

230 PRINT" 2 - YOUR MOVE" 

240 PRINT" 3 - YOU CAN FIRE A TORPEDO" 

250 PRINT" 4 - PERISCOPE SEARCH" 

2S8 PRINT" 5 - YOUR MOVE RGAIN" 

278 PRINT" 6 - BACK TO NUMBER 1" 

288 PRINT" THE SUB WINS IF IT SUCCEEDS IN HITTING THE SHIP WITHIN 4 " 

298 PRINFTORPEDOES WITHOUT MOVING TO A SQUARE OCCUPIED BY A DESTROYER. " 

300 PRINT"TO 'FIRE?' ANSWER: 'NO', 'L', 'R', 'U', 'D', 'LU', 'LD', 'RU', OR 'RD' ' 

310 PRINT"'L' = LEFT, 'R' = RIGHT, 'U' = UP, 'D' = DOWN, 'LU' = LEFT UP, " 

328 PRINT"'RU' = RIGHT UP, 'RD' = RIGHT DOWN " 

338 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

340 IF INKEY*=»" THEN 340 ELSE CLS 

358 PRINT TAB<24>; "123456789 10" 

360 FOR 1=1 T09 

378 PRINT TRBC24); . FOR J=l TO 10 

280 PRINT USING "### "; I*18+J; 

390 NEXT J 

480 NEXT I 

418 PRINW256, "THE"; PRINT6228, "BOARD"; PRINT8640, STRING*<64, 191); 

428 D=12 

430 T=4 

44S S-1B0 

450 C=78 

468 C2=78 

478 L=100 

488 IF C=-100 THEN 538 

498 GOTO 2970 

588 Y3=0 

510 Ml=8 

520 G0T0568 

530 Ml=8 

548 IF S=2 THEN 1228 

559 Y3=l 

568 IF S=3 THEN 1220 

570 IF S=ll THEN 1220 

5S6 IF S=12 THEN 1220 

598 IF S=21 THEN 1220 

608 X=RND<8) 

610 IF X>. 4 THEN 678 

620 IF X>. 2 THEN 690 

628 IF X>. 85 THEN 658 

640 GOTO 1000 

658 S1=0 

660 GOTO 700 

676 Sl=2 

680 GOTO 700 

690 Sl=l 

700 X=RND<0) 

710 IF XC 75 THEN 748 

720 Pl=l 

738 GOTO 810 

740 Pl=-1 

750 GOTO 810 

760 IF S=18*INT<S/10) THEN 880 

770 GOTO 848 

788 IF S=1+(10*INT(S/18)> THEN 888 

730 GOTO 840 

800 P1=P1«-1) 

810 N2=P1*C(INT(2*<RND(0)))*9)+1) 

828 IF 112=1 THEN 768 



838 IF H2=-l THEN 788 

846 IF M1=M2*C-1> THEN 800 

850 C1=S+H2 

868 IF Cl=l THEN 1220 

870 IF C1=D THEN 2828 

888 IF C1=C THEN 880 

898 IF CK1 THEN 888 

988 IF CD100 THEN 800 

910 M1=M2 

920 S=C1 

930 C6=S+<CINTC2*RND(8))*(-2)>+l)*(CINT<2*RND(0))*9)+l) 

948 IF C6<2 THEN 930 

958 IF C6M08 THEN 930 

968 IF C6= D THEN 2808 

978 IF Sl=l THEN 658 

980 IF Sl=2 THEN 698 

m C2=8 

1000 PRINT0736, "SHIP HAS MOVED. "; 

1010 IF Y3=9 THEN 1648 

1828 X1=0 

1838 GOTO 2390 

1840 REM 

1950 Xl=l 

I860 PRINT0768, "SUB AT"; D; CHRf <8); " "; CHR*<30>; 

1070 PRINTO880, "SHIP LAST SEEN AT"; L; CHR#<8); " "; CHR*<38); 

1888 PRINT0832, "FIRE"; CHR«38>; 

1090 INPUT A* 

1100 IF LEFWAS, i)="N" THEN 1780 

1110 TP*=STRING$<3, 148) ■ IF A*="L" THEN 1246 

1120 IF R*="R» THEN 1260 

1130 TP*=" "+CHR$(191)+" "' IF A$="U" THEN 1280 

1140 IF A$="D" THEN 13O0 

1158 TPf=CHR*>:i31)+CHR*<140)+CHRf (176) • IF A$="LU" THEN 1328 

1169 IF A*="RD" THEN1380 

1178 TPt=CHR*(176)+CHR*(140)+CHRfC13D- IF ft*="RU" THEN 1360 

1188 IF A*="LD" THEN 1348 

1198 PRINTS832, "ANSWER NO, L, R, U, D, LU, LD, RU OR RD. "; CHRIG8); 

1208 FOR TM=1 TO 508: NEXT 

1218 GOTO 1686 

1220 CLS: PRINT"SHIP'S IN PORT. " 

1230 GOTO 2850 

1248 Pl=-1 

1258 GOTO 1398 

1268 Pl=l 

1270 GOTO 1390 

1280 Pl=-10 

1290 GOTO 1290 

1280 Pl=10 

1218 GOTO 1298 

1328 Pl=-ll 

1320 GOTO 1390 

1348 Pl=9 

1350 GOTO 1390 

1260 Pl=-9 

1370 GOTO 1290 

1380 Pl=ll 

1398 D1=D 

1488 D1=D1+P1 

1418 XC=INT(D1/10) ' YC=D1-XC*18: SP=XC*64+YC*4+20 

1420 IF INT<D1/1O)OD1/10 THEN 1440 

1428 SP=<XC-l)*64+(YC+10)*4+20 

1440 PRINT8SP, TP*; FOR TM=1 TO 28: NEXT TM 

1450 PRINT8SP, ""; PRINTUSING"###"i Dl; 

1468 IF D1=S THEN1536 

1470 IF D1=C THEN 1570 

1480 IF Dial THEN 1658 

1490 IF Dl>90 THEN 1690 

1508 IF D1=10*INT(D1/10) THEN 1618 

1510 IF D1=1+(18*INT<D1/18)) THEN 1620 

1528 GOTO 1480 

1530 CLS. PRINT"KER-BOOM! ! CARGO SHIP DESTROYED 1 " 

1548 PRINT :PRINT"YOU WIN! 1 " 

1550 Q=l 

1560 GOTO 2850 

1570 PRINTO822, "WHflHO! ! DESTROYER SUNK. "; M»O0); 

1580 FOR TM=1 TO 500: NEXT TM: C=-180 

1590 T=T-1 

1660 GOTO 1768 

1610 IF D=10*INT(D,'16> THEN 1408 

1628 GOTO 1738 

1638 IF D=1+<10*INT(D/10>> THEN 1400 
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1646 GOTO 1730 

1650 IF DM0 THEN 1730 

1660 IF Dl<2 THEN 1738 

1670 IF Dl>9 THEN 1730 

1680 GOTO 1400 

1638 IF DC91 THEN 1730 

1700 IF D1C92 THEN 1730 

1710 IF Dl>99 THEN 1730 

1720 OOTO 1400 

1738 T=T-1 

1740 PRINT0S22, "MISS. "; CHRfGO); 

1750 FOR TM=1 TO 500: NEXT TM: IF T=0 THEN 2840 

1760 PRINT0896, T; "TORPEDOES LEFT. »;CHR*O0); 

1770 GOTO 1030 

1730 PRINT 

1798 V=0 

1800 PRINT0822, "UP PERISCOPE. "; CHR*(30>; 

1810 FOR TM=1 TO 508: NEXT TM 

1828 V2=0 

1830 IF S=D THEN 1980 

1840 IF S=D-i THEN 1930 

1850 IF S=D+1 THEN 1980 

1868 IF S=D-10 THEN 1980 

187B IF S=D+10 THEN 1980 

1880 IF S=D-9 THEN 1988 

1890 IF S=D+9 THEN 1980 

1900 IF S=D-11 THEN 1980 

1910 IF S=0+11 THEN 1980 

1920 IF V=l THEN 2010 

1930 PRINT0896, "SHIP NOT IN SIGHT. ";CHR*(30>; 

1948 X=RND<0> 

1950 IF XC 35 THEN 2010 

I960 REM 

1978 V2=-i 

1980 PRINT0896, "SHIP AT";S;CHR*<8>; " "; CHR*<30>; 

1990 V2=V2+1 

2080 L=S 

2010 IF C=D THEN 2330 

2820 IF C6=D THEN 2800 

2030 IF C=D+1 THEN 2310 

2040 IF C6=D+1 THEN 2290 

2050 IF C=D-1 THEN 2310 

2068 IF C6=D-1 THEN 2290 

2070 IF C=D+9 THEN 2310 

2088 IF C6=D+9 THEN 2290 

2090 IF C=D-9 THEN 2310 

2180 IF C6=D-9 THEN 2290 

2110 IF C=D+10 THEN 2310 

2120 IF C6=D+10 THEN 2290 

2130 IF C=D-16 THEN 2310 

2140 IF C6=D-10 THEN 2290 

2150 IF C=D+il THEN 2310 

2160 IF C6=D+11 THEN 2290 

2170 IF C=D-11 THEN 2310 

2180 IF C6=D-11 THEN 2290 

2190 IF C=D+2 THEN 2310 

2280 IF C=D-2 THEN 2310 

2210 IF C=D+20 THEN 2310 

2220 IF C=D-20 THEN 2210 

2230 IF O-100 THEN 2378 

2248 IF V=l THEN 2380 

2250 X=RND<0> 

2260 IF XC 6 THEN 2270 

2270 PRINT@896, "RECON. PLANE SPOTS TIN CAN AT"; C;CHR$<8); " 

2288 GOTO 2350 ";CHR$<30>; 

2290 PRINT0896, "ESCORT VERY NEAR!";CHR$C20>; 

2200 GOTO 2370 

2310 PRINT0896, "DESTROYER CLOSING IN AT"; C; CHR*<8>; " ";CHR$(30) 

2320 GOTO 2358 

2338 PRINT8896, "DESTROVER DIRECTLV OVER HEAD. "; CHR«30>; 

2340 GOTO 2760 

2358 C2=C 

2360 C3=l 

2370 IF V=0 THEN 2390 

2388 RETURN 

2398 REM 

2408 PRINT0768, "SUB IS NOW AT"; D; CHR*(8); " ";CHR$<30>; 

2410 IF C2=l THEN 2440 

2428 IF C=-180 THEN 2440 

2430 PRINT0800, "DESTROVER LAST SIGHTED AT"; C2; CHR«8); " "; 

2448 D2=0 CHR«20); 

2450 PRINT8832, "SUE'S MOVE"; CHR$<30>; 

2468 V=l 



2478 INPUT X: GOTO 2518 

2480 XC=INT(PO/10) • VC=P0-XC*18: PA=XC*64+VC*4+28 

2498 IF INT(PO/18)=PO/10 THEN PA=<XC-l)*64+(VC+10>*4+20 

25S8 RETURN 

2510 IF X=D THEN 2648 

2520 IF XC2 THEN 2730 

2530 IF XM00 THEN 2730 

2540 IF X=INTCX> THEN 2560 

2550 GOTO 2730 

2560 IF X=D+1 THEN 2610 

2578 IF X=D-1 THEN 2630 

2580 IF X=D+10 THEN 2640 

2590 IF X=D-10 THEN 2640 

2608 GOTO 2730 

2618 IF D=10*INT<D/10) THEN 2738 

2628 GOTO 2648 

2638 IF X=18*INT<X/10> THEN 2738 

2648 PO=D: GOSUB 2480: PRINTCPA, "»; : PRINTUSING"#(t#"; D; 

2650 D=X: PO=D: GOSUB 2488: PRINTCPA, STRING*<2, 140); 
CHR*(143>; 

2660 GOSUB 1820 

2670 IF D2=l THEN 2700 

2680 D2=l 

2690 GOTO 2458 

2780 IF Xl=8 THEN 3250 

2718 IF C=-100 THEN 530 

2728 GOTO 2978 

2730 PRINTC832, "CAN'T DO. ";CHR$<38>; 

2740 FOR TM=i TO 500: NEXT TM 

2750 GOTO 2450 

2768 X=RND<0> 

2770 IF XC 8 THEN 2800 

2780 PRINT9896, "DEPTH CHARGE JUST MISSED! ";CHR*<38>; 

2798 GOTO 2350 

2880 CLS: PRINT"VAROOM! .' SUB DEPTH CHARGED 1 " 

2810 GOTO 2850 

2828 PRINTO896, "SHIP NOW OVERHEAD. "; CHR$<38>; 

2838 GOTO 530 

2840 CLS: PRINT"flMMO DEPLETED. " 

2850 PRINT 

2860 IF Q=0 THEN 2390 

2878 Q1=S1+1 

2880 GOTO 2988 

2898 Q2=S2+1 

2900 PRINT"SCORE: COMPUTER"; Q2; " - SUB";Q1;CHR$<8); " " 

2310 PRINT 

2320 Q=0 

2930 PRINT "NEW GAME"; 

2348 INPUT N$ 

2950 IF LEFT*(N$, 1>="N" THEN 3270 

2960 CLS: GOTO 350 

2978 Ml=8 

2388 Sl=8 

2998 X=RND<8) 

3080 IF XC 6 THEN 3030 

3818 Pl=l 

2828 GOTO 3040 

3838 Pl=-1 

3048 M2=<P1*C<INK2*RND(0>>)*9>+1> 

3050 IF M2=l THEN 3198 

3060 IF M2=-l THEN 2210 

3070 IF t1l=M2*C-l) THEN 3220 

2888 C1=C+M2 

3690 IF C1=D THEN 2800 

2180 IF C1=S THEN 2238 

3110 IF C1C2 THEN 3230 

3120 IF C1M00 THEN 3230 

3130 M1=M2 

3140 C=C1 

3150 IF Sl=l THEN 530 

3160 Sl=l 

3170 PRINT8704, "DESTROVER HAS MOVED. "; 

3188 GOTO 2998 

3190 IF C=10*INT(C/10) THEN 2228 

2200 GOTO 3070 

3210 IF C=i+(10*INT<C/10» THEN 3230 

3220 GOTO 3078 

3230 P1=P1*C-1) 

3248 GOTO 2040 

3250 IF V2=0 THEN 1040 

2260 GOTO 500 

2270 FOR XX=1 TO 1000: NEXT XX: END 
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CORRAL is a game program 
inspired by Harry (short for Aragon), 
a horse acquired in a rash moment of 
indulgence for a teen-age daughter. 
Harry, in his own inimitable style, 
taught us much about the care, feed- 
ing and psychology of the equine 
species. Some of that hard-won 
psychology has found its way into 
CORRAL, which is a one-dimension- 
al simulation of the two-(and almost 
three-) dimensional problem of 
catching Harry for anything other 
than food. The main reason for 
confining Harry's ego in the comput- 
er to only one dimension is simply to 
conserve paper on hard-copy termi- 
nals. Even so, the presentation is 
very effective on a video display unit. 

The corral itself is bounded by a 
pair of siderails represented by 
graphics blocks separated by 21 
spaces. The cowboy C always enters 
beside the leftmost rail while the 
horse H is happily mooching some- 
where between positions 10 and 18 
with a bias towards the right. This 
bias and the various other behavioral 
peculiarities of the horse are gov- 
erned by two data matrices (state- 
ments 90 and 100) which may be 
altered to vary the beast's tempera- 
ment from wild to docile depending 
on the data distribution. 

If the horse bolts, a check is 
made (line 410) to ensure that it does 
not reach a position less than one 
space away from the cowboy. Occa- 
sionally, the horse bolts to a position 
more advantageous to the cowboy, 
just as in real life, but usually the 
opposite is true, particularly when it 
bolts as a result of an incautious 
approach by the cowboy. So heed 
with care the advice for the cowboy 
not to advance by more than half the 
separation in any one move except 
when adjacent to the horse, of 
course! 

The probability that the horse 
may kick when the cowboy moves 
close is set by the IF statement at 
line 440. The cowboy is immobilized 
for from one to five moves, while the 
horse canters happily away from the 
scene of his triumph. If this happens 
more than a certain (random) number 
of times the round-up is terminated 
by the departure of the cowboy in an 
ambulance. 



Occasionally the horse decides to 
engage in a friendly dance around the 
cowboy, but remember that random 
number generators have no soul and 
the result is often vile treachery as 
the horse delivers a fatal kick at the 
very moment when a successful 
catch seems assured. On the other 
hand, the skill of an accomplished 
CORRAL cowboy can result in a 
catch within three moves with no 
injuries sustained. You either have it 
or you have not, as the saying goes. 
In the latter case the program allows 



a maximum of 100 moves before 
relegating the luckless cowboy to 
cookhouse chores. 

Computer freaks with multi-color 
graphics will no doubt be dissatis- 
fied with such prosaic symbols as H 
and C for the horse and cowboy. A 
fully animated CORRAL in living 
color (with sound effects by a music 
or speech synthesizer— a talking 
horse yet!) should not be too difficult 
to achieve. 

Program and description are by 
Colin Keay. 



CORRAL 
COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 



■ els • 



DO V0U NEED INSTRUCTIONS? V_ 

__ els — — 

V0U ARE THE COWBOY. GO CATCH YOUR HORSE IN THE CORRAL! 

YOU MOVE TOWARD YOUR HORSE 1 TO 5 STEPS AT A TIME. 
IF YOU MORE THAN HALVE THE SEPERflTION HE WILL BOLT! 
HE MAY ALSO BOLT WHEN HE IS CLOSE TO THE RAIL. 
WHEN YOU COME WITHIN 2 STEPS HE MAY KICK. BE CAREFUL! 

AFTER "'' TYPE IN A DIGIT FROM 1 TO 5 FOR THE COWBOY'S NEXT MOVE 

PRESS ANY KEY TO CONTINUE 
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YIPPEE! 1 NOW SEE IF YOU CAN CATCH HIM IN FEWER MOVES. 
ANOTHER ROUNDUP' Y_ 
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***** CORRAL ***** 
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ILLEGAL MOVE. TRV AGAIN. 
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ILLEGAL MOVE. TRV AGAIN. 
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YIPPEE!! NOW SEE IF YOU CAN CATCH HIM IN FEWER MOVES 

MOTHER ROUNDUP' N. 

els 



18 CLS: PRINT8412, "CORRAL" 

20 PRINT: PRINT TA6(?> "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ" 

30 PRINT8960, "; INPUT "DO YOU NEED INSTRUCTIONS"; IS 

40 DIN fl(21) 

50DIHS(2,9> 

68 FOR 1=1 TO 2: FOR J=8 TO 9 

7BREADS(l,J): NEXT J: NEXT I 

89 OATH 8,1. 2, 3, 3,2,2,1,8,-1 

98 DATA 1,2,2, 4, 5, 4, 3, 2,1,8 

180 IF LEFT$(I*,1)=»N' THEN 218 

116 CLS: PRINT TRB(29>; "CORRflL"' PRINT 

120 PRINT " YOU ARE THE COHBOY. GO CATCH YOUR HORSE IN THE CORRflL!" 

130 PRINT: PRINT "YOU HOVE TOHARD YOUR HORSE i TO 5 STEPS AT A TIME • 

148 PRINT "IF YOU MORE THAN HALVE THE SEPARATION HE WU BOLT!" 

150 PRINT "HE HAY ALSO BOLT UHEN HE IS CLOSE TO THE RAIL ■ 

160 PRINT "UHEN YOU COME WITHIN 2 STEPS HE HAY KICK. BE CAREFUL!" 

170 PRINT 

188 PRINT "AFTER ">' TYPE IN A DIGIT FROM 1 TO 5 FOR THE COWBOY'S NEXT MOVE" 

190 PRINTS979, "PRESS ANY KEY TO CONTINUE"; 

288 IF INKEY*="" THEN 208 

219 CLS. PRINT TAB(16); "******m****m-**m*****m*** u 
228 PRINT TAB(16); "***** CORRAL «****» 

230 PRINT TABC16); "*****4=M*m********m**m-***" 
248 PRINT 

259 C=i: L=l: K=8: M=0: N=8: G05UB 648 

260 IF R>5 THEN Q=-8 
278 H=13+Q: GOSUB 658 
288 T=2+P: PRINT 

298 B*=" 

308 FOR J=l TO 21: AU>=22: NEXT 

210 A(C>=67: A(H)=72 

220 PRINT USING "M»"; N; : PRINT ", PRINT CHM(191); 
330 FOR M TO 21: PRINT CHR«A(J»; : NEXT 

340 PRINT CHR$<191), B$; 

358 X=ABS<H-C>: L=SGN<H-C) 

360 N=N+1: IF K>8 THEN 598 

370 IF N>108 THEN 790 

288 INPUT D 

390 IF D>8 AMD D<6 THEN 418 

480 PRINT "ILLEGAL HOVE TRY AGAIN. ',, • GOTO 378 

418 E=C+L*D: IF E<1 OR D21 THEN 480 

420 C=E: GOSUB 648 

438 G=P- H=H+L*G: GOSUB 658 

440 IF X<2*D AND D>1 THEN 490 

450 IF H>1 AND H<28 THEN 530 

460 GOSUB 640 

478 IF R>2 THEN 538 

480 IF X>7 THEN 298 

498 G=9+2*P' H=H-L*G: L=-L: GOSUB 658 

568 IF ABS(H-C»1 THEN 528 

510 H=H-2*L. GOSUB 658 

528 B*="BOLTED ■• GOTO 388 

528 IF ABS<H-C»2 THEN 298 

540 GOSUB 648 

550 IF R>2 THEN 620 

560 GOSUB 648 

579 K=P+2: K=H+1: H=H-5*L: GOSUB 650 

588 B*=«KICKED"- GOTO 288 

598 IF H>T THEN 688 

688 K=K-i: PRINT: GOSUB 640 

618 H=H+L*(P+i>: GOSUB 658: GOTO 298 

620 IF H=C THEN 788 

628 GOTO 290 

648 R=INT<18*RND<8»: P=S<LR>: 0=5(2, R): RETURN 

658 IF H<1 THEN H=l 

660 IF H>21 THEN H=21 

678 RETURN 

680 PRINT: PRINT "THOSE KICKS LANDED YOU IN THE HOSPITAL!" 

698 PRINT "GET HELL SOON!"- GOTO 760 

780 FOR J=l TO 21: A<J)=22: NEXT: A(C)=35 

710 PRINT, CHR$(191); 

728 FOR J=l TO 21: PRINT CHR«A(J»; • NEXT 

738 PRINT CHRK19D 

748 PRINT: PRINT "YIPPEE! ! HON SEE IF YOU CAN CATCH HIM IN FEWER MOVES. ■ 

758 PRINT 

768 INPUT "ANOTHER ROUNDUP"; F* 

778 IF LFJT$(F$,1)="Y" THEN 218 

788 GOTO 818 

798 PRINT: PRINT: PRINT "ENOUGH! YOU'D DO BETTER AS THE CAW COOK!" 

838 GOTO 768 

818 END 



45 



Cowrtdow 



The program Countdown is based on 
the program Guess in which the 
computer chooses a random number 
and then gives you clues whether you 
are too high or too low until you finally 
get the number. In Countdown, the 
program adds a little interest to this 
guessing game by giving you a certain 
number of tries to get the mystery 
number between one and ten before 
your schoolbuilding explodes. Using a 
good guessing strategy should allow 
you to get any number in four or fewer 
tries. If you take more than four tries, 
the building goes "boom." To add a 
little more interest to the game, you 
may want to make the maximum 
number of tries three. To do this 
change the value of T in statement 
150 from 4 to 3. 

Countdown was written by Mark 
Chambers. 



VOU HAVE BCTIVfiTED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, VOU MflV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOP THE COUNT-DOWN. 

PLEASE HURRV 1 ' THERE IS NO TIME TO WASTE! ! ' ! " ' 

TOO SMALL!"! 1 

VOUR NUMBER DOES NOT COMPUTE!' 

PLEASE TRV AGAIN! 1 " 

TIME GROWS SHORT, PLEASE HURRV '!'■'!' 



HHAT'LL IT BE? 2_ 



■ els • 



VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, VOU MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOP THE COUNT-DOWN. 

PLEASE HURRV ' THERE IS NO TIME TO WASTE! ! 

TOO SMALL!"" 

VOUR NUMBER DOES NOT COMPUTE!' 

PLEASE TRV AGAIN!"! 

HURRV, THE COUNT-DOWN IS APPROACHING ZERO! " " " ! ' 

HHAT'LL IT BE? 1_ 



TOO LATE 



— BOOM — 
[ **** [ 



TRV AGAIN? N0_ 



COPVRIGHT 1979 



COUNTDOWN 
CREATIVE COMPUTING 



MORRISTOWN, NJ 



els 



HIT ENTER TO START? 



- els ■ 



VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, VOU MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOP THE COUNT-DOWN. 

PLEASE HURRV • THERE IS NO TIME TO WASTE! ' " " ! 



WHAT'LL IT BE? 3_ 



■ Cl3 ■ 



VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, VOU MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOP THE COUNT-DOWN. 

PLEASE HURRV! > THERE IS NO TIME TO WASTE! f ! ! ! " 

CORRECT!!!! 

THE COUNTDOWN HAS STOPPED. 

VOU HAVED SAVED THE SCHOOL! 

(HAVE VOU SEEN VOUR SHRINK LATELV ?) 

TRV AGAIN? _ 

els 



VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, VOU MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOP THE COUNT-DOWN. 

PLEASE HURRV! ! THERE IS NO TIME TO WASTE! •!'!!! 



WHAT'LL IT BE? 1_ 



els • 



VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM IN THIS SCHOOL. 

IF VOU WISH, VOU MAV STOP THE MECHANISM. 

TO DO SO, JUST TVPE IN THE CORRECT NUMBER, 

WHICH WILL STOP THE COUNT-DOWN. 

PLEASE HURRV! ! THERE IS NO TIME TO WASTE! <!!'." 

TOO SMALL!!! 1 ! 

VOUR NUMBER DOES NOT COMPUTE!' 

PLEASE TRV AGAIN!!!' 

WHAT'LL IT BE? 4_ 

els 
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IB CLS. PRINT8412, "COUNTDOWN" 

20 PRINT: PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 PRINT8960, ""; INPUT "HIT ENTER TO START"; I* 

48 CLS 

50 A=INT(RND<8>*10> 

60 T=B 

70 N=0 

80 PRINT "VOU HAVE ACTIVATED THE SELF-DESTRUCT MECHANISM "; 

90 PRINT "IN THIS SCHOOL. " 

100 PRINT "IF VOU WISH, VOU MAV STOP THE MECHANISM. " 

110 PRINT "TO DO SO, JUST TVPE IN THE CORRECT NUMBER, " 

120 PRINT "WHICH WILL STOP THE COUNT-DOWN. " 

130 PRINT "PLEASE HURRV! ! THERE IS NO TIME TO WASTE! !■'!!.'" 

140 PRINT: PRINT "WHAT'LL IT BE"; . INPUT X:PRINT§384, CHR*(21); 

150 IF T=4 THEN 310 

160 GOTO 390 

170 REM 

180 PRINT "VOUR NUMBER DOES NOT COMPUTE."" 

190 PRINT "PLEASE TRV AGAIN!" 1 "' T=T+1 

200 IF T=2 THEN 290 

210 IF T=3 THEN 370 

220 GOTO 148 

238 PRINT "CORRECT"""' LET N=5 

240 PRINT "THE COUNTDOWN HAS STOPPED. " 

250 PRINT "VOU HAVED SAVED THE SCHOOL!" 

260 PRINT "(HAVE VOU SEEN VOUR SHRINK LATELV ?)» 

270 LET T=10 

280 INPUT "TRV AGAIN"; AS: IF LEFT«A*, 1)="V" THEN 40 ELSE 420 

298 PRINT "TIME GROWS SHORT, PLEASE HURRV "'.""" 

300 GOTO 140 

310 CLS 

320 PRINT TAB<28>; "TOO LATE" 

320 PRINT: PRINT: PRINT: PRINT TAB(28); CHR«92>; " **** "; CHR$(92) 

340 PRINT TA6(27>; "— BOOM — " 

350 PRINT TAB(28); "I **** C " 

360 INPUT "TRV AGAIN"; A$: IF LEFTt(At,l)="V" THEN 40 ELSE 420 

378 PRINT "HURRV, THE COUNT-DOWN IS APPROACHING ZERO! " " " " » 

380 GOTO 140 

398 IF X<fl THEN PRINT "TOO SMALL!"""- GOTO 178 

400 IF X>A THEN PRINT "TOO BIG!"""- GOTO 170 

410 IF X=A THEN 230 

428 END 



Cup 



Cup is a cute little game in which a 
cup is located thirty "Y" coordinates 
down the video display and a random 
number of spaces from one to sixty 
to the right of the left margin. The 
pull of gravity varies from one to ten 
lines per second per second. You are 
then asked in this program what 
push you would like to give the ball 
from left to right across the paper in 
spaces per second. The program 
then traces the path of the ball from 
the left margin of the paper as it falls 
down and hopefully into the cup. 

A knowledge of physics is helpful 
if you wish to get the ball in the cup 
on the first try. However, you can 
diddle with it by trial and error and 
generally hit the cup on your fourth 
or fifth try. 

Cup was written by Jonathan 
Freidin. 



CUP 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



• Cl8 ■ 



HIT ENTER TO START? . 

THE CUP IS 38 LINES DOWN AND 23 SPACES OVER. 
THE PULL OF GRAVITV IS 4 LINES/SECOND/SECOND. 
UHAT IS THE PUSH VOU WOULD LIKE TO GIVE THE BALL 
ACROSS THE PAPER <IN SPACES/SECOND)? 4. 



■ Cl3 • 



l«««««#**«#««««««*«*««««#«««««f*«t«IMI«««*«**«**«««**«««**tt«««*«* 



VOU MISSED. TRV AGAIN. 



■ els • 



10 CLS: PRINT§415, "CUP" 

26 PRINT: PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOMN, NJ" 

38 PRINT0960, ""; INPUT "HIT ENTER TO START"; A$ 

46 CLEAR 508: DIM SOB, 61) 

50 LET L=RNDC60> 

60 IF L=68 OR L=l THEN 58 

70 CLS: LET G=RND(10) 

88 PRINT "THE CUP IS 38 LINES DOWN AND"; L, "SPACES OVER. " 

90 PRINT "THE PULL OF GRAVITV IS°iG; "LINES/SECOND/SECOND. " 

180 PRINT "WHAT IS THE PUSH VOU WOULD LIKE TO GIVE THE BALL" 

110 PRINT "ACROSS THE PAPER (IN SPACES/SECOND)"; 
12B INPUT T 
130 PRINT 

140 PRINT "THE RESULTS NAV TAKE ANVMHERE BETWEEN 5 AND 20 SECONDS. " 
150 PRINT: PRINT 

160 FOR Z=l TO SQR(68*GVG STEP 1 

178 LET V=T*Z*2 

180 LET X=G/2*Zr2 

190 IF X>38. 5 OR XC 5 OR V>60. 5 OR VC 5 THEN 320 

288 IF INT<X>=29 AND INTCV)=L THEN 330 

218 IF INTOO+l=29 AND INT<VH1=L THEN 330 

220 IF INTCX>=29 AND INT<Y>=L-1 THEN 330 

238 IF INT<XH1=29 AND INT(V)+1=L-1 THEN 330 

240 IF INT(X>=29 AND INT(»=L+1 THEN 358 

250 IF INT<X>+1=29 AND INT<V)+1=L+1 THEN 350 
268 LET S<X, V>=2 
278 FOR D=i TO 5 

288 IF V<6 THEN 310 

290 LET S(X, V-D)=0 

380 NEXT D 

310 NEXT Z 

328 GOTO 380 

330 LET W=l 

340 GOTO 360 

350 LET W=2 

360 LET S(29,L)=2 

370 GOTO 39B 

330 LET W=0 

330 LET P*=" * " 

400 CLS: PRINTB704, STRING*<64, "#"); 

410 FOR A=(L-2>*2 TO L*2+l: S£T<A,30>: NEXT 

42BSET«L-2>*2,29> 

430 SET<L*2+1, 29) 

440 FOR X=l TO 30 

450 FOR Xl=l TO 60 

460 IF S<X,X1)O0 THEN S<X,X1)=0: GOTO 498 

470 NEXT XI 

460 GOTO 520 

490 REM 

508 SET«X1-1)*2,X>- SET«X1-1>*2+1, X) 

518 REM 

528 REM 

538 NEXT X 

540 PRINT 

558 IF W=l THEN 598 

568 IF W=2 THEN 618 

570 PRINT8960, "VOU MISSED. TRV AGAIN. 

588 CLS: GOTO 86 

590 PRINT8896, 

606 GOTO 620 

618 PRINT8896, 

620 PRINT8960, 

636 INPUT » 

649 IF LEFT$(f»,l>="V THEN CLEAR 509: GOTO 49 

650 END 



FOR A=l TO 1500: NEXT 



"RIGHT IN .'!! !!!!.'" 



"VOU ALMOST DIDN'T MAKE IT, BUT IT BOUNCED IN. ' 
"DO VOU WANT TO PLAV AGAIN "; 
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This game is based on the TV 
quiz/chance show, Dealer's Choice. 
You, the player, are given $100 to start 
with. You then play five card games 
loosely modeled on casino gambling 
games but with variations peculiar to 
the TV game making it, hopefully, more 
interesting to the TV audience. Thefive 
games are well-explained in the rules. 

This game was written by Thomas 
Carey. 

DEALER'S CHOICE 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ 



HIT ENTER UHEN REflDV? . 



■ ols • 



els • 



THIS PROGRAM HILL SIHULATE THE T. V. SHOW, DEALER'S CHOICE. 
YOU HAVE tlBB TO START KITH. ENJOY THE GAME. 

FOR THE FIRST GAHE, HE HILL PLAV ON THE WHEEL Of CHANCE 
THE OBJECT IS SIMPLE GUESS WHAT SUIT HILL APPEAR ON THE 
WHEEL AND VOU HILL GET PAID AT THOSE ODDS IF VOU RRE RIGHT. 
THE ODDS RRE AS FOLLOHS. 



1 = DIAMONDS AT 11 TO 1 ODDS 

2 = HEARTS AT 3 TO 1 ODDS 



2 = SPADES AT 1 TO 1 ODDS. 
4 = CLUBS AT 3 TO 1 ODDS. 



YOU MflV BET UP TO $25. GOOD LUCK! 



WHAT SUIT DO YOU KANT? 1 
WHAT IS THE BET? 25. 



■ els ■ 



0. K. NOH THAT VOUR BET IS IN, 
THE WHEEL GOOD LICK! 
THE WHEEL IS SLOWING DOWN. 
THE WHEEL IS STOPPING. 
THE SUIT IS **** 2 **** 
VOU LOSE. 



: WILL SPIN 



els 

HERE I GO: 
THE CARD IS A 7. 
DEALER'S TOTAL SO FAR: 7. 
THE CARD IS A 9. 
DEALER'S TOTAL SO FAR: 16. 
THE CARD IS A 18. 
DEALER'S TOTAL SO FAR: 26. 

I BLEW IT. VOU WIN THE GREATEST AMOUNT ALLOWED TO BE 

BET BV THE HOUSE 

VOU KEEP IT WITH OUR BEST WISHES. 

AT THE END OF PART 2, YOU HAVE * 95. 

PRESS ANY KEY TO CONTINUE 

NOH WE ENTER THE LAST CHANCE ROUND. IF YOU BAKE UP TO 
$208 VOU HILL BE ABLE TO GO INTO THE BONUS ROUND. THE 
OBJECT IS TO a€SS INTO WHICH CATEGORY THE TOT& OF 5 CARDS 
WILL ADD UP TO. THESE ARE THE CATEGORIES: 



1 = 31-40 AT 1 TO 1 ODDS 
3 = 21-21 AT 2 TO 1 ODDS 



GOOD LUCK! 



2 = 41-58 AT 2 TO 1 ODDS 
4 = 6-20 AT 20 TO 1 ODDS 



AT THIS POINT IN THE GAME VOU HAVE J 95. 



WHAT CATEGORY DO VOU WANT? 1 
WHAT IS THE BET? 55. 



■ els 



THE CARDS ARE NOW BEING ADDED UP. 
GOOD LUCK! 

CARD NUMBER 1 IS A 12. VOUR TOTAL SO FAR: 13. 

CARD NUMBER 2 IS A 8. VOUR TOTAL SO FAR: 21. 

CARD NUMBER 3 IS A 2. YOUR TOTAL SO FAR: 24. 

CARD NUMBER 4 IS A 1 YOUR TOTAL SO FAR: 25. 

CARD NUMBER 5 IS A 10. YOUR TOTAL SO FAR: 25. 
VOU WIN! 

AT THE END OF THE GAHE VOU HAVE A GRAND TOTAL OF * 158 
THIS IS THE END OF THE GAME I HOPE YOU ENJOYED IT. 
READV 



■ els • 



AT THE END OF PART 1, VOU HAVE $ 75. 

PRESS ANY KEY TO CONTINUE 
els 



THIS IS THE GAME OF IN BETWEEN. THE OBJECT IS: 5 CARDS HILL 
BE DEALT OUT. IF ANY CARD IS LESS THAN A 2 OR GREATER THAN A 
18, THE GAME IS OVER YOU MAY BET UP TO $38. VOUR MONEV 
HILL BE DOUBLED EACH TIME VOU RRE RIGHT. GOOD LUCK! 

WHAT IS THE BET? 38 

CARD NUMBER 1 IS A 7. 

VOU ARE STILL IN THE GAME YOU HAVE * 60. 

STOP OR GO? GO. 

ols 



THIS IS THE GAME OF IN BETWEEN. THE OBJECT IS: 5 CARDS WILL 
BE DEALT OUT. IF ANV CARD IS LESS THAN A 3 OR GREATER THAN A 
18, THE GAME IS OVER VOU MAY BET UP TO $38. YOUR MONEV 
WILL BE DOUBLED EACH TIME VOU ARE RIGHT. GOOD LUCK! 

CARD NUMBER 2 IS A 1 

VOU LOST. AT THE END OF PART 2, YOU HAVE $ 45 
PRESS ANY KEY TO CONTINUE 
0l8 ■ 



THIS IS THE GAME OF BLACKJACK DEALER'S CHOICE STVLD 

THE OBJECT IS TO BEAT THE DEALER WITH OVER 17 OR 21 OR 

UNDER. VOU MAV BET UP TO $58. VOU MOV STOP WHEN VOU WISH 

IF VOU MAKE BLftCKJRCK, VOUR MONEY IS DOUBLED. 

IF THE HOUSE DEALS OUT LESS THAN A TOTAL OF 17 IN 6 TRIES, 

VOU HILL KEEP THE MONEV VOU BET. GOOD LUCK! 

THE DEALER HILL GET HIS CARDS FIRST 

ARE VOU READV? YES. 

els 



10 CLS: PRINT6489, 'DEALER'S CHOICE" 

28 PRINT: PRINT TAB<7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ" 

28 PRINTO368, "; - INPUT "HIT ENTER HHEN RERDYMt: CLS 

48 PRINT " THIS PROGRAM WILL SIMULATE THE T. V. SHOW, DEALER'S CHOICE. " 

59 PRINT "VOU HAVE $188 TO START WITH. ENJOY THE GAME. " 

68 0=188 

78 PRINT " FOR THE FIRST GAME, HE WILL PLAV OH THE WHEEL OF CHANCE " 

88 PRINT "THE OBJECT IS SIMPLE. GUESS WHAT SUIT HILL APPEAR ON THE" 

98 PRINT "WHEEL AMD VOU WILL GET PAID AT THOSE ODDS IF VOU ARE RIGHT. " 

188 PRINT "THE ODDS ARE AS FOLLOWS:": PRINT 

118 PRINT "1 = DIAMONDS AT 11 TO 1 ODDS", "2 = SPADES AT 1 TO 1 ODDS. " 

120 PRINT "3 = HEARTS AT 3 TO 1 ODDS", "4 = CLUBS AT 3 TO 1 ODDS. " 

138 PRINT 

148 PRINT "VOU MAV BET UP TO $25. GOOD LUCK!"' PRINT 

158 PRINT "WHAT SUIT DO VOU WANT"; : INPUT A 

168 IF tOA OR A<1 THEN 188 

178 IF A<=4 THEN 198 

188 PRINT "*** VOU PICKED A WRONG SUIT ***" ■ GOTO 158 

198 PRINT "WHAT IS THE BET"; ■ INPUT B8: CLS 

288 IF B8>25 OR B8<=8 THEN 228 

218 IF BB<=25 THEN 238 

228 PRINT "*** VOU BET OVER THE HOUSE LIMIT ***" ' GOTO 198 

238 PRINT: PRINT "O.K. NOW THAT VOUR BET IS IN, WE HILL SPIN" 

248 PRINT "THE WHEEL. GOOD LUCK!"- FOR Bl=i TO 18*188: NEXT Bl 

258 PRINT "THE WHEEL IS SLOWING DOWN " 

268 FOR Bl=l TO 7*168: NEXT Bl: PRINT "THE WHEEL IS STOPPING. " 

278 FOR Bl=i TO 4*188: NEXT Bl 

288 PRINT "THE SUIT IS "; • FOR 81=1 TO 4*188 

298 NEXT Bl 

388 Z=lHK4*RND<8>+i! : PRINT"****"; 2: "****" 

318 IF Z=A THEN 338 

328 IF ZOA THEN 388 
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236 ON Z GOTO 249,256,268,276 

246 0=0+<li*B8>: PRINT "VOU WIN ON DIAMONDS! 1 



GOTO 296 



256 0=0+<l*B8>: PRINT "VOU WIN ON SPRUES!"' GOTO 296 

266 0=0+G*B8>: PRINT "VOU HIN ON IffifiRTS ! " ■ GOTO 256 

276 0=0+G*B8>: PRINT "VOU HIN ON CLUBS!"' GOTO 396 

im 0=(M1*B8>: PRINT "VOU LOSE "' GOTO 296 

296 PRINT: PRINT "AT THE END OF PART 1, VOU HOVE *"; 0; CKR*<8>; " " 

489 GOSUB 1926 

416 PRINT "THIS IS THE GAME OF IN BETWEEN. THE OBJECT IS. 5 CRRDS WILL" 

426 PRINT "BE DEALT OUT. IF AHV CARD IS LESS THAN A 2 OR GREATER THAN A" 

428 PRINT "16, THE GflHE IS OVER. VOU HflV BET UP TO t28. VOUR MONEV" 

446 PRINT "MILL BE DOUBLED EACH TINE VOU ARE RIGHT. GOOD LUCK!"- PRINT 

458 PRINT "HHAT IS THE BET"; : INPUT A 

468 IF A>28 THEN PRINT "*** VOU BET OVER THE HOUSE LIMIT ***"■ GOTO 456 

478 T=T+1: Z=IHT<12*RND<8>+i> 

488 PRINT "CARD NUMBER";!; "IS A";2;CHR$(8); " ":B=BK2*A> 

498 IF ZG OR Z>16 THEN 558 

588 IF T=5 THEN 576 

519 PRINT "VOU ARE STILL IN THE GAME VOU HAVE t";B;CHRt(8>;" " 

526 PRINT "STOP OR GO"; • INPUT At 

528 IFLEFTt(At,l>="5" THEN 576 

546 PRIHT8228, CHRtGi); ' GOTO 478 

556 0=0-A 

568 PRINT "VOU LOST. AT THE END OF PART 2, VOU HAVE t";0; " "• GOTO 586 

576 PRINT "VOU HIN. AT THE END OF PART 2, VOU HAVE t";8+0; - "' 0=B+0 

588 GOSUB 1926 

598 PRINT "THIS IS THE GAME OF BLACKJACK <DEALER'S CHOICE STVLD" 

666 PRINT 

"THE OBJECT IS TO BEAT THE DEALER WITH OVER 17 OR 21 OR" 
■UNDER VOU HBV BET UP TO $58. VOU MAV STOP HHEH VOU WISH. " 



618 PRINT 
626 PRINT 
628 PRINT 
646 PRINT 
656 PRINT 
666 PRINT 



IF VOU HAKE BLACKJACK, VOUR HONEV IS DOUBLED. " 

IF THE HOUSE DEALS OUT LESS THAN A TOTAL OF 17 IN 6 TRIES, " 

VOU WILL KEEP THE HONEV VOU BET. GOOD LUCK!":PRINT 

676 Z5=6: Zi=8: PRINT "THE DEALER WILL GET HIS CARDS FIRST"' PRINT 

688 INPUT "ARE VOU READV";R$: CLS 

696 C=8: C2=6 

788 PRINT "HERE I GO:" 

716 Q=INT<12*RND<8>+1> 

728 Z5=Q+Z5 

728 PRINT "THE CARD IS A "; Q; CHR$(8); " "• C=C+1 

748 PRINT "DEALER'S TOTa SO FAR:";Z5;CHRt(8);" ■■ IF C=6 THEN 886 

758 IF Z5<17 THEN 718 

768 IF Z5>21 THEN 868 

778 IF Z5=21 THEN 828 

786 IF Z5<21 THEN 828 

798 IF Z5M7 THEN 828 

868 IF Z5<17 THEN 846 

818 IF Z5M7 THEN 758 

828 PRINT "1 STOP. THE TOTAL FOR HE IS"; Z5; CHR$<8>; » "• G0T0888 

828 PRINT "I GOT BLACKJACK!"' GOTO 886 

848 PRINT; PRINT "THE HOUSE DELT OUT LESS THAN 17. NOW VOU MUST TRV TO" 

856 PRINT "BEAT It "; : PRINT: GOTO 886 

868 PRINT: PRINT "I BLEW IT. VOU WIN THE GREATEST AHOUNT ALLOWED TO BE" 

878 PRINT "BET BV THE HOUSE. •• GOTO 1116 

886 PRINT "WHAT IS VOUR BET"; ■ INPUT A: CLS 

896 IF A>0 THEN 926 

988 IF A>58 OR A<=6 THEN 926 
916 IF A<=58 THEN 946 

928 PRINT "*** VOU BET OVER THE HOUSE LIMIT ***"• GOTO 888 

938 PRINT "*** VOU BET OVER WHAT VOU HAVE ***"• GOTO 888 

946 Qi=INT<12*RNDCe>+i>: PRINT "VOUR CARD IS A"; 01; CHR$(8); " ■• C2=C3+1 

956 Z1=61+Z1: PRINT "SO FAR THE TOTa FOR VOU IS"; ZJL CHRt<8>; " » 

966 IF ZD21 THEN 1678 

978 PRINT "STOP OR GO"; : INPUT At 

989 IF LEFTt(At,i)="S" THEN 1868 
998 IF LEFTt(At,l)=»G" THEN 948 
1686 IF Z1=Z5 THEN 1658 

1618 IF ZKZ5 THEN 1676 

1628 IF Zl=21 THEN 1868 

1826 IF Z5<21 THEN 1688 

1848 IF ZK17 THEN 1698 

1658 CLS: PRINT "HE HAVE THE SANE TOTAL SO WE WILL PLAV AGAIN. ":GOTO 678 

1868 CLS. 0=0+<2*A>: PRINT "VOU BEAT THE DEALER WITH BLACKJACK! !":GOTO 1126 

1878 CLS: 0=0-<i*B>:PRINT "THE DEALER BEAT VOU. VOU LOSE ":GOTO 1126 

1888 CLS. 0=0+tt*A>: PRINT "THE DEALER LOST. VOU WIH!":GOT0 1126 

1698 CLS: 0=0+(1*A):PRINT "THE HOUSE DELT OUT LESS THAN 17 IN" 

1168 PRINT "6 TRIES. VOU GET THE HONEV VOU BET!":GOTO 1126 

1118 0=0+58:PRINT "VOU KEEP IT WITH OUR BEST WISHES. ":GOT0 1128 

1126 PRIHT:PRINT "AT THE END OF PART 3, VOU HAVE f; 0; CHRK8); " " 

1128 IF 0<=8 THEN 1528 



1148 GOSUB 1928 

1158 PRINT "NOW HE ENTER THE LAST CHANCE ROUND. IF VOU HAKE UP TO" 

1168 PRINT "t288 VOU HILL BE ABLE TO GO INTO THE BONUS ROUND. THE" 

1178 PRINT "OBJECT IS TO GUESS INTO WHICH CATEGORV THE TOTAL OF 5 CARDS" 

1188 PRINT "WILL ADD UP TO. THESE ARE THE CATEGORIES: ":PRINT 

1199 PRINT "1 = 31-46 AT 1 TO i ODDS 2 = 41-56 AT 3 TO 1 ODDS" 

1288 PRINT "2 = 21-21 AT 3 TO 1 ODDS 4 = 6-26 AT 26 TO 1 ODDS" 

1216 PRINT:PRINT "GOOD LUCK!!":PRINT 

1228 PRINT "AT THIS POINT IN THE GAME VOU HAVE *"; 0; CHRt(8); " ".PRINT 

1228 PRINT "HHAT CATEGORV DO VOU WANT"; : INPUT A 

1246 IF A<=4 THEN 1276 

1259 IF A>4 THEN 1268 

1266 PRINT "*** VOU BET ON A WRONG CATEGORV ***»:GOTO 1226 

1278 PRINT "WHAT IS THE BET"; : INPUT B: CLS 

1286 IF B<=0 THEN 1216 

1298 IF B>0 THEN 1298 

1286 PRINT "*** VOU BET OVER WHAT VOU HAVE ***":G0T0 1276 

1316 PRINT "THE CARDS ARE NOW BEING ADDED UP. ":PRINT "GOOD LUCK!" 

1328 Q=INT<12*RND<6Hl>:Ci=Ci+i 

1236 PRINT "CARD NUMBER"; CI; "IS A"; Q; CHRt(8); " "; 

1346 Z=Z+Q:PRIHT "VOUR TOTAL SO FAR:";Z;CHR$<8);" " 

1356 IF Cl=5 THEN 1378 

1266 GOTO 1228 

1376 ON A GOTO 1288,1418,1446,1478 

1288 IF ZG1 THEN 1498 

1298 IF Z«8 THEN 1586 

1488 IF ZM6 THEN 1498 

1418 IF Z«l THEN 1496 

1428 IF Z<56 THEN 1518 

1428 IF Z>58 THEN 1498 

1446 IF Z<21 THEN 1498 

1458 IF Z<21 THEN 1518 

1466 IF Z>31 THEN 1496 

1476 IF Z<6 THEN 1498 

1488 IF Z<28 THEN 1528 

1498 0=0-<l*8):PRINT "VOU LOSE ":GOTO 1528 

1588 0=0+<l*8):PRINT "VOU HIN!":GOTO 1528 

1518 0=0+G*B): GOTO 1536 

1528 0=0+<28*B):PRINT "VOU WIN!":GOTO 1528 

1528 PRINT:PRINT "AT THE END OF THE GAME VOU HAVE A GRAND TOTR OF t";0; 

1546 IF 0088 THEN 1988 

1558 FOR X=l TO 6:PRINT CHRt(7); :F0R Bi=i TO 168:NEXT B1:NEXT X 

1568 PRINT CHR*<26> 

1578 PRINT "VOU ARE ELIGIBLE FOR THE BONUS ROUND. " 

1588 PRINT "DO VOU WANT TO PLAV IT"; :INPUT Bt:PRINT 

1598 IF LEFTt<At,i)="N" THEN 1963 

1668 CLS: PRINT "THIS IS THE BONUS ROUND. IF VOU GET A TOTa OF 1.888" 

1616 PRINT "WITHOUT GETTING A SPADE IN THE ROLLS, VOJ WILL GET" 

1629 PRINT "A GRAND PRIZE OF tl8,889. 86. VOU MAV STOP AT ANV POINT" 

1638 PRINT "DURING THE GAME VOU WILL KEEP WHAT VOU HADE GOOD LUCK!" 

1646 PRINT:INPUT "ARE VOU READV";SSt: CLS 

1658 DIM A<5),B(4):A9t="SPADES" 

1668 PRINT "THE DICE PRE ROLLING. ":PRINT "GOOD LUCK. " 

1678 PRINT "THE DICE ARE" 

1688 FOR Bl=l TO 166*5: NEXT 61 

1696 X=INT<5*RND(6)+1> 

1786 A<l)=58:H<2M98:AG)=159:AC4)=28e:A(5>=e 

1718 V=INTC4*RND<6Hi> 

i?28B<l>=58:B<2M68:BG>=158:B<4)=28e 

1726 IF A(X)=8 THEN 1758 

1748 PRINT "**** ";A(X);B(V); "****" :GOTO 1776 

1758 PRINT "**** ";A9t;B<V); "****" :GOTO 1826 

1768 PRINT "TOTa SO FAR:";B(V);CHRt(8);" ":GOTO 1826 

1778 B7=B7+(A<XHB(V»:PRINT "VOU NOW HAVE";B7;CHRt(8);" ":PRINT: 

1775 IF B7M688 THEN 1859 

1786 PRINT "STOP OR GO": INPUT Bt 

1796 IF LEFTt(Bt,l)=«G" THEN CLS: G0T01668 

1886 PRINT "SMART MOVE VOU GET THE MONEV FROM THE BEGINNING OF" 

1818 PRINT "THE GAME PLUS THE BONUS ROUND. AT THE END OF THE GAME" 

1826 PRINT "VOU HAVE THE GRAND TOTa OF t"; B7+0; CHRt(8); " ":GOTO 1968 

1828 PRINT "VOU LOSE THE HONEV FROM THE LAST CHANCE" 

1846 PRINT "ROUND BUT VOJ STILL HAVE A GRAND TOTa OF *"; 0; CKRt<8>; " "• GOTO : 

1856 FOR T=l TO 3:PRIHT CHRt(?>; :FOR 61=1 TO 166:NEXT BINEXT T 

1868 67=0+18688: PRINT TAB<15); "**** CONGRATULATIONS ****" 

1876 PRINT "VOU WON THE GRAND PRIZE. AT THE END OF THE GAME, VOU HAVE" 

1888 PRINT 

1898 PRINT TAB(18) ****** t"; B7; "*****" 

I960 PRINT:PRINT "THIS IS THE END OF THE GAHE I HOPE VOU ENJOVED IT. " 

1916 END 

1928 PRINT8979, "PRESS ANV KEV TO CONTINUE"; 

1938 IF INKEVt= y " THEN 1928 ELSE CLS: RETURN 
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pace 



DEEPSPCE is another version of a 
space battle. You become the com- 
mander of either a scout ship, cruiser, 
or battleship. You then pick the 
weapons, and planetary system to 
patrol, and it's time to do battle. 

The closer you get to the enemy, the 
better your chance of destroying him. 
Unfortunately, his chance of destroy- 
ing you also improves. If you get too 
close, you can damage yourself; when 
a vessel's damage rating reaches or 
exceeds 100, it's destroyed. 

Suggestion: Change the time 
between reports — this will shorten the 
game by allowing you to get closer 
faster. 

Deepspace originally appeared in 
Creative Computing, Mar/Apr 1976. 



DEEP SPACE 
COPYRIGHT 1379 CREATIVE COMPUTING MORRISTOHN, HJ 



els 

DO YOU ICED INSTRUCTIONS? YES. 

els 

YOU ARE OWE OF GROUP OF CAPTAINS ASSIGNED TO PATROL A 
SECTION OF YOUR STAR EMPIRE'S BORDER AGAINST HOSTILE 
ALIENS. ALL YOUR ENCOUNTERS HERE MILL BE AGAINST HOSTILE 
VESSELS. YOU MILL FIRST BE REQUIRED TO SELECT A VESSEL 
FROH ONE OF THREE TYPES, EACH WITH ITS OHN CHARACTERISTICS: 



TYPE 


SPEED 
18X 




CARGO SPACE 


PROTECTION 


1- SCOUT 


16 


1 


2- CRUISER 


4X 




24 


2 


3- BfiTTLESHIP 


2X 




38 


5 




PRESS ANY KEY TO CONTINUE 
Cl3 





SPEED IS GIVEN RELATIVE TO THE OTHER SHIPS. 

CARGO SPACE IS IN UNITS OF SPACE ABOARD SHIP HHICH CAN BE 

FILLED HITH WEAPONS. 

PROTECTION IS THE RELATIVE STRENGTH OF THE SHIP'S ARMOR 

AND FORCE FIELDS. 

ONCE A SHIP HAS BEEN SELECTED, YOU HILL BE INSTRUCTED TO ARM 
IT HITH WEAPONRY FROH THE FOLLOWING LIST 

PRESS ANY KEY TO CONTINUE 



TYPE 

1- PHASER BANKS 

2- ANTI-HATTER MISSILE 
3- HVPERSPACE LANCE 

4- PHOTON TORPEDO 

5- HYPERON NEUTRALIZATION FIELD 26 



CARGO SPACE REL STRENGTH 



12 
4 
4 
2 



4 
28 
16 
18 

6 





MANEUVER CHART 


1 


FIREPHASERS 


2 


FIRE ANTI-HATTER MISSILE 


3 


FIRE HVPERSPACE LANCE 


4 


FIRE PHOTON TORPEDO 


5 


ACTIVE HYPERON NEUTRALIZATION FIELD 


6 


SELF-DESTRUCT 


7 


CHRNGE VELOCITY 


e 


DISENGAGE 


9 


PROCEED 




PRESS ANY KEY TO CONTINUE 

CIS 



YOU HAVE A CHOICE OF THREE SYSTEMS TO PATROL 

1- ORION 

2-DEHEB 

3- ARCTURU5 

SELECT A SYSTEM (1-3)? 3 

HHICH SPACECRAFT MOULD YOU LIKE (1-3)? 2. 

_ els 



YOU HAVE 24 UNITS OF CARGO SPACE TO FILL HITH MEAPONRY. 
CHOOSE A MEHPON AND THE AMOUNT YOU WISH? i,L- 

. els 



YOU HAVE 12 UNITS OF CARGO SPACE TO FILL HITH MEAPONRY. 
CHOOSE A HERPON AND THE AMOUNT YOU HISH? 2,1. 

— els 



YOU HAVE 8 UNITS OF CARGO SPACE TO FILL HITH WEAPONRY. 
CHOOSE A HERPON AND THE AMOUNT YOU HISH? 3,1. 

Cl3 



YOU HAVE 4 UNITS OF CARGO SPACE TO FILL HITH MEAPONRY. 
CHOOSE A HERPON AND THE AMOUNT YOU HISH? 4,2. 

. Cl3 



YOU HAVE 4 WITS OF CARGO SPACE TO FILL MITH MEAPONRY. 
CHOOSE A HEAPON AND THE AMOUNT YOU HISH? 4,2 
RANGE TO TARGET: 778. 492 
RELATIVE VELOCITY: L 88861 
ACTION? 9. 

RANOE TO TARGET: 747. 449 
RELATIVE VELOCITY: 188861 
ACTION? 7. 



CHANGE TO BE EFFECTED? - 5 
RANGE TO TARGET: 747. 449 
RELATIVE VELOCITY: 1 58861 
ACTION? 4. 



■ els • 



SCANNERS REPORT ENEMY DAMAGE NOW: 3. 87234 

DRMAGE CONTROL REPORTS YOUR VESSEL DAMAGE AT: 1. 83876 

RANGE TO TARGET: 722 481 
RELATIVE VELOCITY: 158861 
ACTION? i. 



SCANNERS REPORT ENEMY DAMAGE NOU: 4. 43741 

DAMAGE CONTROL REPORTS YOUR VESSEL DAMAGE AT: 2 88484 

RANGE TO TARGET: 697.514 
RELATIVE VELOCITY: 158861 
ACTION? 3. 



■ els • 



SCANNERS REPORT ENEMY DAMAGE NOM: 11. 3564 

DAMAGE CONTROL REPORTS YOUR VESSEL DAMAGE AT: 5. 52437 



HEAPONS II S 45 CAN BE FIRED 188 TIMES EACH ALL OTHERS CRN 
BE FIRED ONCE FOR EACH ON BOARD. 

PRESS ANY KEY TO CONTINUE 



• CIS ■ 



A TYPICAL LOAD FOR A CRUISER MIGHT CONSIST OF: 
1-11 PHASER BANK =12 
2-13 HYPERSPACE LANCES = 8 
2-14 PHOTON TORPEDOES = 4 



24 UNITS OF CARGO 
A MORD OF CAUTION: FIRING HIGH YIELD HEAPONS AT CLOSE «188> 
RANGE CAN BE DANGEROUS TO YOUR SHIP RHD MINIMRL DAMAGE CAN 
OCCUR AS FAR OUT AS 288 IN SOME CIRCUMSTANCES. 

RANGE IS GIVEN IN THOUSANDS OF KILOMETERS. 
DO YOU HISH A MANEUVER CHART? YES. 



els • 



RANGE TO TARGET: 672 546 
RELATIVE VELOCITY: 158861 
RCTION? 2. 



SCRHNERS REPORT ENEMY DAMAGE NOW: 18.8373 

DAMAGE CONTROL REPORTS YOUR VESSEL DAMAGE AT: 7. 68276 

RANGE TO TARGET: 647.578 
RELATIVE VELOCITY: 1 58861 
ACTION? 7. 



CHANGE TO BE EFFECTED? -2 
RANGE TO TARGET: 647.578 
RELATIVE VELOCITY:- 419388 
ACTION? L 



■ els ■ 
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SCANNERS REPORT ENEMY DAMAGE NOM: 28.6832 
DRMAGE CONTROL REPORTS YOUR VESSEL DRMAGE AT: 8. 89969 
els 



16 OS: PRINTS411, "DEEP SPRCE" 

28 PRINT: PRINT TRB(?) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ" 

29 PRINT0960, ""; ■ INPUT "DO VOU NEED INSTRUCTIONS"; I* 
48 IF LEFT«H,1)="N" THEN 490 

58 CLS: PRINT TABC27) "DEEP SPACE" ■ PRINT 

68 PRINT 'VOU PRE ONE OF A GROUP OF CAPTAINS ASSIGNED TO PATROL A" 

70 PRINT "SECTION OF YOUR STAR EMPIRE'S BORDER RGAINST HOSTILE" 

80 PRINT "ALIENS. ALL YOUR ENCOUNTERS HERE HILL BE RGAIHST HOSTILE" 

98 PRINT "VESSELS. YOU HILL FIRST BE REQUIRED TO SELECT A VESSEL" 

180 PRINT "FROM ONE OF THREE TYPES, EACH WITH ITS CM) CHARACTERISTICS:" 

110 PRINT: PRINT ■ TYPE", "SPEED", "CARGO SPACE", "PROTECTION" 

120 PRINT " ", " ", " ", ■ ■ 

130 PRINT "1- SCOUT", " 10X", " 16", " 1" 

140 PRINT "2- CRUISER", " 4X", " 24", " 2' 

158 PRINT "2- BATTLESHIP", " 2X", " 30", " 5" 

168 PRINT0979, "PRESS ANY KEY TO CONTINUE"; 

170 IF INKEY*=" THEN 170 ELSE PRINTM28, CHR»G1>; 

188 PRINT "SPEED IS GIVEN RELATIVE TO THE OTHER SHIPS. " 

198 PRINT "CARGO SPRCE IS IN UNITS OF SPACE ABOARD SHIP WHICH CRN BE" 

288 PRINT "FILLED HITH WEAPONS. " 

218 PRINT "PROTECTION IS THE RELATIVE STRENGTH OF THE SHIP'S ARHOR" 

228 PRINT "AND FORCE FIELDS. " 

230 PRINT: PRINT "ONCE A SHIP HAS BEEN SELECTED, VOU HILL BE INSTRUCTED TO ARM' 

248 PRINT "IT HITH WEAPONRY FROM THE FOLLOWING LIST" 

250 PRINT§979, "PRESS ANY KEY TO CONTINUE"; 

260 IF INKEY$="» THEN 260 ELSE PRINT6128, CHRK31); 

270 PRINT 



CARGO SPRCE REL STRENGTH" 



4" 
28" 
16" 
10" 

6" 
ALL OTHERS CAN" 



280 PRINT " TVPE 

290 PRINT " 

388 PRINT "1- PHASER BAMS 12 

318 PRINT "2- ANTI-HATTER MISSILE 4 

328 PRINT "3- HYPERSPRCE LANCE 4 

338 PRINT "4- PHOTON TORPEDO 2 

340 PRINT "5- HYPERON NEUTRALIZATION FIELD 28 

358 PRINT:PRINT "WEAPONS H S 15 CAN BE FIRED 180 TIMES EACH 

368 PRINT "BE FIRED ONCE FOR EACH ON BOARD. " 

278 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

388 IF INKEY*=" THEN 388 aSE PRINTS128, CHRt(31); 

398 PRINT "A TYPICAL LORD FOR A CRUISER MIGHT CONSIST OF'" 

488 PRINT " 1-H PHASER BANK = 12" 

418 PRINT " 2-S3 HYPERSPRCE LANCES = 8" 

420 PRINT " 2-14 PHOTON TORPEDOES = 4" 

430 PRINT " " 

440 PRINT " 24 UNITS OF CARGO" 

458 PRINT " A HORD OF CAUTION: FIRING HIGH YIELD HEAPONS RT CLOSE «188) 

460 PRINT "RANGE CAN BE DANGEROUS TO YOUR SHIP AND HINIHAL DAMAGE CRN" 

478 PRINT "OCCUR RS FRR OUT AS 288 IN SOME CIRCUH5TRNCES. " 

488 PRINT: PRINT "RANGE IS GIVEN IN THOUSANDS OF KILOMETERS. " 

490 PRINT "DO VOU HISH A MANEUVER CHRRT"; : INPUT H$ 

580 IF LEFK(M*,1)=»N" THEN 630 



518 OS: PRINT 
520 PRINT " 1 


MANEUVER CHART" :PRINT " 
FIREPHASERS" 




530 PRINT " 2 


FIRE ANTI-MATTER MISSILE" 




540 PRINT " 3 


FIRE HYPERSPACE LANCE" 




550 PRINT " 4 


FIRE PHOTON TORPEDO" 




568 PRINT " 5 


ACTIVE HYPERON NEUTRALIZATION 


FIELD" 


578 PRINT » 6 


SELF-DESTRUCT" 




588 PRINT " 7 


CHANGE VELOCITY- 




598 PRINT " 8 


DISENGAGE" 




688 PRINT " 9 


PROCEED" 




618 PRINT8979, 


"PRESS ANY KEY TO CONTINUE"; 




628 IF INKEV*=' 


'" THEN 628 ELSE CLS 




630 CLS: PRINT 


"YOU HAVE A CHOICE OF THREE SYSTEMS TO PATROL * 


648 PRINT "1 - 


ORION" 




658 PRINT "2 - 


DENEB" 




668 PRINT "2 - 


RRCTURUS" 




670 PRINT "SELECT fl SYSTEM (1-2)"; : INPUT S9 




680 IF S9=l THEN 2068 




690 IF S9=2 THEN 2118 




789 GOTO 2160 






?10D0=0 






728D1=0 






728Nl=e 






748N2=8 






750N2=0 






768 N4=8 






770 D=8 






780 PRINT "WHICH SPACECRRFT WOULD VOU LIKE (1-3)". 


;:INPUT S 


798 ON S GOTO 1488,1528,1568 




808 GOTO 768 






8i8C=C8 







820 CLS: PRINT "VOU HAVE";C; "UNITS OF CARGO SPRCE TO FILL WITH WEAPONRY. " 



828 PRINT "CHOOSE fl WEAPON AND THE AMOUNT YOU WISH"; : INPUT UN 
848 ON H GOTO 1680,1690,1780,1878,1968 
858 GOTO 828 
868 IF N*C15C THEN 2218 
870 C=C-N*C1 

888 ON W GOTO 1678,1768,1858,1940 
898 GOTO 2848 
900 IF C>1 THEN 828 
910 REM 

920 S1=S8+RND(8) 
938 R=(3*RND(8>+5>*188 
948 PRINT "RANGE TO TARGET :";R 
958 PRINT "RELATIVE VELOCITV:";Sl 
968 PRINT "ACTION"; : INPUT M: OS 
970 ON M GOTO 1620,1710,1888,1890,1998,1350,1080,2430 
988 IF R<588 THEN 1138 
998 IF Sl>6 THEN 1620 
1060R=R+(Si*8.3>[125 
1818 GOTO 1838 
1820 R=R-(S1*8. 3)1 125 
1038 IF R>1500 THEN 2270 
1048 IF R>0 THEN 1060 
1858 R=-R 
I860 PRINT 
1070 GOTO 940 

1080 PRINT "CHANGE TO BE EFFECTED"; : INPUT S2 
' 1098 IF <Si+S2»S8 THEN 2238 
1188 Si=Sl+S2 
1118 GOTO 940 
1128F6=P1*<Z/R>[15 
1138 REM 

1140 D0=(2ff0+3*Fe*RND(8))/5 
1150D=D+D0 

1168 PRINT "SCANNERS REPORT ENEMY DAMAGE NOH:";D 
1178 IF D>99 THEN 2480 
1180 GOTO 1200 
1190 D0=0 
1280 REM 

1210 K=£1*E2*RND<8) 
1228 REM 

1238 £=E3+E4*RND(8)+5/P8*RND<8> 
1248 REM 

1258 F2=E*<K/R>[1 85 
1268 D2=<3*F3+3*F3*RND<0»/5.5 
1278 M=Di+D2 

1288 IF <Z*D0V(R*580»2. 2 THEN 1310 
1296 D3=D0*2ARt2*P0) 
1360 Dl=Di+D3 

1318 PRINT "DAMAGE CONTROL REPORTS YOUR VESSEL DAMAGE AT:";D1 
1320 IF Di>99 THEN 2428 
1320 IF D>99 THEN 2428 
1240 GOTO 998 

1350 PRINT "SELF DESTRUCT FAILSAFE ACTIVATED!!" 
1368 PRINT "INPUT 1 TO RELEASE FAILSAFE"; : INPUT U 
1376 IF U=l THEN 1290 
1388 GOTO 988 

1298 PRINT "SELF DESTRUCT ACCOMPLISHED. " 
1488 IF R>60 THEN 1430 ■* 

1410 PRINT "ENEMY VESSEL ALSO DESTROYED. " ^^ 

2218 PRINT "NOT ENOUGH SPACE RESELECT. "' FOR TI=1 TO 1568: NEXT 

2226 GOTO 828 

2238 PRINT "CHANGE BEYOND MAXIMUM POSSIBLE " 

2240 PRINT "INCREASING TO MAXIMUM. " 

2256 Si=S0 

2268 GOTO 998 

2278 PRINT "OUT OF SENSOR RANGE AUTOMATIC DISENGAGE " 

2280 GOTO 2430 

2290 PRINT "PHASER BANKS DRAINED. " 

2388 PRINT "SELECT ANOTHER COURSE OF ACTION. " 

2318 GOTO 968 

2328 PRINT " ALL ANTI-HATTER HISSLES EXPENDED. " 

2330 GOTO 2388 

2348 PRINT "ALL HYPERSPACE LANCES EXPENDED. " 

2358 GOTO 2380 

2360 PRINT "ALL PHOTON TORPEDO TUBES EMPTY. " 

2370 GOTO 2380 

2383 PRINT "HYPERON NEUTRALIZATION FIELD DRAINED. " 

2398 GOTO 2388 

2488 PRINT "ENEMY VESSEL DESTROYED!" 

2418 GOTO 1288 

2428 PRINT "YOUR VESSEL HAS BEEN DESTROYED!" 

2438 PRINT "ANOTHER BATTLE"; : INPUT R$ 

2448 IF LEFT*(R$,1)="Y" THEN 678 

2450 PR1NT:PRINT "TRY RGAIN LATER!":PRINT 

2460 FOR X=l TO 2000: NEXT: END 



V 



1420 GOTO 2420 

1420 D4=3288/R 

1440D=DHM 

1450 IF D>99 THEN 1410 

1466 PRINT "ENEMY VESSEL 

SURVIVES HITH"; D; "DAMAGE" 

1478 GOTO 2428 

1480 S8=18 

1498 C8=16 

1580 P0=1 

1516 GOTO 818 

1526 58=4 

1528C8=24 

1548 P0=2 

1558 GOTO 818 

1568 S8=2 

1578C8=20 

1580 P0=5 

1590 GOTO 810 

1600C1=12 

1618 GOTO 866 

1628 Pl=4 

1638 IF Nl=8 THEN 1848 

1648 N1=N1-1 

1658Z=260 

1668 GOTO 1128 

1678 Ni=Nl+N 

1688 GOTO 988 

1698 Cl=4 

1766 GOTO 868 

1710 Pi=28 

1728 IF N2=6 THEN 2328 

1738 N2=N2-1 

1740 Z=508 

1756 GOTO 1128 

1768N2=N24H 

1770 GOTO 988 

1786 Cl=4 

1798 GOTO 868 

1800F1=16 

1818 IF N3=8 THEN 2348 

1820 N3=N3-i 

1838 2=558 

1848 GOTO 1128 

1850 N2=H3*H 
1868 GOTO 960 

1870 Cl=2 

1888 GOTO 860 

1898Fl=i0 

1968 IF N4=0 THEN 2268 

1916 N4=N4-1 

1928Z=408 

1920 GOTO 1128 

1948 N4=N4+N 

1950 GOTO 988 

1968 Cl=. 2 

i978N=i88 

1988 GOTO 868 

1998 Pi=6 

2888 IF N5=0 THEN 2288 

2616N5=N5-1 

2820 2=256 

2820 GOTO 1120 

2040N5=N5+N 

2658 GOTO 900 

2868E1=158 

2070E2=588 

2888 E2=2 

2090 E4=4 

2100 GOTO 710 

2U0E1=288 

2128E2=350 

2130 E3=4 

2148 E4=3 

2158 GOTO 716 

2168 El=158 

2170 E2=400 

2188 E3=5 

2190 E4=2 

2268 GOTO 716 
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DEFUSE 
COPYRIGHT 073 CREATIVE COMPUTING MORRISTOWN, HJ 



els 

00 VOU HEED INSTRUCTIONS? YES. 

els 

YOU RRE IN fl GOVERNMENT EXPERIMENTAL BUILDING WITH 

1,889,868 ROOMS IN IT. THE BUILDING IS 188 ROOMS 

LONG (6-39), 168 ROOMS HIDE (6-93), AND 168 ROOMS HIGH (6-99). 

IN IT A BOMB IS HIDDEN. THE BOMB SENDS OUT SIGNALS THAT 
GET STRONGER AS YOU GET CLOSER. YOU HAVE 286 SECONDS 
TO DEACTIVATE IT. 

PRESS ANY KEY TO CONTINUE 



SIGNAL 


L 
6 


H 
6 


H 
8 


SEC 
8 


COORDINATES (LH,H) 


7353.98 


' 96,98,98 


3555.12 


98 


38 


98 


16 


'86 


88 


98 


2565.22 


88 


88 


38 


26 


'88 


88 


88 


4565.22 


88 


88 


88 


38 


'88 


88 


78 


5565.22 


88 


88 


76 


48 


'88 


88 


85 


4865.22 


88 


88 


85 


58 


'88 


88 


86 


3965.22 


88 


88 


86 


66 


? 88 


76 


85 


4875.22 


89 


78 


85 


78 


'88 


66 


76 


5585.22 


88 


68 


78 


86 


?78 


45 


88 


4686.32 


78 


45 


86 


98 


'68 


45 


86 


4688. 42 


68 


45 


88 


168 


?75 


75 


75 


5976. 27 


75 


75 


75 


118 


'68 


68 


68 


6585. 42 


66 


68 


68 


128 


'58 


58 


58, 








— els — 






BOOOOOOMNM!!! 










YOU BLEU IT. 


THE BUILDING BLEH UP. 






THE BOMB WAS LOCATED AT THE COORDINATES (LH,H): 2 46 26 








— els — 






HUNT TO PLAY AGAIN? YE 








SIGNAL 


L 


U 


H 


SEC 


COORDINATES (LH,H) 


6386.34 


8 


8 


8 


6 


' 8,8,56 


869196 


8 


8 


58 


16 


'8,6,66 


7693. 86 


8 


8 


68 


26 


'8,8,48 


3693.86 


8 


8 


48 


38 


' 8,8,76 


6693. 86 


8 


8 


78 


48 


' 6,58,68 


7643.86 


8 


58 


68 


58 


' 8,98,66 


7683.86 


8 


96 


68 


68 


' 58,6,68 


7692. 56 


58 


6 


66 


78 


' 6,18,68 


7683.86 


8 


16 


68 


88 


? 18,68 


7693. 85 


1 


8 


68 


98 


'18,56 


8693.85 


1 


8 


58 


168 


? 18,8,58 


8692.96 


18 


8 


58 


116 


? 38,6,58 


8692 76 


38 


6 


58 


128 


'58,56,56 


864156 


58 


58 


56 


138 


'68,58,56. 


BOOOOOOHMH! 


! 










YOU BLEW IT. 


THE BUILDING BLEH UP 











THE BOMB HAS LOCATED AT THE COORDINATES (L,H,H): 6 93 36 



UANT TO PLRY AGAIN? NO. 



■ els • 



In this game, you are in an ex- 
perimental building with one million 
rooms in it. The building is one 
hundred rooms long, one hundred 
rooms wide, and one hundred rooms 
high. 

You have just received a telephone 
call from a mad bomber who tells you 
he has planted a bomb someplace in 
the building. Fortunately you are 
armed with a bomb detector that 
registers a stronger and stronger signal 
as you get closer to the bomb. You start 
at the bottom right-hand door of the 
building, at the room 0,0,0. In response 
to the signals from your detector, every 
ten seconds you may try a new room to 
search for the bomb. You have two 
hundred seconds or twenty trials to 
find it. 

It's fairly easy to find the bomb once 
you get the knack of how your detector 
works. However, we're not going to 
spoil it for you and tell the secret. 

18 CLS: PRINT8413, "DEFUSE" 

28 PRINT: PRINT TAB(7) "COPYRIGHT 1973 CREATIVE COMPUTING M0RRIST0HN, NJ" 

38 PRINT8968, "; : INPUT "DO YOU NEED INSTRUCTIONS"; I* 

48 IF LEFT*(«,1)="N" THEN CLS: GOTO 148 

58 as. PRINT T6B(29); "DEFUSE" • PRINT 

66 PRINT "YOU ARE IN A GOVERNMENT EXPERIMENTAL BUILDING HITH" 

78 PRINT "1888,888 ROOMS IN IT. THE BUILDING IS 188 ROOMS" 

88 PRINT "LONG (8-99), 188 ROOMS HIDE (6-99), AND 163 ROOMS HIGH (6-99). " 

98 PRINT: PRINT "IN IT A BOMB IS HIDDEN. THE BOMB SENDS OUT SIGNALS THAT" 

168 PRINT "GET STRONGER AS YOU GET CLOSER. YOU HAVE 288 SECONDS" 

116 PRINT "TO DEACTIVATE IT. " 

126 PRIMT8979, "PRESS ANY KEY TO CONTINUE"; 

138 IF INKEV*=" THEN 138 ELSE CLS 

146 A=INT(186*RHD(8)): B=INT(1B8*RND(6)> 

158 C=INT(188*RND(8)): IF A>8 THEN 188 

166 IF B>9 THEN 188 

178 IF C=6 THEN 156 

188 D=8: E=8: F=8: 6=8: PR1NT8128, ""; : GOSUB 136: GOTO 258 

198 LB=PEEK(16416): HB=PEEK(16417) : PRINTCHR*(28); 

288 PRINT "SIGNAL"; TAB(15);"L";TAB(28);"H«;TAB(25);"H"; 

218 PRINT TAB(35); "SEC"; TAB(45); "COORDINATES (LH,H)"; 

228 PRINT " ";TRB(14);"—-";TAB(19);"— ";THB<24>; "— "; 

238 PRINT TAB(34); - ";TAB(44)" "; 

248 POKE 16416, LB: P0KE16417.H8: RETURN 

258 REM 

268 1H*="B#«. H ttt Mi HI «*' 

27BSI=18868-ABS((A/188+B+C»168)-(D/ie8+E+F*ie8)) 

288 PRINT USING IMI; SI, D, E, F, G; : PRINT TBB(45); : GOSUB 198 

238 INPUT D,E,F:G=G+18: IF AOD THEN 328 

388 IF BOE THEN 328 

318 IF C=F THEN 399 

328 IF G=268 THEN 348 

336 GOTO 488 

348 CLS: PRINT "B000000HKHH!":PRINT "VOU BLEH IT. THE BUILDING BLEW UP. " 

356 PRINT "THE BOMB HAS LOCATED AT THE COORDINATES (L, W, H) : ■; A; B; C 

366 PRINT: PRINT: PRINT "WANT TO PLAY AGAIN"; 

376 INPUT It: IF LEFT«Z», 1)=*Y" THEN CLS. GOTO 148 

388 GOTO 579 

338 CLS. PRINT "BOMB DEACTIVATED AT"; Gi "SECONDS!!!"' GOTO 368 

468 IF D>99 THEN 476 

418 IF D<8 THEN 478 538 ON F GOTO 548,558,568 



• els ■ 
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428 IF D99 THEN 476 548 PRINT ' 

436 IF EC6 THEN 478 556 PRINT ' 

448 IF F>99 THEN 516 568 PRINT ■ 

456 IF F<6 THEN 528 578 END 

468 GOTO 256 

476 CLS: PRINT "YOU WALKED OUT A WINDOW ON THE"; IF F<4 THEN 538 

488 PRINT F;"TH FLOOR!!!" 

498 PRINT "YOU WERE KILLED RND";268-G; "SECONDS LATER THE BUILDING" 

568 PRINT "BLEH UP!!!"' GOTO 366 

518 CLS; PRINT "YOU ARE NOW"; F*9; "FEET IN THE AIR!!!': GOTO 438 

528 CLS: PRINT "YOU ARE NOH";-l*(F*9)*FEET UNDERGROUND! !!"' GOTO 438 



1ST FLOOR 
2ND FLOOR 
3RD FLOOR 



GOTO 438 
GOTO 438 
GOTO 438 



t 



Dodgem 



DODGE 'EN 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ 
cis 




I YOU NEED INSTRUCTIONS? YES. 



• els • 



HERE'S A SfiMPLE PLAYING BORRD: 



4 



fi B C D 
TWO SETS OF PIECES <DIGITS AND LETTERS) RACE AT RIGHT ANGLES 
ACROSS A SQUARE BOARD. VACANT LOCATIONS ARE SHOUN AS PERIODS. 
YOU CHOOSE THE THE BOARD SIZE (THE ONE ABOVE IS SIZE 5. ) 

PRESS ANY KEY TO CONTINUE 

els — 

N 

t 
H— +— £ 



THE OBJECT IS TO HOVE ALL OF YOUR PIECES ACROSS THE BORRD 
AND OF THE OPPOSITE EDGE. DIGITS LEAVE THE BOARD ONLY AT 
THE EASTERN EDGE, LETTERS ONLY AT THE NORTHERN. THE WINNER 
IS THE PLAYER WHOSE PIECES HAVE ALL LEFT THE BOARD. 
PRESS ANY KEY TO CONTINUE 
els 



THE PLAYERS GO IN TURN, MOVING ONE Of THEIR PIECES TO AN 
ADJACENT LOCATON WHICH IS EITHER OFF THE BOARD OF CURRENTLY 
VACANT. THERE ARE NO DIAGONAL HOVES, NO JUMPS AND NO CAPTURES. 
DIGITS CANNOT HOVE NEST, NOR LETTERS HOVE SOUTH 

TO HOVE A PIECE, TYPE ITS KANE AND THE FIRST LETTER OF THE 
DESIRED DIRECTION. EXAMPLES: 

2E MEANS THAT PIECE 2 HANTS TO GO EAST 

BU MEANS THAT PIECE 6 HANTS TO GO WEST. 
NOTE: YOU FORFIET THE GA1C IF YOUR HOVE LEAVES YOUR OPPONENT 
WITHOUT ANY LEGAL HOVE 

LASTLY, YOU HAY TYPE R TO RESIGN AND H FOR HELP. 
PRESS ANY KEY TO CONTINUE 
els 



BOARD SIZE G-6>? 4 

HOW HANY PLAYERS (i OR 2)? 1 

OK, THE COMPUTER HILL HOVE THE DIGITS. 

MHO MOVES FIRST (^COMPUTER, 2=YOU)? 2. 

_ els 

BOARD — " 1 



LETTERS HOVE? CN_ 



• els ■ 



LETTERS HOVE? CN_ 



DODGEM is a game originally devis- 
ed in 1972 by Colin Vout, then a student 
at the University of Cambridge, 
England. It got its major publicity from 
Martin Gardner who discussed it in the 
June 1 975 issue of Scientific American. 
Complete instructions are in the sam- 
ple run. 

It may be played by two players in 
which case the computer is the referee, 
or by one player against the computer. 
The computer, incidentally, plays un- 
commonly well. This is not surprising 
since Dodgem was written by the very 
talented and prolific Mac Oglesby. 
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LETTERS HOVE? BH. 



BOARD 



LETTERS HOVE? AE_ 



LETTERS HOVE? AE. 



LETTERS HOVE? AN. 



• els ■ 



2 C 
3 B 
A 



■ els • 



BOARD — " i 

2 C 

3 B fl 

TIC DIGITS HAVE NO LEGAL TOES FOR THE LETTERS! 
THE LETTERS WIN! I! 



TRV AGAIN? VES. 



■ els - 



18 OS: CLEAR 389: PRINTC413, "DODGE 'EM" 

28 PRINT: PRINT TASC?) "COPYRIGHT 1979 CREATIVE COMPUTING BORRISTOW, NJ" 

38 »="N0"' PRINT8968, '"; ; INPUT "DO VOU NEED INSTRUCTIONS"; If 

48CLS 

58 Rt=K: GOSUB 2238 

68 IF LEFT«B,i)0"V THEN 88 

78 GOSUB 2448 

88 PRINT: PRINT "BOARD SIZE <3-6>"; 

90 INPUT A 

188 LET A=1NTCA) 

118 IF (6-fl)*«H»=8 THEN 138 

128 GOTO 88 

138 LET P(18)=A-1: LET P(2,6HM 

148 FOR J=i TO A-l 

158LETP(1,J)=10*J+1 

168 NEXT J 

178 FOR J=l TO A-l 

188 LET P<2,J)=lWW+i 

198 NEXT J 

288 LET F=i 

218 LET M$(1)='I€S" 

228 LET ltt(2)="NE H" 

238 LET Ct(i)="DIGITS" 

248 LET C*(2)="LETTERS" 

258 LET W<1>="1224567" 

268 LET A«2>="ABCDEFG" 

278 FOR J=l TO A 

288 IF J=fl THEN 348 

298LETDJ(J,l)=CHRt(48+J) 

388 FOR K=2 TO A 

318 LET DS(J,K)=CHR*(140> 

328 NEXT K 

338 GOTO 388 

348 LET D$U,1)=CHR*<148> 

358 FOR K=2 TO A 

368 LET Df(J,K)=CHR$<63+K) 

378 NEXT K 

288 NEXT J 

398 PRINT "HON HANY PLAVERS (1 OR 2)"; 

488 INPUT B 

418 IF B=2 THEN 588 

428 IF B=l THEN 448 

438 GOTO 398 

448 PRINT "OK, THE CtWUTER HILL HOVE THE DIGITS. " 

458 PRINT "HHO MOVES FIRST <l=COHPUTER, 2=V0U>"; 

468 INPUT F 

478 IF <2-F)*Cl-F>=8 THEN 588 

488 PRINT 'PLEASE TVPE 1 OR 2. NOW, "; 

498 GOTO 458 



588 PRINT 

518 PRINT "HERE HE GO, . . " 

528 PRINT 

538 PRIHTC8,. XS="BOARD — "+CHRJ(94)+STRING*(22-A/2, 32) 

548 FOR J=l TO A: PRINT »; 

558 Xt=STRINGS(32-A/2,32): FOR K=l TO A: PRINT " ";WU,K>; 

568NEXTK 

578 PRINT 

588 NEXT J 

598 PRINT CHR*(31); 

688 FOR J=F TO 3-F STEP 3-2*F 

618 REH 

628 FOR Ji=i TO A-l 

638 LET R=INT(P(J, JD/18) 

648LETC=P<J,J1)-18*R 

658 ON J GOTO 668,718 

668 IF C=A THEN 788 

678 IF DA THEN 698 

688 GOTO 768 

696 GOTO 878 

788 GOTO 918 

718 IF R=l THEN 758 

728 IF R=8 THEN 748 

738 GOTO 768 

748 GOTO 878 

758 GOTO 918 

768 REH 

778 IF D«(R-LC)=CHRJ(148) THEN 858 

788 IF DKR,C+i>=CHRK148> THEN 858 

798 IF J=2 THEN 838 

888 IF DS<R+1,C>=CHR«148) THEN 828 

818 GOTO 878 

828 GOTO 918 

838 IF D*(R,C-i)=CHR*C148> THEN 858 

848 GOTO 878 

858 GOTO 918 

868 PRINT "BBS— 1245", Jl 

878 NEXT Jl 

888 PRINT "THE ";C*(3-J)i" HAVE NO LEGAL MOVES FOR THE •;»«);"" 

898 PRINT "THE ■;»«>;" HIH!!!" 

988 GOTO 2888' HAS STOP 

918 IF B=2 THEN 1258 

928 IF J=2 THEN 1258 

938 LET Li=2 

948 FOR L8=l TO 3 

958 ON L8 GOTO 1828,968,1818 

968 IFRND<e>C5THEH998 

978 LET Ll=i 

988 GOTO 1628 

998 LET 11=3 

1688 GOTO 1628 

1818 LET L1=4-L1 

1628 LET Pl=INT(RND(8)tA) 

1838 FOR L2=l TO B-l 

1848 LET Pi=?i+1 

1058 IF P1<=A-1 THEN 1070 

1868 LET P1=P1-(A-1) 

1878 LET R=INT<P<J,FiVie> 

1888 LET C=P(J, Pi)-16*R 

1898 IF DA THEN 1226 

1108 ON LI GOTO 1118,1148,1190 

1118 IF D«(R-1C)=CHR$(148) THEN 1138 

1126 GOTO 1228 

1126 GOTO 1588 

1148 IF M(R,C+l)=CHRt(140) THEN 1188 

1150 IF C=H THEN 1178 

1168 GOTO 1220 

1178 LET P(J,0)=Pa8)-l 

1188 GOTO 1630 

1198 IF D*(R+1,C)=CKR$<148) THEN 1218 

1280 GOTO 1220 

1218 GOTO 1688 

1220 tCXT L2 

1230 NEXT L0 

1248 GOTO 888 

1250 PRINT CttJ);" HOVE"; 

1266 INPUT At 

1278 GOSUB 2230 

1280 IF LEFT«A*,i)="R* THEN 2188 

1298 IF LEFT*(A*,1)="H" THEN 1888 

1388 LET ftt=HIW«»,i,2> 
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1219 Pi=e 

1328 FOR B8=l TO A-l 

1229 IF MD*(Rt(J>,B8,l>=MID«A$,l,l) THEN Pi=B8 

am NEXT B6 

1258 IF M.=8 THEN 1858 

1268 LET P2=0 

1278 FOR B8=i TO 4 

1288 IF HID$(ttt(J>,B0,i)=MID«Bt,2,l> THEN P2=B0 

1298 NEXT B8 

1488 IF P2=8 THEN 1856 

1418 LET R=IHT(PO,PiV18> 

1428 LET C=P(J,Pl)-i0*R 

1438 IF R=6 THEN 1858 

1448 IF OR THEN 1850 

1458 ON J GOTO 1468,1518 

1468 IF Kfi THEN 1583 

1478 IF P202 THEN 1588 

1488 LET P(1,8)=PC1,0>-1 

1498 GOTO 1638 

1568 GOTO 1558 

1518 IF R>1 THEN 1558 

1528 IF P201 THEN 1558 

1528 LET P(2,0)=P(2,0>-1 

1546 GOTO 1588 

1558 ON P2 GOTO 1568,1618,1668,1718 

1568 IF Df(R-i,C)=CHR*(140> THEN 1588 

1570 GOTO 1858 

1588 LET »(R-LC>=MIW(R$<J),Pi,l> 

1590LETP(J,P1>=P(J,P1>-10 

1680 GOTO 1758 

1618 IF M(R,C+D=CHR«i48) THEN 1630 

1628 GOTO 1858 

1620 LET D«R,C+i)=MID«M(J>,Pl,i> 

1648 LET P(J,Pl)=P(J,PiHi 

1658 GOTO 1758 

1668 IF D*(R+i,C)=CHR«148> THEN 1680 

1670 GOTO 1858 

1680 LET D«R+LC)=MID«ft«J> ,F1,1) 

1698LETP<J,Pl)=P(J,Fl)tlO 

1788 GOTO 1758 

1710 IF D$(R,C-l)=CHRt<148> THEN 1738 

1728 GOTO 1858 

1720 LET W(R,C-1)=«W<A$<J>,P1,1> 

l?40LETP(J,Pi>=P(J,Pl)-i 

1758 LET D«R,C>=CHJW(148> 

1760 IF 8=2 THEN 1880 

1778 IF J=2 THEN 1800 

1788 PRINT 'THE DIGITS HOVE: "; NID«M(J>, PL i>; 

1798 PRINT BIMdttU), LI, 1) 

1888 IF P!J,8)O0 THEN 1848 

1818 PRINT 

1828 PRINT "*** THE ";C*(J);" HIN!!! ***" 

1838 GOTO 2888' MRS END 

1840 GOTO 2218 

1850 PRINT "ILLEGRL HOVE OR » INPUT. " 

1868 PRINT "INPUT IGNORED. TYPE H FOR HEP. " 

1876 GOTO 1250 

1888 PRINT "THE ";C$U>;" HflVE THESE LEGflL MOVES:" 

1898 FOR J3=i TO fl-1 

1988 LET P*=HIM(M(J),J3,1) 

1918 LET R=INT(P(J,J3)/18) 

1920 LET C=P(J,J2)-10*R 

1928 ON J GOTO 1948,2880 

1940 IF C=R THEN 1980 

1958 IF OR THEN 1978 

1968 GOTO 2858 

1978 GOTO 2156 

1988 PRINT " ";Pt;"E"; 

1998 GOTO 2850 

2800 IF R=l THEN 2048 

2810 IF R=8 THEN 2020 

2028 GOTO 2850 

2838 GOTO 2158 

2848 GOTO 2860 

2858 IF D«R-i,OOCHR«i46) THEN 2878 

2868 PRINT " ";W;"N"; 

2878 IF DJ(R, C+l)OCHRt<146) THEN 2898 

2888 PRINT " ";P*;"E"i 

2898 IF J=2 THEN 2138 

2168 IF D«R+i,C)OCHR«148> THEN 2128 

2110 PRINT " »;Pt;"5"; 



2120 GOTO 2156 

2138 IF Dt(R,C-l)OCHR«i48> THEN 2158 

2148 PRINT" ";PJ;"H"; 

2158 NEXT J2 

2160 PRINT 

2170 GOTO 1256 

2188 PRINT "THE ";«U); n GIVE UP!!" 

2198 PRINT "*** THE ";«(2-J);" HIN!!! **»" 

2280 GOTO 2888' HRS END 

2210 NEXT J 

2228 GOTO 520 

2238 IF LEN(f»»10 THEN 2436 

2240 LET Cl=8 

2258 FOR B8=l TO LEN(RJ) 

2268 LET fl(B8)=flSC<HIMCR*,B6,l)> 

2278 NEXT 88 

2288 LET A(8)=LEN<A*> 

2298 FOR J2=l TO fl(8) 

2388 IF fl(J2)<96 THEN 2320 

2318 LET A(J2)=fl(J2>-32 

2220 IF (57-A(J2»*(fl(J2>-48»=8 THEN 2258 

2338 IF (98-A(J2»*<R(J2)-65»=8 THEN 2350 

2340 G8T0 2376 

2258 LET C1=C1+1 

2368 LET A(Cl>=fi(J2> 

2370 NEXT J2 

2388 LET R(8)=C1 

2390 LET fl$=" 

2480 FOR 86=1 TO fl(6> 

2410 LET Rt=fl**CHR$(R<B0» 

2428 NEXT B8 

2430 RETURN 

2448 CLS: PRINT TRB<28) "DODGE EH": PRINT 

2450 PRINT "HERE'S R SfiHPLE PLRVING BORRD:" 

2468 PRINT 

2478 fl$=""' FOR TM TO 4: R*=f»+" HCHR*(148>: NEXT TH 

2480 PRINT "1";M 

2490 PRINT "2";R$ 

2580 PRINT "3*;fl* 

2516 PRINT -4"iM 

2528 PRINT CHRK148); " A B C D" 

2538 PRINT 

2540 PRINT "TOO SETS OF PIECES (DIGITS RND LETTERS) RRCE RT RIGHT RNG"; 

2550 PRINT "LES" 

2568 PRINT "ACROSS fl SQUARE BOflRD. VRCRNT LOCATIONS RRE SHOWN RS PERI"; 

2578 PRINT "ODS. " 

2580 PRINT "VOU CHOOSE THE THE BOflRD SIZE (THE ONE ABOVE IS SIZE 5. )" 

2598 G0SU8 2988 

2668 PRINT TAB(38) " N" 

2610 PRINT TRB(26) " [" 

2620 PRIHT TAB(28) "H"; CHR«93>; "+"; CHR*(94); "E" 

2638 PRINT TRB(26) ■ ";CHR$C92> 

2648 PRINT TflB(38) " S" 

2658 PRINT 

2668 PRINT "THE OBJECT IS TO HOVE RLL OF VOUR PIECES ftCROSS THE BOflRD" 

2678 PRINT "RND OFF THE OPPOSITE EDGE DIGITS LERVE THE BOflRD ONLV RT« 

2688 PRINT "THE EASTERN EDGE, LETTERS ONLV RT THE NORTHERN. THE WINNER" 

2698 PRINT "IS THE PLRVER WHOSE PIECES HAVE ALL LEFT THE BOflRD. " 

2766 G0SU8 2988 

2718 PRINT "THE PLRVERS GO IN TURN, MOVING ONE OF THEIR PIECES TO RN" 

2728 PRINT "ADJACENT LOCflTON NHICtt IS EITHER OFF THE BOflRD OF CURRENT"; 

2728 PRIHT "LV" 

2746 PRIHT "VACANT. THERE ARE NO DIAGONAL MOVES, NO JUMPS AHD NO CflPT"; 

2758 PRINT "URES. " 

2768 PRINT "DIGITS CRNNOT HOVE WEST, NOR LETTERS MOVE SOUTH ■ 

2778 PRIHT 

'TO HOVE R PIECE, TOE ITS NAME AND THE FIRST LETTER OF THE" 

'DESIRED DIRECTION EXAMPLES:" 
2E MEANS THAT PIECE 2 HANTS TO GO ERST" 

' BH KERNS THAT PIECE B HUNTS TO GO WEST. " 

'NOTE; VOU FORFIET THE GAME IF VOUR HOVE LEAVES VOUR OPPONENT 

'WITHOUT RNV LEGflL MOVE " 



2780 PRINT 

2790 PRINT 

2888 PRINT 

2818 PRINT 

2828 PRINT 

2838 PRINT 

2848 PRINT 

2856 PRINT "LRSTLV, VOU MRV TYPE R TO RESIGN AND H FOR HELP. 

2866 G0SU6 2908 

2878 RETURN 

2888 PRINT: INPUT "TRY AGAIN"; AHS* 

2898 IF LEFT$(ANS*,1)=T THEN 48 ELSE END 

2988 PRINTS979, "PRESS RNV KEY TO CONTINUE"; 

2918 IF INKEY<=" THEN 2916 &SE PRINT8128, CHMGD; 

2928 RETURN 
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oors 



In this cute little game, there are 
several doors in succession and you 
must open them to get the prize 
behind the last one. You have a key 
ring containing a random number of 
keys and you have a random number 
of tries to open all four doors. As an 
added hooker, some keys may open 
more than one door. If at first you 
don't succeed, try, try again. The 
prizes behind the fourth door are well 
worth the patience in trying to get 
them all open. 

Doors was conceived and written 
by Bill Ingram. 

DOORS 
COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ 



• els ■ 



THERE ARE 4 LOCKED DOORS AND THERE ARE 12 KEVS 

(NUMBERED 8 TO 12 ). 
YOU HILL HAVE 38 TRIES TO OPEN THEH ALL 
(SOKE KEYS HAY OPEN HORE THAN ONE DOOR). 



TRIES LEFT 


38 


DOOR 8 1 KEY? 12 




TRIES LEFT 


29 


DOOR i 1 KEY? 11 




TRIES LEFT 


28 


DOOR 1 1 KEY? 18 




TRIES LEFT 


2? 


DOOR i 1 KEY? 9 




TRIES LEFT 


26 


DOOR » 1 KEY? 8 




TRIES LEFT 


25 


DOOR # 1 KEY? 6 




TRIES LEFT 


24 


DOOR 8 1 KEY? 7 




TRIES LEFT 


?"" 


DOOR S i KB'? 4 




TRIES LEFT 


22 


DOOR t 1 KEY? 3 




TRIES LEFT 


21 


DOOR 8 1 KEY? 1 




TRIES LEFT 


28 


DOOR 8 1 KEY? 7 




TRIES LEFT 


19 


DOOR » 1 KEY? 5 




TRIES LEFT 


18 


DOOR f 1 KEY? 6 




TRIES LEFT 


17 


DOOR » 1 KEY? 11 




TRIES LEFT 


16 


DOCK t 1 KEY? 18 




TRIES LEFT 


15 


DOOR * i KEY? 8 




TRIES LEFT 


14 


DOOR t 1 KEY? 7 




TRIES LEFT 


13 


DOOR 8 1 KEY?' 6 




TRIES LEFT 


12 


DOOR 8 i KEY? 5 




TRIES LEFT 


U 


DOOR it 1 KEY? 8 




C-R-E-E-E- 


>E-A-A-K! 






TRIES LEFT 


18 


DOOR 4 2 KEY? 4 




TRIES LEFT 


9 


DOOR 8 2 KEY? 11 




TRIES- LEFT 


8 


DOOR 8 2 KEY? 12 




SORRY, YOU 


LOSE, THE REST OF THE KEYS ARE. 




DOOR 2: 


1Y: 8 






DOOR 3: 


<EV: 7 






DOOR 4: 


!EY: 11 


-i_ 




DO YOU HAH 


F TO PLAY AGAIN (YES SIR! OR NO SIR!) 




•> NO- 








DO YOU MAN 


T TO PLAY AGAIN (YES SIR! OR HO SIR!) 




'< HO 








HEY, 1 DID 


J'T JUST FALL OFF A TURNIP TRUCK, YA KNOW ! ! ! ! 








els 




10 CLS 








20 RANDOM 








38 CLEAR 1 


888 






40 PRINT 6 


413, "DOORS 






SO PRINT 








68 PRINT I 


AB(7)"C0PYRliSHT 1979 CREATIVE COMPUTING H0RRIST0MN, 


NJ 


78 PRINT C 


968,""; 








"KEYS" 



88 FOR 1=1 TO 1088: 

98 CIS 

188 DIM K(20) 

118 FOR X=8 TO f 

128 READ R«X) 

138 NEST X 

140 FOR X=8 TO t 

158 READ S«X> 

168 NEXT X 

178 D=l 

188 T=10+RHD(21) 

198 H=3+RHD(3> 

288 K3=8+RND(5) 

218 PRINT 

228 PRIHT"THERE ARE"; It "LOCKED DDORS AND THERE ARE"; K3; ' 

238 PRINT" (NUMBERED 8 TO "; 13; "). " 

248 PRINT "YOU HILL HAVE"; T-l; "TRIES TO OPEN THEH ALL * 

258 PRINT "(SOME KEYS HAY OPEN HORE THAN ONE DOOR). " 

260 PRINT 

278 FOR X=2 TO N 

280 K(X)=RHD(K3) 

298 NEXT X 

388 T=T-i 

318 flZ=flZ+l:IF flZ>=8 THEN GOSUB 648 

326 IF T=8 THEH 468 

330 PRINT "TRIES LEFT: "; 

348 PRIHT USING "88"; T; 

358 PRINT TAB(24); "DOOR J"; D; "KEY"; 

368 INPUT 12 

378 IF K2CK(D) THEN 388 

288 PRIHT S« RND<?>) 

290 D=D+1 

480 IF DOI+1 THEN 388 

418 PRINT 

428 CLS 

420 PRIHT "YOU DID IT, BEHIND DOOR 8";N;"IS 

440 PRIHT R« R1ID(7))"!!" 

458 GOTO 528 

460 CLS 

478 PRINT 

488 PRINT "SORRY, YOU LOSE THE REST OF THE KEVS ARE:" 

498 FOR X=D TO N 

588 PRINT "DOOR"; X; CHR«8);"- KEY:";K(X) 

510 NEXT X 

528 PRIHT 

528 PRIHT "DO YOU HAHT TO PLAY AGAIN (YES SIR! OR HO SIR!)" 

548 INPUT m 

558 IF Q$="YES SIR!" THEN 178 

568 IF 0l="H0 SIR!" THEH 638 

578 PRIHT "HEY, I DIDN'T JUST FALL OFF ft TURNIP TRUCK, YA KNOW!!!!! 1 

588 FOR TQ=i TO 1888: NEST TQ: CLS: GOTO 526 

596 DATA "A POT Cf GOLD", "A BEAUTIFUL HAIDEH", "A MAN EATING TIGER" 

608 DATA "NOTHING", "122. 59", "A ROLLS ROYCEV'THE KEYS TO THE HORLD" 

618 DATA "OPEN SESAME", "C-R-E-E-E-E-E-R-A-K !","!« LftH!", "Tfi-DflH!" 

628 DATA "ABRACADABRA", "CLICK '?!!?!?! I??? 1 !!!", "SUPRISE!" 

638 END 

640 FOR SH=1 TO 1888: NEXT SH 

650 A2=8 

668 CLS 

670 RETURN 
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Drag 



DRAG allows the user to design his 
own dragster and then race it against a 
dragster designed by another player or 
the computer. You must specify the 
horsepower, rear end ratio, tire width, 
and tire diameter. There are no limits to 
these parameters. 

Aha! you say. "I'll just design a two 
million horsepower dragster!" But it 
doesn't work that way, because your 
mass is related to your engine size, and 
so you usually end up with a top speed 
of something like 33 MPH. The com- 
puter is extremely hard to beat, but it's 
rumored that it can be done. Note: on 
some systems the amount of time 
between printouts can be aggravating- 
ly long. 

This program came from the 
Hewlett-Packard User Library, It also 
appeared in Creative Computing, 
Jan/Feb 1977. 



DM FACE 
COPVRIOHT 1979 CREATIVE CONFUTING HORRISTOHN, NJ 



■ els • 



DO YOU NEED INSTRUCTIONS? YES. 



■ Cl3 • 



YOU MAY RfiCE AGAINST ONE OF YOUR FRIENDS OR YOU MAY RACE 
AGAINST HY DRAGSTER YOU WILL BE ASKED TO DESIGN YOUR 
OHN MACHINE, SPECIFYING HOURSEPOHER, READ END RATIO (X:l>, 
TIRE WIDTH IN INCHES AND TIRE DIAMETER IN FEET. 

DO YOU WANT TO RACE AGAINST HE? YES 



DESIGN CAR 12: 






HORSEPOWERS 798 






REAR END RATI0=? 4. 5 






TIRE HIDTH*' 22 






TIRE DIAMETERS 5. 








els — 








CAR M 


CAR «2 


ELAPSED 





— 




TIKE 


SPED DISTANCE 


SPEED 


DISTANCE 


(SEC) 


CM) (FT) 


(MPH) 


(FT) 


CAR t 2 


STOPS BURNING RUBBER 






188 


22 871 16.282 


14.882 


18. 965 


208 


42.575 64.783 


28.892 


44. 037 


3.80 


64. 082 142, S82 


45.287 


99. 462 


4.08 


82. 929 252 879 


68. 166 


176. 984 


5.88 


188. 187 2S6. 668 


74.311 


275. 812 


6.88 


115. 256 545. 824 


87. 424 


294.658 


CAR til 


STOPS BURNING RUBBER 






7.80 


128. 629 724. 299 


99. 263 


521815 


CAR ttl I 


S THE HINDER "'" 






DO YOU HUNT TO TRY AGAIN? NO. 
els — 







18 CIS: PRINT8411 "DRAG RACE' 

28 PRINT: PRINT TAB(7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ" 

28 PRINTO960, "; : INPUT "DO YOU NEED INSTRUCTIONS"; 1$ 

48 DIM P(2),E(2),H(2),S(2),X(2),M(2),C(2),B(2),Y(2) 

58 DIM 9(2) 

68 IF LEFT$(It,i)="N" THEN OS: GOTO 128 

78 CLS: PRINT TAB(27)"DRAG RACE": PRINT 

88 PRINT "YOU HAY RACE AGAINST ONE OF YOUR FRIENDS OR YOU MAY RACE" 

90 PRINT "AGAINST MY DRAGSTER YOU HILL BE ASKED TO DESIGN YOUR" 

108 PRINT "OHN MACHINE, SPECIFYING HOURSEPOHER, READ END RATIO (X:l>, " 

118 PRINT "TIRE HIDTH IN INCHES AND TIRE DIAMETER IN FEET. ":PRINT 

120 PRINT "DO YOU WANT TO RACE AGAINST ME"; 

128 INPUT 1$ 

148 IFLEFT$(I*,1)="N" THEN 218 

150 PRINT:PRINT "I HILL HRYE CAR «1. " 

168 P(i>=608 

178 E(l)=5. 9 

IBB H(l)=22 

190 D(l)=2. 9 

208 GOTO 388 

218 PRINT: PRINT "DESIGN CAR #i:» 

220 PRINT ■H0URSP0HER="; 

228 INPUT P(l> 

248 PRINT "REAR END RATION 

258 INPUT Ed) 

268 PRINT "TIRE HIDTHf"; 

270 INPUT H(l) 

268 PRINT "TIRE DIAMETERS; 

296 INPUT D(l) 

280 PRINT: PRINT8576, "DESIGN CAR J2:";CHR«21> 

318 PRINT "H0RSEP0HER="; 

328 INPUT P(2) 

328 PRINT "REAR END RRTI0="; 

348 INPUT E(2) 

358 PRINT "TIRE HIDTH="; 

368 INPUT H(2) 

378 PRINT "TIRE DIAMETER="; 

380 INPUT D(2) 

298 CLS 

480 PRINT "GO!"' PRINT6220, ""; 

418 Kl=580 

428 1(2=16 

428K3=2 

448 K4=6E-84 

458 K5=6E-05 

468 K6=. 2 

478 17=4 

488 K8=l 5E-04 

498 G(1)=0: Q(2)=8 

500 S(1>=0: S(2)=8 

518 X(l)=8: X(2)=8 

528 REM: M IS MASS 

536 FOR J=l TO 2 

548 M(J)=(Kl+K2*P(J)+0*H(J)«(J)+K7*T)(J)t2)/22. 2 

558 REM: C IS DRAG FROM HMD. 

568 C(J)=K4*H(J)[(2/3>+K8*H(J)*D(J) 

570 REM: B IS THE HAX ACCELERATION WITHOUT BURNING 

588B(J)=15+28*«(J}*D(J>/((HU>+6)*(D(J>+i)) 

590 REN: Y IS THE SCALE FACTOR FOR RPtl VS POWER. 

606 Y(J)=3.?-3.3E-03*P(J> 

618 NEXT J 

620 GOTO 700 

636 LB=PEEK(16416): HB=PEEK(16417):PRINTM, ""; 

640 PRINT TRB(19>; "CAR ti"; TAB(42); "CAR «2" 

658 PRINT "aAPSED";TAB(i9);" ";TRB(42);" ■ 

668 PRINT "TINE SPEED DISTANCE SPEED DISTANCE" 
670 PRINT "(SEC) (MPH) (FT) (MPH) (FT)" 

688 PRINT " • ■; 

698 POKE 16416, LB: P0KE16417,HB: RETURN 

708 FOR T=0 TO 188 

718 FOR Tl=i TO 100 

720 FOR J=i TO 2 

720 REM: R IS RPM. 

740 R=68*SU)*E(JV(2.14159*D(J)) 

758 REM: L8 IS ENGINE TORQUE 

760 L8=(P(JV42 5)*(58+7. 8E-02*(R/Y(J))-4E-10*(R/Y(J))[2) 

778 REN: LI IS TORQUE FROM FRICTION 

780 LL=P(J)*(K5*R+I(6) 

798 REM: R2 IS REAR AXLE TORQUE 
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888 L2=£U>*<L8-Li) 

818 REH: F IS FORCE ON ROfiD FROM TIRES. 

828 F=2*L2/D(J) 

830 REM: TEST FOR BURR 

848 IF F>NU>*BU> ThEH 918 

858 REM: R=RCCELERBT10N 

868 IF Q(J)08 THEH 898 

878 PRINT 'OK I"; J; " STOPS BURNING RUBBER' 

888 QCJ)=1 

838 fr=(F-C(J)*SCJ)[2)/M<J) 

988 GOTO 938 

918 ft=B(J)-C<J>*S(J)[2/H(J> 

928 REH: S IS FEET IN FT/SEC. 

938S<J)=Sa)+fi*-8i 

948 REM: X IS DISTANCE IN FT. 

950 X<J)=XCJ>+SCJ>*. 81 

968 NEXT J 

978 REM: TEST FOR FINISH. 

988 IF XUX5288/4 AND X<2)<5288/4 THEN 1228 

998 IF X<i»X<2) THEN 1128 

1888 T3=<X<2>-5288/4)/S<2) 

1818 T=T+T1/1B8-T3 

1028 X<2>=5288/4 

1838 X(1)=X<1)-S(1)*B: GOSUB 638 

1840 ftt="«8. « IH.Ht <Ht.*it H».Hf ««.««" 

1858 PRINT USING ftt;T,S(l)*3688,'5288,X(l),S(2)*3688/5288,X(2) 

1868 GOSUB 636 

1878 FOR (M TO 1888: NEXT: CIS: PRINT 

1888 PRINT "DO VOU HfiNT TO TRY RGRIN"; 

1898 INPUT tt 

1188 IF LEFT«K,i)="V" THEN 120 

1110 END 

112B T3=(X<l)-5288/4V5<l> 

1138 M+T1/108-T3 

1148 X(l)=5288v'4 

1158 X(2)=X(2)-S(2)*B 

1168 «="«. It m. «« #»«. HI MS. JH MH. HI 

1178 PRINT USING Mi T, S<l>*3608/5288, X(l), S(2)*3608^288, X(2) 

1180 GOSUB 638 

U98 FOR fi=l TO 1888: NEXT: CIS. PRINT "CftR »i IS THE WINNER 

1288 PRINT 

1210 GOTO 1888 

1228 NEXT Tl 

1238 fit="«8. « «#. t»« MM. ttt HI. «« MM. HI" 

1248 PRINT USING W; (T+1),S(1)*368875288,X(1),S(2)*3680,'528B,XC2) 

1250 GOSUB 638 

1268 NEXT T 

1278 END 
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Dl°® Z 



Using DR.Z your computer "in- 
teracts" with you in true Rogerian form, 
never making a value judgment of your 
response. 

DR.Z is multi-lingual and 
"professional confidence" is 
guaranteed, especially with a video 
display terminal. However, if you have 
a printer, try employing a unique 
language known only to you and Dr.Z. 

If you would prefer to employ DR.Z in 
an educational mode, you might con- 
sider the following sequence of ac- 
tivities. 

1. Discuss communication, exploring: 

a. The role of spoken language 

b. The role of written language 

c. Non-verbal language 

1. facial expressions 

2. posture of body 

3. hand gestures 

2. Experience a session with DR.Z. 

3. Develop computerizations of other 
"purely human" situations. 

Note: Don't mistake DR.Z for Eliza 
(or Doctor). In DR.Z, all the responses 
are "canned" and the computer makes 
no attempt to analyze your input in any 
way. 

DR.Z was submitted to us 
anonymously by some students of Dr. 
Melvin Zeddies of San Dieqo. 

DOCTOR Z 
COPVRIGHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ 



HIT ENTER TO BEGIN? . 



• els 



• els 



HELLO THERE, I'H VOUR COMPUTER THERRPIST. 

UHAT IS YOUR NRHE? AND TELL ME SOMETHING ABOUT YOURSELF. 

HOWEVER, DON'T TYPE MORE THAN ONE LINE I TIRE EASILY. 

"> HI. MY NAME IS CHRIS AND I DONT LIKE GIRLS. 

WHAT DID YOU SAY YOUR NAME HAS AGAIN? CHRIS 

HO) DO YOU FEEL TODAY? GOOD. THE SUN IS SHINING 

HAVE YOU TALKED TO ANYONE ABOUT THIS? YES. MANY PEOPLE 

WHY ARE YOU HERE? BECAUSE OF THE HEATHER 

DO YOU FEa COMFORTABLE WITH THIS FEELING? YES ALL THE TIME 

DO YOU THINK THIS IS REASONABLE IN LIGHT OF YOUR INTERESTS? YES 

DO YOUR FRIENDS FIND THIS ACCEPTABLE? NO 

HHY ARE YOU HERE? TO SEE THE SHAH 

DO YOU FEEL COMFORTABLE WITH THIS FEELING? NO WE DONT 

DO YOU THINK THIS IS REASONABLE IN LIGHT OF YOUR INTERESTS? YES. 

els 

I THINK YOU ARE MAKING A GREAT ATTEMPT TO SOLVE YOUR 
DIFFICULTIES, AND I SEE HO NEED TO CONTINUE THIS 
SESSION ANY FURTHER 

CHRIS, MOULD YOU MAKE ANOTHER APPOINTMENT WITH MY COMPUTER 
FOR SOMETIME IN THE NEXT FEW WEEKS. WHAT DATE WOULD YOU 
PREFER? NEVER 

THAT HILL BE FINE 

I'VE ENJOYED COMMUNICATING HITH YOU. 

HAVE A NICE DAY. 

els 



18 CLS: PRINTS412, 'DOCTOR Z" 

28 PRIHT: PRINT TAB<7> ■COPYRIGHT 1973 CREATIVE COMPUTING HORRISTOHN, NJ" 

38 PRINT§968, "; : INPUT "HIT ENTER TO BEGIN"; I* 

48 CLS. PRINT "HELLO THERE, I'H YOUR COMPUTER THERAPIST. " 

58 PRINT "WHAT IS YOUR NAME? AND TELL ME SOMETHING ABOUT YOURSELF. " 

68 PRIHT "HONEVER, DON'T TYPE MORE THAN ONE LINE I TIRE EASILY. " 

78 INPUT At 

88 PRINT "HHAT DID YOU SAY YOUR NAME HAS AGAIN"; 

90 IWW B* 

188 PRINT "HOH DO YOU FEEL TODAY"; 

118 LET C=8: U=8: V=8 

128 INPUT At 

138 IF C=18 THEN 428 

146 LET Z=INT<ie*RND<8)> 

158 IF U=Z THEN 148 

168 IF V=Z THEN 148 

178 LET U=Z 

188 ON Z+l GOTO 398,228,248,268,288,388,228,348,368,388 

198 GOTO 398 

268 PRINT "THAT'S VERY INTERESTING, TELL ME MORE ■ 

218 GOTO 398 

228 PRINT "HAVE YOU F&T THIS HHY LONG"; 

238 GOTO 338 

248 PRINT "DO YOU TMMC THIS IS REASONABLE IN LIGHT OF YOUR INTERESTS"; 

258 GOTO 398 

268 PRINT "DO YOUR FRIENDS FIND THIS ACCEPTABLE"; 

278 GOTO 398 

288 PRINT "DO YOU FEEL COMFORTABLE HITH THIS FEELING"; 

238 GOTO 398 

388 PRINT "DO YOU THINK THAT THIS IS A NORMAL FEELING"; 

316 GOTO 398 

328 PRINT "WHY DO YOU THINK YOU FER THIS WAY"; 

338 GOTO 338 

348 PRINT "HAVE YOU TALKED TO ANYONE ABOUT THIS"; 

358 GOTO 398 

368 PRINT "HHY ARE YOU HERE"; 

378 GOTO 398 

388 PRINT "ARE YOU SATISFIED WITH TIC WAY YOUR IDEAS ARE DEVELOPING"; 

398 LET C=C+1 

488 LET U=Z 

418 GOTO 128 

426 CLS. PRINT "I THINK YOU ARE MAKING A GREAT ATTEMPT TO SOLVE YOUR" 

430 PRINT "DIFFICULTIES, AND I SEE NO NEED TO CONTINUE THIS" 

448 PRINT "SESSION ANY FURTHER " 

458 PRINT 

468 PRIHT Bt; ", WOULD YOU MAKE ANOTHER APPOINTMENT HITH MY COMPUTER" 

478 PRINT "FOR SOMETIME IN THE NEXT FEU WEEKS. HHAT DATE WOULD YOU" 

488 PRINT "PREFER"; INPUT At 

438 PRINT 

588 PRINT "THAT HILL BE FINE " 

518 PRINT "I'VE ENJOYED COMMUNICATING WITH YOU. ■ 

528 PRINT "HAVE A NICE DAY. " 

538 END 
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Description: ELIZA is a program that 
accepts natural English as input and 
carries on a reasonably coherent 
conversation based on the psychoana- 
lytic techniques of Carl Rogers. You will 
have to forgive ELIZA for being a poor 
English student. You'll find that it is best 
not to use punctuation in your input, and 
you'll havetocarrytheconversation. But 
it does work! 

How it works: In order to speak to you, 
ELIZA must: (1) get a string from the 
user, and prepare it for further 
processing: (2) find the keywords in the 
input string: (3) if a keyword is found, 
take the part of the string following the 
keyword and "translate" all the personal 
pronouns and verbs ("I" becomes 
"YOU", "ARE" becomes "AM", etc.); (4) 
finally, look up an appropriate reply based 
on the keyword which was found, print it 
and, if necessary, the "translated" 
string. ELIZA usesfourtypesof program 
data to accomplish this: 

(1) 36 keywords, such as"l AM", "WHY 
DONT YOU", and "COMPUTER". The 
keywords must be in order of priority, so 
ELIZA will key on "YOU ARE" before 
"YOU". 

(2) 1 2 strings used for the translation or 
conjugation process. These are in pairs 
such that if one member of the pair is 
found, the other is substituted for it. 
Examples: "Y", "YOU", "AM", "ARE", 
etc. 

(3) 112 reply strings. The strings are 
arranged in groups corresponding to the 
keywords. There is no fixed number of 
different replies for each keyword. 
Replies ending in a "*" are to be followed 
by the translated string, while the 
strings ending in normal punctuation 
are to be printed alone. 

(4) Numerical data to determine which 
replies to print for each keyword. For 
each keyword there is a pair of numbers 
signifying (start of reply strings, number 
of reply strings). Thus the fifth pair of 
number, (10,4), means that the replies 
for the fifth keyword ("I DONT") start 
with the tenth reply string, and that there 
are four replies. 

Detailed Explanation: 

Lines 10-160: Initialization. Arrays and 
strings are dimensioned. N1, N2, and 
N3, which represent the number of 
keywords, number of translation strings, 
and number of replies respectively, are 
defined. Then the arrays are filled. 
Slkeyword number) is the ordinal 
number of the start of the reply strings 
for a given keyword, R(keyword number) 



is the actual reply to be used next, and 
N(keyword number) is the last reply for 
that keyword. Finally an introduction is 
printed. 

Lines 1 70-255: User input section. This 
part of the program gets a string from the 
user, places a space at the start of the 
string and two at the end (to make it 
easier to correctly locate keywords and 
to preventsubscripting out of bounds), 
throws out all the apostrophes (so DONT 
and DON'T are equivalent), and stops if 
the word SHUT is found in the input 
string (which it takesto mean SHUTUP). 
ELIZA also checks for repetitive input by 
the user. 

Lines 260-370: Keyword-finding sec- 
tion. ELIZA scans the input string for 
keywords and saves the keyword of 
highest priority temporarily in S, T, and 
F$. If no keyword is found, the keyword 
defaults to number 36, NOKEYFOUND 
(which causes ELIZA to say something 
noncommital) and it skips the next 
section. 

Lines 380-555: Translation or Conjuga- 
tion section. The part of the input string 
following the keyword is saved. Then 
pairs of translation strings, as described 
above, are read and upon the occurence 
of one of these strings, the other is 
substituted for it. When this is done 
ELIZA makes sure there is only one 
leading space in the translated string. 
Lines 560-640: Reply printing section. 
Using R(keyword number), Sfkeyword 
number), and Nlkeyword number), the 
correct reply is located. The pointer for 
the next reply is bumped and reset if it is 
too large. If the reply string ends in a "*" 
it is printed with the translated string, 
otherwise it is printed alone. The 
previously entered input string is saved 
to permit checking for repetetive input, 
and then ELIZA goes back for more input. 



Limitations: Runs in 1 6K of memory. 

Modifications: You can easily add, 
change, or delete any of the keywords, 
translation words, or replies. Remem- 
ber, you will also have to change N1 , N2, 
N3, and/or the numerical data. Just as a 
suggestion, if you decideto insert "ME" 
and "YOU" in the translation string list, 
put a nonprinting (control) character in 
YOU to prevent ELIZA from substi- 
tuting l-»YOU-»ME. This means that YOU 
will always be assumed to be thesubject 
of a verb, never the object, but resolving 
that difficulty is a whole different 
problem. 

What it all means: we'll leave to you. 
Although this program is an inferior 
imitation of the original, it does work. It is 
pretty farfetched to believe that a 
psycholanalyst is nothing but a sentence- 
input-key word-finder-conjugator-reply 
finder, but if you really think so, you can 
buy your computer a speech-recognition 
unit, a Computalker and a green couch, 
and charge $75/hr< My computer, the 
doctor! 

Geneology: ELIZA was originally 
programmed in LISP by Joseph Weizen- 
baum at MIT. It was converted to BASIC 
by Jeff Shrager and further modified to 
work in Microsoft BASIC by Steve North, 
who also wrote these notes. 



Name 
"RfXj.SIX), 

!$ 

K$ 
S C$ 
•F$ 

;-R$,S$ 
--P$ 

Z$ 

-N1 
-N2 

N3 

K 

S,T 

X,L 

V 



Usage 
N(X) See Text 

Input string 

Keyword string 

Translated or conjugated string 

Reply string, also used to save K$ in scanning for keyword 

Strings used in conjugation process 

Previous input string 

Scratch (used for simulating RESTORE NNNN statement). 

Number of keywords 

Number of conjugation strings 

Number of replies 

Keyword number 

Used to save K and L when scanning for keyword 

X,L Scratch. X is generally used for looping while 

L is used for scanning through strings 

V Used for scanning for keyword string 
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COPYRIGHT 1979 CKEfiTIVE COMPUTING MORRISTOWN, NJ 

Cl8 



PRESS ENTER TO START SESSION? . 

0l8 

HI! I'M ELIZA WHAT'S VOUR PROBLEM? 

STRANGE WOMEN 

SRV, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS? 

NO, NOT A ONE HOW ABOUT YOU 

HE WERE DISCUSSING VOU - NOT HE. 

HO HE HERENT, VOU LIED 

OH, I LIED 

SO, VOU ADMIT IT I aHAYS KNEW VOU HERE DEFECTIVE 

VOU'RE NOT REALLV TALKING ABOUT HE, ARE VOU? 

LOOK, HHV DO VOU ALWAYS SAV THAT, MflVBE I LIKE TALKING ABOUT VOU 

HE HERE DISCUSSING VOU - NOT ME 
AGAIN, BOV VOU SURE REPEAT VOURSELF ALOT 
OH, I SURE REPEAT VOURSELF ALOT 

RIGHT, BOV ARENT HE SPEAKING GOOD TODAY, HHO ARE VOU LEON SPINKS 

els 

HHV ARE VOU INTERESTED IN WHETHER OR HOT I AM LEON SPINKS 

HELL OH THE SURFACE YOU APPEAR SOMEWHAT LIKE HIM 

DID VOU COME TO ME BECAUSE YOU ARE 

BECAUSE I AM WHAT YOU SIR ARE A MINDLESS CRETIN 

DID YOU COME TO ME BECAUSE VOU ARE WHAT I SIR AM A MINDLESS CRET 

IN 

WHAT THE HECIO YOU MAKE ABOUT AS MUCH SENSE AS SPINACH 

VOU'RE NOT REALLV TALKING ABOUT ML ARE VOU? 

LOOOK PAL I WOULD NOT TRUST VOU HITH OUR NATIONAL DEFENCES 

HE WERE DISCUSSING YOU - NOT ME 

AND HHO ARE VOU TO MAKE THE R&ES HERE 

WOULD YOU PREFER IF I WERE NOT TO MAKE THE RULES HERE 

IT HOULD HaP ABIT 

els 

I SEE 

HE ALL SEE BUCKO 

I'M NOT SURE I UNDERSTAND VOU FULLY. 

HELL THE FEELING IS MUTUAL 

COME, COME, ELUCIDATE YOUR THOUGHTS. 

LOOK VOUR PRINTER IS BROKEN 

HHV ARE VOU CONCERNED ABOUT MY PRINTER IS BROKEN 

BECAUSE I BOUGHT THE BLOODY THING 

IS THAT THE REAL REASON? 

DO VOU MEAN THE HARRY REASON 

OH, I MEAN THE HARRY REASON 

CRN YOU ELABORATE OH THAT? 
NOT A CHANCE SAY, DO YOU LIKE MUSIC OR FOOD 
VOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU? 
SHUT UP. 
CIS 




IB CLS: PRINT S 40, 'ELIZA" 

29 PRINT: PRINT TAB(?) "COPVRIGHT 1979 CREATIVE CONFUTING KORSUSTOm, NJ" 

39 PRINT I 968, "■; : INPUT "PRESS ENTER TO START SESSION'ifB: CLS 

40 CLEAR 2088 

58 REM INITIALIZATION 

68DIMS(36>,R<36},NG6) 

70 N1=36:N2=14: 10=112 

88 FOR X=l TO ffl.+N2+N3:R£AD Z$:NEXT X:REH SAME AS RESTORE 

98 FORM TO Nl 

168 READ S<X),L:R«)=SCX):N(X>=S(XHL-i 

118 NEXT X 

128X*="HI! I'M ELIZA WHAT'S VOUR PROBLEM?"' GOSUB 2148 

138 REM 

148 REM USER INPUT SECTION 

150 fl*=" 

168 X=P££K<16416}+PEEK<1641?>*256 

178 POKE X446: FOR CN=1 TO 10: B*=INKEYt: IF BO"" THEN 298 

188 NEXT CN: POKE X, 32: FOR CN=i TO 18: B*=INKEY$ 

138 IF MO"" THEN 268 ELSE NEXT CN: GOTO 178 

288 POKE X, 32: IF RSC(B»)=12 THEN 258 

218 IF ASC(B*>=8 AND LEN(A»08 THEN A*=LEFT«Af , LEN(A»-1> : PRINT B*; 

228 IF ASC(B*)=24 THEN B*="' PRINT CHR«29> CHRJC38); 

238 IF ASC<B$»31 AND ASC(B«<91 THEN PRINT Bl; : R*=B*+B* 

240 GOTO 166 

258 PRINT: I$=AJ: IJ=" »+I$f " 

260 REM GET RID OF APOSTROPHES 

279 FOR L=l TO LEN(It) 



288 IFMlD«W,Ll)= l ""THENU-LEFT«IJ,L-l)+RIGHT«I*,LEN(It!-L):60T0268 


298 IFL+4<4.EN<I$)THENIFHID«»,L,4>="SHUT"THEN END 


388 NEXT L 


316 IF IJ=PJ THEN X$="PLEASE DON'T REPEAT YOURSELF" ■ GOSUB 2146: GOTO 139 


328 REM 


338 REM FIND KEYWORD IN H 


348 REM 


358 RESTORE 


366 S=6 


379 FOR K=l TO Nl 


388 READ K* 


390 IF S>8 THEN438 


488 FOR L=l TO LEN(IO-LEN(Kt)+l 


410 IF HIDKI*,L,LEN(K$»=K*THENS=K:T=L:F*=« 


428 NEXT L 


438 NEXT K 


448 IF S>6 THEN K=S:L=T:G0T0478 


450 K=36:GOT0686:REM WE DIDH'T FIND ANY KEYWORDS 


460 REM 


478 REM TAKE RIGHT PART OF STRING AND CONJUGATE IT 


488 REM USING THE LIST OF STRINGS TO BE SWAPPED 


496 REM 


568 RESTORE :F0RX=1 TO N1:READ Z*:NEXT X:R£M SKIP OVER KEYWORDS 


516 Ct=" "+RIGHT$(I$,LEN(ro-LEN(F»-L+i) 


528 FOR X=l TO N2/2 


538 READ SIM 


546 FOR L= 1 TO LEN(«) 
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558 IF ULEN(St»LEN(«) THEN 688 

560 IF MID$<C*L,lEH<S*»OS* THEH 698 

578 M=LEFT««, L-1>+R$+RIGHTS(«, LEH(«)-L-LBKS«+i> 

588 L=L+LBKR$) 

599 GOTO 648 

688 IF LiLEN(R»>LEH<C$)THEH648 

618 IF M!D«C*,L,LEH(R*»OR* THEN 648 

628 C$=LEFT*<C*, L-i)+S*+RlGHT«a, LEN(C«-L-LEN<R«+1> 

628 L=L+LEN'S$) 

648 NEXT L 

658 NEST X 

668 IF HIDfCB,2,i>=" "THENCf=RIGHT$(«,LEH(C»-i>:REM ONLV i EPRCE 

678 REM 

689 REH NOW USING THE KEYWORD NUMBER 00 GET REPLV 
698 REM 

769 RESTORE: FOR X= 1 TO HW12:REflO Z*:«EXT X 

718 F0RX=1T0R<K>:READ FJ'.NEXT X:R£M READ RIGHT REPLV 

728 R(IO=R<IO+i: 1FR<K»H<K> THEN R(K>=S(K) 

739 IF RIGHT«F$,1>0"*" THEN X$=fJ: M=M: GQSLE 2148: GOTO 138 

740 X*=LEFT«F*,LEN<F*>-1>+M: GOSUB 2140 
758 P$=I$:GOTO 128 

768 REH 

778 REN PROGRAM DfiTR FOLLOWS 

788 REH 

790 REM KEVHORDS 

888 REH 

818 DATA 

828 DfiTR 



I FEEL" 

,"I AN", "IN ' 



CRN YOU", "CRN I", "VOU ARE", "YOURE", "I DONT", 
WHY DONT VOL)".- "WHY CANT I", "RRE VOU", "I CfiNT 
828 DATR "VOU ', "I HfiHT", "WHAT", "HON*, "MHO"; "WHERE", "WHEN", "HHV' 
848 DATA "US', "CRUSE", "SORRY", "DREAM", "HELLO", "HI *, "HRVBE" 
NO", "YOUR", "ALWAYS", "THINK", "ALIKE", "YES", "FRIEND" 
'COMPUTER", "NOKEYFOUND" 



STRING DATR FOR CONJUGATIONS 



RRE " 
IVE ' 



! VOUVE ' 



"WAS ", " YOU ' 
"," YOURE "," 



', "VOUR ' 
1 YOU " 



REPLIES 



858 DATA 

868 DATA 

878 REH 

888 REM 

890 REM 

980 DATR 

910 DATA 

920 REH 

928 REH 

948 REM 

958 DATA "DON'T VOU BELIEVE THAT I CRN*" 

960 DATA "PERHAPS VOU MOULD LIKE TO BE ABLE TO*" 

978 DATR "VOU WANT HE TO BE ABLE TO*" 

988 DATA "PERHAPS VOU DBN'T WRNT TO*" 

998 DATA "DO YOU WANT TO BE ABLE TO*" 

1088 DATA "WHAT HAKES VOU THINK I AM*" 

1810 DATA "DOES IT PLERSE VOU TO BELIEVE I AH*" 

1820 DATA "PERHAPS YOU MOULD LIKE TO BE*" 

1020 DflTR "DO YOU SOMETIMES WISH VOU HERE*" 

1040 DRTfl "DON'T VOU RERLLV*" 

1058 DATA "WHY DON'T YOU*" 

1868 DflTR "DO VOU WISH TO BE ABLE TO*" 

1878 DATA "DOES THAT TROUBLE YOU?" 

1888 DATA "TELL ME MORE R80UT SUCH FEELINGS. * 

1898 DATA "DO VOU OFTEN FEEL*" 

1100 DRTA "DO YOU ENJOY FEELING*" 

1118 DflTR "DO VOU RERLLV BELIEVE I DON'T*" 

113 DATA "PERHRPS IH GOOD TIME I HILL*" 

1128 DATA "DO YOU HRNT HE TO*" 

1148 DATA "DO VOU THINK VOU SHOULD BE ABLE TO*" 

1158 DATA "HHV CRN'T YOU*" 

1160 DATA "HHV ARE VOU INTERESTED IN WHETHER OR NOT I AM*" 

1178 DATA "MOULD VOU PREFER IF I HERE NOT*" 

1188 DATR "PERHAPS IH VOUR FANTASIES I AM*" 

1198 DATA "HOM DO YOU KNOW YOU CAN'T*" 

1280 DATA "HAVE YOU TRIED?" 

1218 DATA "PERHAPS YOU CAN NOH*" 

122B DATA "DID VOU COME TO ME BECAUSE VOU RRE*" 

1220 DATA "HOM LONG HAVE VOU BEEN*" 

1248 DATA "DO VOU BELIEVE IT IS NORMAL TO BE*" 

1258 DATA "DO YOU ENJOY BEING*" 

1268 DATA "HE HERE DISCUSSING VOU - NOT ME. " 

1278 DATA "OH, 1*" 

1288 DATA "YOU'RE NOT REALLY TALKING ABOUT HE, ARE YOU?" 

1298 DATR "WHAT WOULD IT MEAN TO VOU IF VOU GOT*" 

1368 DATA "HHV DO VOU NANT*" 

1310 DATA "SUPPOSE VOU SOON GOT*" 

1320 DATA "HHAT IF VOU NEVER GOT*" 

1220 DATA "I SOMETIMES ALSO WANT*" 

1246 DATA "HHV DO VOU ASK?" 

1358 DATA "DOES THAT QUESTION INTEREST VOU?" 



1368 DATA "WHAT RISER WOULD PLEASE VOU THE MOST?" 

1270 DATA "WHAT DO YOU THINK?" 

1288 DATA "ARE SUCH QUESTIONS ON YOUR HIND OFTEN?" 

1398 DATA "HHRT IS IT THRT YOU REALLY HRNT TO KNOW?" 

1400 DATA "HAVE YOU ASKED ANYONE ELSE?" 

1410 DATA "HAVE VOU ASKED SUCH QUESTIONS BEFORE?" 

1420 DATA "HHAT ELSE COHES TO HIND HHBI VOU ASK THAT?" 

1420 DRTA "NAMES DON'T INTEREST ME " 

1448 DATA "I DON'T CARE ABOUT NAMES - PLEASE GO ON " 

1458 DATA "IS THAT THE REAL REASON?" 

1460 DATA "DON'T ANY OTHER REASONS COME TO MIND?" 

1478 DATA "DOES THAT REASON EXPLAIN ANYTHING RSE?" 

I486 DATR "HHRT OTHER REASONS MIGHT THERE BE?" 

1490 DflTR "PLEASE DON'T APOLOGIZE!" 

1588 DATA "APOLOGIES ARE NOT NECESSARY. » 

1510 DRTfl "WHAT FEELINGS DO VOU HAVE WHEN VOU APOLOGIZE. ■ 

1528 DATA "DON'T BE SO DEFENSIVE! " 

1528 DATA "HHAT DOES THAT DREAM SUGGEST TO VOU?" 

1546 DATA "DO VOU DREAM OFTEN?" 

1558 DATR "WHAT PERSONS APPEAR IN YOUR DREAMS?" 

1568 DATA "ARE YOU DISTURBED BY VOUR DREAMS?" 

1570 DATA "HOH DO VOU DO. . . PLEASE STATE VOUR PROBLEM. " 

1588 DATA "YOU DON'T SEEM QUITE CERTAIN " 

1598 DATA "WHY THE UNCERTAIN TONE?" 

1608 DRTA "CAN'T YOU BE MORE POSITIVE?" 

1610 DATA "YOU AREN'T SURE?" 

1620 DATA "DON'T VOU KNOW?" 

1628 DATA "RRE YOU SAVING NO JUST TO BE NEGATIVE?" 

1648 DATA "VOU ARE BEING A BIT NEGATIVE " 

1658 DATA "HHV NOT?" 

1668 DATA "ARE VOU SURE?" 

1678 DATA "WHY NO?" 

1688 DATA "WHY ARE YOU CONCERNED ABOUT MY*" 

1698 DATA "WHAT ABOUT VOUR OWN*" 

1708 DATA "CAN VOU THINK OF A SPECIFIC EXAMPLE?" 

1718 DATA "WHEN?" 

1728 DATA "WHAT ARE VOU THINKING OF?" 

1738 DRTA "REALLY, ALWAYS?" 

1740 DATA "DO YOU REALLY THINK SO?" 

1750 DATA "BUT VOU ARE NOT SURE YOU*" 

1760 DATA "DO VOU DOUBT VOU*" 

1778 DATA "IN WHAT WAY?" 

1788 DATA "WHAT RESEMBLANCE DO VOU SEE?" 

1790 DATA "HHAT DOES THE SIMILARITY SUGGEST TO YOU?" 

I860 DATR "WHAT OTHER CONNECTIONS DO YOU SEE?" 

1810 DATA "COULD THERE REALLY BE SOME CONNECTION?" 

1828 DRTA "HON?" 

1828 DATA "YOU SEEM QUITE POSITIVE " 

1848 DATA "ARE YOU SURE?" 

1850 DATA "I SEE " 

1860 DATR "I UNDERSTAND. " 

1870 DATA "HHV DO YOU BRING UP THE TOPIC OF FRIENDS?" 

1888 DATA "DO YOUR FRIENDS WORRY YOU?" 

1898 DATA "DO VOUR FRIENDS PICK ON VOU?" 

1908 DATA "RRE VOU SURE VOU HRVE RNV FRIENDS?" 

1918 DRTR "DO VOU IMPOSE ON VOUR FRIENDS?" 

1928 DATA 'PERHAPS YOUR LOVE FOR FRIENDS WORRIES VOU. " 

1926 DRTA "DO COMPUTERS WORRY YOU?" 

1948 DATR "ARE VOU TALKING ABOUT HE IN PARTICULAR?" 

1950 DATA "ARE YOU FRIGHTENED BY MACHINES?" 

1968 DATA "WHY DO VOU MENTION COMPUTERS?" 

1970 DATA "HHAT DO VOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?" 

1989 DATR "DON'T VOU THINK COMPUTERS CAN HELP PEOPLE?" 

1990 DATA "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?" 
2088 DATA "SAY, DO VOU HAVE ANV PSYCHOLOGICAL PROBLEMS?" 
2818 DflTR "WHAT DOES THAT SUGGEST TO YOU?" 

2820 DATA "I SEE " 

2028 DATA "I'M NOT SURE I UNDERSTAND VOU FULLY. " 

2040 DATA "COME, CONE, RUCIDATE VOUR THOUGHTS. " 

2850 DATA "CAN YOU ELABORATE ON THAT?" 

2060 DATA "THAT IS QUITE INTERESTING " 

2070 REM 

2888 REM DATA FOR FINDING RIGHT REPLIES 

2890 REM 

2160 DATR 1, 2, 4, 2, 6, 4, 6, 4, 18, 4, 14, 2, 17, 2, 28, 2, 22, 2, 25, 2 

2118 DRTfl 28, 4, 28, 4, 22, 3, 25, 5, 48, 9, 48, 9, 48, 9, 48, 9, 48, 9, 48, 9 

2120 DflTR 49, 2, 51, 4, 55, 4, 59, 4, 62, 1, 62, 1, 64, 5, 69, 5, 74, 2, 76, 4 

2128 DRTfl 80, 2, 82, 7, 90, 2, 92, 6, 99, 7, 186, 6 

2148 IF PEEK(16416)tPEEK(16417)*256=16256 THEN CLS 

2150 PRINT CHR«14); : FOR X=l TO LENCXI): PRINT HIWOB, X, 1)j 

2168 FOR TM=1 TO 28: NEXT TUX: PRINT CHR«15): RETURN 
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Father 



This program loosely simulates a 
debate with your father about going 
out on Saturday night. After you win or 
lose the debate, then Saturday night 
approaches and you must decide 
whether or not to actually go out. When 
all is said and done, the computer will 
give you a score on a scale of minus 
seven to plus four. (This could have 
been a scale of zero to ten, but 
computers have this magic ability to 
give us scales of anything we want). 

This program originated in the 
dungeons of Digital Equipment Cor- 
poration and was whipped into its 
present form by Victor Nahigian. 



FATHER 

COPYRIGHT 197S CREATIVE COMPUTING HORRISTOHM, H-J 

els 



DO YOU NEED INSTRUCTIONS'' VES. 



els 

FATHER 

VOU ARE GOING TO PLAV R GAME IH HHICH YOU HILL DISCUSS 
A PROBLEM HITH VOUR FATHER AMD ATTEMPT TO GET HIM TO AGREE WITH 
VOU IN THREE TRIES 

FOR EACH STATEMENT VOU MAKE, I WILL TELL VOU HHAT VOUR 
FATHER REPLIED. 

HHEN A QUESTION MARK APPEARS, TVPE THE NUMBER OF VOUR 
RESPONSE FOLLOWED BV THE <EHTER> BUTTON. TO HILL RECIEVE 
POINTS BASED ON HON GOOD VOU ARE AT CONVINCING VOUR FATHER. 

A LIST Of THE RESPONSES HILL F&LOH 



PRESS ANV KEV TO CONTINUE 
els 



1) 

2) 
2) 
4) 
5) 
6) 



0. K. I HILL 5TAV AT HOHE 

BUT I'D REALLV LIKE TO GO. ALL Iff FRIENDS ARE GOING. 

IF ALL MV WORK IS DONE, I SHOULD BE ABLE TO GO. 

IF VOU LET ME GO OUT I'LL BABVSIT ALL NEST MEEK. 

VOU NEVER LET ME DO WAT I UAHT TO DO. 

I'M GOING ANVHftV 



TOE ISSUE - VOU WANT TO 60 OUT, BUT YOUR FATHER OPPOSES VOU 




HHEH VOU FIRST BRING UP THE IDEa VOUR FATHER STATES 
NO VOU CAN'T GO OUT ON A DATE SATURDAV NITE AND THAT'! 
HHAT MOULD VOU SAV FIRST "' 2_ 
els 

1) 

2) 
I) 
4) 
5) 
6) 



THAT. 



O.K. I HILL STRV AT HOME 

BUT I'D REALLV LIKE TO GO. ALL HV FRIENDS ARE GOING. 

IF ALL MV HORK IS DONE, I SHOULD BE ABLE TO GO. 

IF VOU LET HE GO OUT I'LL BABVSIT ALL NEXT MEEK. 

VOU NEVER LET HE DO WHAT I HANT TO DO. 

I'M GOING ANVHAV 



TIC ISSUE - VOU HAHT TO GO OUT, BUT TOR FATHER OPPOSES VOU 
VOUR FRTHER SAID 

I DON'T THINK VOU DESERVE TO GO OUT SATURDAV NITE. 

HHAT IS TOR REPLV ' J. 
els 



0. K. 1 HILL STAV AT HOHE 

BUT I'D REALLV LIKE TO GO. ALL HV FRIENDS ARE GOING 

IF ALL HV HORK IS DONE, I SHOULD BE ABLE TO GO. 

IF VOU LET ME GO OUT I'LL BABVSIT ALL NEXT WEEK. 

VOU NEVES LET HE DO HHAT I HANT TO DO. 

I'H GOING ANVHAV 



THE ISSUE - VOU HANT TO GO OUT, BUT VOUR FATHER OPPOSES VOU 
VOUR FATHER SAID 
0. K. IF VOU DO THAT VOU CAN GO OUT ON SATURDAV NITE 

ON A SCALE OF -7 TO 4 (?), VOUR SCORE HAS 3 POINTS. 
HELL IT'S SATURDAV NITE, DO VOU 

i) GO OUT 

2) STAV HOME WHICH DO VOU DO i 1_ 
els ■ 



0. K. I HILL STAV AT HOHE 

BUT I'D REALLV LIKE TO GO. ALL MV FRIENDS ARE GOING. 

IF ALL MV HORK IS DONE I SHOULD BE ABLE TO GO. 

IF VOU LET ME GO OUT I'LL BABVSIT ALL NEXT HEEK. 

TO NEVER LET ME DO HHAT I HANT TO DO. 

I'M GOING AHVHAV 



THE ISSUE - VOU HANT TO GO OUT, BUT VOUR FRTHER OPPOSES VOU 
VOUR FATHER CHECKED UP ON VOU. 

VOUR SCORE IS NOW 3 POINTS. 

HELL DONE !! 



HOULD VOU LIKE TO TRY AGAIN "> HO. 
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10 CIS. CLEAR leSB 

28 PRINT g 413, "FATHER" 

38 PRINT 

48 PRINT TAK7)"C8PYRIGHT 1379 CREATIVE COMPUTING MORRISTOMN, NJ" 

58 PRINT 8 968, ""; 

60 INPUT'DO YOU NEED IHSTROCTIOMS"; » 

78 IF LEFWB, 1)="N" THEN 228 

88 OS 

98 PRINT TRB(29>"FRTHER" 

188 PRINT 

118 PRINT" VOU RRE GOING TO PLflV R GAME IN HHICH VOU HILL DISCUSS" 

128 PRINT'R PROBLEM WITH VOUR FATHER AND ATTEMPT TO GET HIM TO AGREE WITH" 

128 PRINT'YOU IN THREE TRIES" 

148 PRINT CH»(12)" FOR EACH STATEMENT VOU HAKE, I HILL TELL VOU HHRT VOUR" 

158 PRINTTATHER REPLIED. " 

168 PRINT CHRK13)" WHEN A QUESTION HflRK APPEARS, TVPE THE NUMBER OF VOUR" 

178 PRINT-RESPONSE FOLLOMED BV THE <ENTER> BUTTON. VOU HILL RECIEVE" 

188 PRINT"POINTS BASED ON HOH GOOD VOU ARE AT CONVINCING VOUR FATHER. " 

138 PRINT CHRtti2>" A LIST OF THE RESPONSES HILL FOLLOW" 

288 PRINT C< 979, "PRESS ANV KEY TO CONTINUE"! 

218 IF INKEV* =" THEN 218 

22S CLS 

238 PRINT"1) 0. K. I HILL STAV AT HOME" 

248 PRINT"2) BUT I'D REflLLV LIKE TO GO. ALL 11V FRIENDS RRE GOING. " 

258 PRINT'S) IF ALL MV HORK IS DONE, I SHOULD BE ABLE TO GO. " 

268 PRINT"4) IF VOU LET ME GO OUT I'LL BABYSIT ALL NEXT UEEK. " 

278 PRINT"5) VOU NEVER LET ME DO HHRT I HUNT TO 00. « 

288 PRINT'S) I'M GOING ANYWAY" CHR$<13)STRIHG«64, 148); 

298 PRINTTHE ISSUE - VOU NRNT TO GO OUT, BUT VOUR FATHER OPPOSES VOU" 

288 PRINT CHR$03)"HHEN VOU FIRST BRING UP THE IDEA, VOUR FATHER STATES" 

218 Pi=-1 

328 P3=3 

238 P5=-l 

246 C=l 

258 P6=-2 

268 X=8 

278 16=8 

238 PRINT" NO VOU CAN'T GO OUT ON A DATE SATURDAY NITE AND THAT'S THAT. " 

298 INPUT" HHRT MOULD VOU SAV FIRST "; II 

488 PRINT 8 512, CHRK31); 

418 ON II GOTO 528, 568, 878, 558, 588 

428 PRINT" NO, VOU CAN NOT GO OUT ON SATURDAV NITE. " 

438 X=X-2 

448 16=16+11 

458 IF 16=12 THEN 628 

468 C=C+i 

478 IF C=2 THEN 858 

488 IF 12=6 THEN 628 

498 GOTO 588 

588 PR1NT"Y0UR FATHER SAID" 

518 GOTO 428 

528 PRINT-AGREEMENT REACHED" 

528 X=X+F1 

548 GOTO 858 

550 X=X+P5 

560 PRINT-TOUR FATHER SAID" 

57B PRINT" 1 DON'T THINK VOU DESERVE TO GO OUT SATURDAV NITE " 

58-8 INPUT" HHRT IS VOUR REPLV "; 12 

598 PRINT 8 512, CHR«2i); 

688 ON 12 GOTO 528, 770, 828, 828, 768, 588 

618 PRINT'YOUR FATHER SAID" 

628 X=X+P2 

628 INPUT" HHRT IS VOUR REPLV "; 12 

648 PRINT 8 512, CHRJC21); 

658 ON 12 GOTO 718, 858, 698, 698, 728 

668 X=X+P1 

678 X=X+P1 



688 GOTO 858 

698 X=X+2 

788 G8T0 858 

718 X=X-1 

726 GOTO 858 

738 X=X-2 

746 PRINT"DISCU5SI6N ENDED. NO AGREEMENT REACHED. " 

758 GOTO 858 

768 X=X+P5 

778 PRINT-TOR FATHER SAID" 

788 PRINT" NO, I'M SORRV, BUT VOU REflLLV DON'T DESERVE TO GO OUT" 

798 INPUT" HHRT IS VOUR REPLV ■; 13 

888 PRINT 6 512, CHRK21); 

818 ON 13 GOTO 526, 638, 820, 828, 678, 668 

828 PRINT'YOUR FATHER SAID' 

838 X=X+P3 

848 PRINT" 8. K. IF VOU DO THAT VOU CAN GO OUT ON SATURDAV NITE " 

858 PRINT CHR«12)"0N A SCALE OF -7 TO 4 (?), VOUR SCORE HAS" X"POIHTS. ' 

868 GOTO 918 

878 PRINT'YOUR FATHER SAID" 

888 X=X+P2 

890 PRINT" HELL HAVBE, BUT I DON'T THINK VOU SHOULD GO. " 

980 GOTO 588 

916 PRINT-HELL IT'S SATURDAY NITE, DO VOU" 

926 PRINT" 1) 60 OUT" 

928 PRINT" 2) STAV HOME UHICH DO VOU DO "; 

948 INPUT 02 

958 PRINT C< 512, CHRtGi); 

960 IF Q2>1 THEN 988 

978 GOTO 1828 

988 IF I2>1 THEN 1688 

990 GOTO 1828 

I860 IF I2<5 THEN 1028 

1618 GOTO 1828 

1826 IF RND(8».5 THEN 1858 

1828 PRINT-TOUR FATHER CHECKED UP ON VOU. " 

1648 G8TB 1878 

1050 PRINPVOUR FATHER DIDN'T CHECK UP ON VOU. " 

1868 GOTO 1878 

1078 ON 02 GOTO 1168, 1086 

1888 PRINT- VOUR SCORE IS (ION- X'POINTS. " 

1098 GOTO 1218 

1108 IF 12=2 THEN 1138 

1118 IF 12=4 THEN 1128 

1128 GOTO 1158 

1128 X=X+1 

1148 GOTO 1688 

1150 ON 13 GOTO 1686, 1886, 1138, 1128, 1688, 1088 

1168 IF 11=1 THEN 1198 

1178 ON 12 GOTO 1198, 1188, 1888, 1688, 1188, 1188 

1186 ON 13 GOTO 1198, 1198, 1686, 1886, 1196, 1190 

1196 X=X-i 

1288 GOTO 1688 

1216 ON X+8 GOTO 1228, 1226, 1236, 1228, 1250, 1258, 1258, 1250, 1270 

1220 GOTO 1290 

1220 PRINT' VOU DIDN'T SUCCEED IN CONVINCING VOUR FATHER AT ALL " 

1248 GOTO 1288 

1258 PRINT" VOU DIDN'T SUCCEED IN CONVINCING VOU FATHER " 

1266 GOTO 1368 

1276 PRINT" VOU CONVINCED VOUR FATHER, BUT IT TOOK TOO MANY TRIES. " 

1288 GOTO 1288 

1298 PRINT- HELL DONE !!" 

1300 PRINT 

1310 T1=T1+1 

1226 INPUT-KOULD VOU LIKE TO TRY AGAIN ";Q5* 

1328 IF LEFT$<05$, i)="Y" THEN 220 

1248 END 
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aip 
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This game may be the only one so easy that even 
an animal could play it, yet hard for people to play 
even as well as random chance. It may be useful in 
training the intuition, and improving gamesmanship 
in speculation-type activities, where each player is 
trying to outguess the others behavior and stay one 
step ahead. 

On each turn, the program first selects 'yes' or 
'no', but gives you no information about its decision. 
Therefore your guess on the first turn is pure chance, 
there is no skill involved. But soon the program 
starts using patterns in your behavior, making its 
decisions to increase the chance of your next guess 
being wrong. And to make it harder for you, the pro- 
gram doesn't strictly maximize its chances, but 
throws a little randomness into its decisions. 



• CIS • 



) YOU NEED INSTRUCTIONS? VES. 



■ els • 



OH EACH TURD, YOU GUESS VES CV) OR HO cm. 
ONLY ONE IS CORRECT, AND THE PROGRAM HAS DECIDED 
WHICH ONE, BEFORE YOU HAKE YOUR GUESS. AT FIRST 
YOUR ODDS ARE SEffi, PURE CHANCE. BUT LATER THE 
PROGRAM HILL TRY TO TAKE ADVANTAGE OF PATTERNS 
IN YOUR GUESSING. 

THE GAME ENDS AFTER 58 TURNS, fi SCORE OF 24 OR MORE 
IS GOOD. THE PROGRAM TELLS HHEN YOU HIN A TURN, 
BY TYPING AH ASTERISK. ('*') AS THE FIRST 
CHARACTER OF THE FOLLOWING L1HE. 





PRESS ANY KEY TO CONTINUE 






BEGIN. 














1 N '< Y 


v> Y 


f'H 


*■> Y 


*>Y 


•> Y 


f'H 


*'< V '' Y 


-> y 


■>'■• H 


'• H 


■> y 


*i Y 


■> y 


■> y '< Y 


■> v 


■> y 


-, y 


■> N 


*' N 


'' Y 


•> H ' N 


■*r> y 


»'S 


"> N 


*>H 


"' Y 


■> Y 


*> V *' H 


,y 


*•> Y 


■> v 


"> N 


*>n 


'• H 


V> Y ~> Y 


'' N 


*'• Y 


+•> Y 


•> Y 


■> v 


*■> Y 


*•> Y *' Y 


* 






END OF GAME. 




YOU GOT 22 OUT OF 58 CORRECT. 










PLAY AGAIN (Y OR N>? NO 













Variations 

There are endless strategies for programming this 
game, for there could be almost infinitely many defi- 
nitions of what a "pattern" is. No single algorithm 
could be "best", because it must assume a model 
of the human player, and people are different, even 
the same person from moment to moment. Any good 
algorithm must build or refine its model of the 
player, during the course of the game. 

This particular program keeps an array of 16 prob- 
ability estimates; the person's last two guesses, and 
whether they were right or wrong (16 situations alto- 
gether) determine which estimate is selected. The 
array (which depends on all previous play within 
the game) becomes a model or profile of the player, 
and it can be printed at end of game. Any prob- 
abilities far from .5 indicate predictable behavior in 
the corresponding situations. The profiles can be 
compared over time, or used to study strategy dif- 
ferences between people. They can also be compared 
with random profiles developed by playing games 
with random input such as coin flips, or (more easily) 
by modifying the program so that BASIC statements 
replace the human player and make guesses ran- 
domly (or by some other rule). In fact, different algo- 
rithms could play each other. 

This particular implementation has two param- 
eters: a memory factor (F1) which controls the decay 
rate of old learning when it is overridden by recent 
experience, and a randomness factor (F2) influencing 
the program's likelihood of making the decision sug- 
gested by the probability estimate. These are just 
two of innumerable optional parameters which could 
be used in programming FLIP. 

The program and description were written by John S. 
James. They originally appeared in Creative Computing, 
Mar/Apr 1977. 



18 as 

28 PRINT C< 412, "FLIP 

28 PRINT 

48 PRINT THBC7) "COPYRIGHT 1979 CREATIVE COMPUTING H0RR1STOIN, NJ" 

58 PRINT 8 968, ""; 

68 INPUT "DO YOU NEED INSTRUCTIONS"; IJ 

78 61=58 

88 IF LEFT$(I$, 1)C"V" THEN 278 

98 CIS 

188 PRINT TRB<38); "FLIP" 

118 PRINT 

128 PRINT "ON EACH TURN, YOU GUESS YES ',"/') OR NO CM'). " 

138 PRINT "ONLY DIE IS CORRECT, AND THE PROGRAM HAS DECIDED" 

148 PRINT "WHICH ONE, BEFORE YOU MAKE YOUR GUESS. AT FIRST" 

158 PRINT "YOUR ODDS ARE 59X, PURE CHANCE. BUT LATER THE" 

168 PRINT "PROGRAM HILL TRY TO TAKE ADVANTAGE OF PATTERNS" 

178 PRINT "III YOUR GUESSING. " 

188 PRINT 

198 PRINT "THE GAME ENDS AFTER"; Bi; "TURNS. B SCORE OF"; 

288 PRINT INT!Bl/2-l>; "OR MORE" 

216 PRINT "IS GOOD. THE PROGRAM TELLS HHEII YOU HIN A TURN," 

228 PRINT "BY TYPING AN ASTERISK ('*') AS THE FIRST" 

230 PRINT "CHARACTER OF THE FOLLOWING LINE " 

248 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 

258 IF INKEY* ="" THEN 258 

268 REM 

278 REM INIALIZE: 16 PROBABILITIES, 4 RESPONSES (X), 

2SB REM OLD-MEMORY FACTOR (Fl), RANDOMNESS FACTOR (F2), 

298 REM SCORES (S1,S2) AND RIQHT-ANSHER FLAG. 

288 DIM P(16), X<4) 

218 CLS 

228 PRIHT "BEGIN " 

238 P0=8+64 

348 FOR 1=1 TO 16 

358P(I)=5 

368 NEXT I 

278 FOR 1=1 TO 4 

383 XO>=8 

398 IF RNDC8K 5 THEN 418 

488 MI)=i 

418 NEXT I 

426 Fl= 8 

438F2=3 
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448 si=e 

458 52=8 

468 M=" ' 

476 REM 

480 REH TAKE THE ESTIMATED PROBABILITY (Zl) 

490 REM OF THE PERSON GUESSING VES. 

588 RBI USE AH ADJUSTED PROBABILITY (22). 

518 I9=8*X<4>+4*X<3)+2*X<2)+H1H1 

528 2i=P<I9) 

528 22=21 

548 IF 22O.5TKEN570 

558 22=RHD(8) 

568 GOTO 618 

578 IFZ2>.5THEH688 

588 Z2=22*F2+8*<1-F2) 

588 GOTO 618 

688 22=22*F2*l*(i-F2> 

618 25=8 

628 IF RNDC0X22 THEN 658 

638 25=1 

648 REN 

658 REM INTERACT HITH PERSON. GET HIS RESPONSE <Z3>. 

668 REM UPDATE RESPONSE HISTORV (X), APPROPRIATE PROB. <P(I9». 

678 PRINT fit; 

688 22=0 

698 INPUT H$ 

788 PRINT 8 PO, CHRK31); 



718 
728 
738 
748 
758 
768 
778 
788 
798 
888 
818 



918 

928 



968 
978 



P0=P0+8 

IF LEFT$<H*, 1)="V THEN 750 

IF LEFWH*, i)="N" THEN 768 

GOTO 698 

23=1 

At=" " 

S2=S2+1 

IF 22025 THEN 818 

«=■*• 

Sl=Sl+i 

REM UPDATE X - THE LAST 4 CHOICES. 

X<i)=XG> 

XC2)=X(4) 

X(3)=23 

X<4)=25 

REM UPDATE THE PROBflBILITY USING OLD 19. 

P<I9)=F1*P(I9H(1-F1>*X<3> 

IF S2<B1 THEN 470 

PRINT At; 

PRINT 

PRINT 8 PO+16, "END OF GAME " 

PRINT "YOU GOT'; SI; "OUT OF"; S2; "CORRECT. " 

PRINT 

PRINT 

PRINT "PLAY AGAIN (V OR N>"; 

INPUT T* 

IF LEFTKTJ, 1)="Y" THEN 318 

END 
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Four In A Row 



In this game, eight pegs are put in a 
row, each one of which can hold eight 
rings. Each ring is marked with either 
an X or an O. You and an opponent 
alternate turns; in this case the oppo- 
nent is the computer. On each turn you 
place a ring over one of the pegs, one 
through eight. The object is to get four 
X's or O's in a row, vertically, horizon- 
tally or diagonally. A glance at the 
sample run will show you how this 
process works. 

While the computer already plays 
rather well, you may wish to experi- 
ment with improving the computer's 
play by changing the values in the data 
statements in lines 100 and 110. The 
first four values are awarded if a 
position yields one, two, three, or four 
in a row respectively, for the computer. 
The next four values are bonus points 
for making one, two, three, or four in a 
row in more than one direction with the 
same move. The next eight values (line 
110) are dealt with in the same way for 
the human player; thus, these values 
are for defense. 

If you become addicted to this game, 
Milton Bradley markets it commercially 
under the name "Connect Four." The 
computer version of the game was 
written by James L. Murphy. 



FOUR IN H RON 
COPYRIGHT i?79 CREATIVE COMPUTING KORRISTOHM- NJ 

DO YOU NEED INSTRUCTIONS? YES. 



- els 



FOUR IN ft ROW 

THE GfiHE CONSISTS OF STACKING X'S 
SHD O'S (THE COMPUTER HAS 0) UNTIL 
ONE OF THE PLAYERS GETS FOUR IN R 
ROM VERTICALLY, HORIZONTALLY, OR 
DIAGONALLY. 

PRESS AMY KEY TO CONTINUE 
Ml YOU WANT TO GO FIRST'' YES. 



12245678 
PICK A NUMBER BETWEEN 1 AND 8? : 



■ els • 



12 2 4 5 6 7 8 
PICK A NUMBER BETWEEN i AND 8? 1 



---00--- 
X - - X - - X 
12 2 4 5 6 7 8 
PICK A NUMBER BETWEEN 1 AND 8? : 



- - - - - - 

X X X - - X 

12 2 4 5 6 7 8 

PICK A NUMBER BETWEEN 1 AND 8?' 2. 



- - - - - - - 

- X X - - - 
X X X - - X 
12 2 4 5 6 7 8 

COMPUTER PICKS COLUMN 2 



els • 



- - 

•noi--- 

X X X - - X 
1 2 2 4 5 6 7 S 
PICK A NUMBER BETWEEN 1 AND 8? 1_ 



-00----- 

! noo • ■ • 

X X X - - X 

12 2 4 5 6 7 8 

COMPUTER PICKS COLUMN 2 



• els ■ 



- ----- - 

- 

X X X - - - 

X X X - - X 

12 2 4 5 6 7 8 

COMPUTER NI N S 



• els 



els ■ 



12 2 4 5 6 7 8 
PICK A NUMBER BETWEEN 1 AND 8? 4. 



- - - - - - - 

- - X - - - 
X X X - - X 
12 2 4 5 6 7 8 

PICK A NUMBER BETWEEN 1 AND 8? 2. 



cls ■ 



■ els ■ 
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18 CLS:DEFINTA-Z 

28 CLEAR 1608 

28 PRINT g 469, 'FOUR IN fl RON" 

46 PRINT 

56 PRINTTRB(?rCOPYRlGHT 1979 CREATIVE COMPUTING MORRISTOHM, NJ" 

68 PRINT 8 966, ""; 

86 DIN B«8, 8), L<8>, S<4), F(4) 

98 DIN Y<16>, N(4) 

168 DATA L 188, 588, 1E28, i 886, 4868, 1£28 

118 DATA 1, 75, 368, 1E18, 1, 458, 2888, 1E18 

128 FOR Zl=i TO 16 

126 REM) V(Z1) 

148 NEXT Zl 

145 IHPUT'DO VOU HEED INSTRUCTIONS"; 1$ 

158 OS: IF LEFTSdt, 1)="N" THEN 258 

176 PRINT TflB<25)"F0UR IN A RON" CHRK12) 

180 PRINTTHE GAME CONSISTS OF STACKING X'S" 

198 PRINT'AND O'S (THE COMPUTER HAS 0) UNTIL" 

288 PRINT'ONE OF THE PLOVERS GETS FOUR IN fl' 

218 PRINT-ROH VERTICALLY, HORIZONTALLY, OR " 

226 PRINPDIA60NALLY. " 

226 PRINT 979, "PRESS ANY KEY TO CONTINUE"; 

246 IF INKEYt =" THEN 248 ELSECLS 

256 X*="X" 

268 f»="0" 

278 FOR 1=1 TO 8 

280 FOR J=l TO 8 

298 8«I, J)="-" 

288 NEXT J 

218 NEXT I 

228 FOR 21=1 TO 8 

228 L(21)=8 

246 NEXT Zl 

360 INPUTDO VOU HBNT TO GO FIRST"; At 

288 CLS'.IF LEFTKftt, 1)="N" THEN 766 

468 GOSUB 428 

410 GOTO 580 

426 PRIHTC«t(28>; :FOR 1=8 TO 1 STEP -1 

428 FOR J=l TO 8 

448 PRINT" ";B«I, J); 

450 NEXT J 

468 PRINT 

476 NEXT I 

480 PRINT" "i 

498 FOR 1=1 TO 8 

589 PRINT I; 

518 NEXT I 

520 PRINT:PRINT 

548 RETURN 

558 PRINT" ILLEGAL NOYE, TRY AGAIN. " 

568 FOR 0=1 TO 866 

576 NEXT 

588 PR1HT8576, "PICK ft NUMBER BETWEEN 1 AND 8";CHR«21); :INPUTM 

598 H=IHT(M) 

688 IF N<1 OR M>8 THEN 558 

618 L=L(» 

628 IF L>7 THEN 558 

628 L(H>=L+i 

648 L=L+i 

658 BKL «)=!» 

688 GOSUB 428 

698 P*=X* 

768 GOSUB 1416 

710 FOR 2=1 TO 4 

728 IF S(Z)<4 THEN 758 

728 PRINPV U U I N I ! ! ° 

748 GOTO 1820 

758 NEXT Z 

768 M9=6 

776 V1=0 

788 111=1 

798 FOR 114=1 TO 8 

868 L=L«H4)+i 

810 IF L)8 THEN 1288 

828 V=l 

826 Pt=Of 

846 H=8 

858 11=114 

868 GOSUB 1418 

870 FOR Zl=l TO 4 

880 NCZ1)=0 

898 NEXT Zl 

966 FOR Z=l TO 4 

918 S=S(2) 

928 IF S-M>2 THEN 1256 

928 T=S+F(Z> 

948 IF K4 THEN 978 



958 Y=V+4 

968 N(S)=N(S)+1 

97G NEXT Z 

938 FOR M TO 4 

990 N=N(D-1 

1888 IF N=-l THEN 1826 

1816 U=8»»4*SGN(NHI 

1828 V=V+«Ii>+N*V<8*m-I) 

1828 NEXT I 

1848 IF W=l THEN 1688 

1858 N=l 

1866 Pl=!» 

1878 GOTO 868 

1688 L=L+i 

1698 IF L>8 THEN 1148 

1168 GOSUB 1418 

1118 FOR Z=i TO 4 

1128 IF S(Z»2 THEM V=2 

1128 NEXT Z 

1148 IF Y«l THEN 1288 

1158 IF Y>V1 THEN Nl=i: GOTO 1180 

1168 N1=N1+1 

1178 IF RND(8»1/Ni THEN 1286 

1180 Y1=V 

1190 H9=I14 

1280 NEXT 114 

1218 IF H9C0 THEN 1246 

1226 PRIHT'T IE GAME..." 

1225 GOTO 1828 

1248 !1=H9 

1258 PRIHT8576, "COMPUTER PICKS COLUMN"; H 

1266 FOR: ft=i TO 1886 

1276 NEXT 

1260 L=L(HMi 

1298 L(Ii;=L!H!H 

1288 B*'L, H>=01 

1218 Pt=0$ 

1228 GOSUB 428 

1248 GOSUB 1416 

1258 FOR Z=l TO 4 

1266 IF S(ZK4 THEN 1398 

1378 PRIHT'T. M PUTS f: N I N S 'I'" 

1288 GOTO 1828 

1290 (EXT Z 

I486 GOTO 588 

1416 ot=:« 

1420 IF Pt-XtTHEN Qf=0t 

1428 D2-1 

1448 Dl=6 

1456 Z=8 

1468 GOSUB 1570 

1470 Dl=l 

I486 D2=2 

1496 G0SU8 1578 

1500 02=8 

1518 Dl=l 

1528 GOSUB 1578 

1526 D2=-l 

1548 Dl=l 

1558 GOSUB 1570 

1560 RETURN 

1588 S-i 

1598 T=8 

1600 Z=M 

1618 0=8 

1626 FOR K=l TO 2 

1628 H5=H+K+D1 

1640 L1=L*M>2 

1658 IF M5<1 OR LK1 OR N5>8 OR L12S THEM 1748 

1660 BJ=Bf (LI, H5> 

1678 IF C=6 THEN 1710 

1688 IF B*=Q*THEN K=4: GOTO 1748 

1698 T=T+1 

1788 GOTO 1740 

1710 IF B*=P*THEM S=S+1: GOTO 1748 

1720 C=l 

1738 GOTO 1686 

1748 NEXT K 

1756 IF D=8 THEN 1868 

1768 D=8 

1778 Di=-Dl 

1788 D2--D2 

1798 GOTO 1610 

1866 S(Z)=S 

1818 FiZ;=T 

1820 RETURN 

1320 BID 
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Geowar 



This program very loosely 
represents a battlefield in which you, 
the player, are located at point 0,0. 
There are five enemy installations that 
may be located anywhere from 0,0 to 
30,30 except for a clear zone from 0,0 to 
10,10. The accompanying diagram 
should make this clear. Instead of the 
normal artillery type of game where 
you are lobbing projectiles onto your 
enemy installations, in this game you 
are firing some sort of laser missile in a 
very straight path which destroys 
everything in its path. If the missile flies 
within one unit either northwest or 
southeast of the target, or, of course, 
over the target directly, that target is 
destroyed. If it is within two units of the 
target, the missile will be shot down 
and that target will relocate to a new 
position one unit away from its 
previous position in some random 
direction. 

Geowar is largely a guessing game 
with incomplete information given in 
its clues. Nevertheless it's fun to play 
and is a nice switch from just a plain 
guess the mystery numbergame. It was 
written by Gary Lorenc and originally 
appeared in Creative Computing May/- 
Jun 1975. 
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GEOHAR 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ 
DO YOU HEED INSTRUCTIONS? YES. 
els 



THE FIRST QUADRANT OF ft REGULAR COORDINATE GRAPH HILL SERVE AS 
THE BATTLEFIELD FIVE ENEMY INSTALLATIONS ARE LOCATED WITHIN A 
20 BY 28 UNIT AREA HO TARGET IS INSIDE THE 10 BY 18 UNIT AREA 
ADJACENT TO THE ORIGIN, AS THIS IS THE LOCATION OF CUR BASE. WHEN 
THE MACHINE ASKS FOR THE DEGREE OF THE SHOT, RESPOND HITH A 
NUMBER BETWEEN 1 AND 90. 

PRESS ANY KEY TO CONTINUE 



els 

1. A DIRECT HIT IS A HIT H1THIN 1 DEGREE OF 

THE TARGET. 

2. A HIT MUST PASS BETWEEN THE FIRST SET OF 

INTEGRAL POINTS NH AND SE OF THE TARGET. 
2. A SCARE MUST PASS BETWEEN THE NEXT SET OF 
INTEGRAL POINTS NH AND SE OF THE TARGET, 
AND CAUSES THE ENEMY TO RELOCATE A 
MAXIMUM OF 1 UNIT IN ANY DIRECTION 

MISSLES HAVE INFINITE RANGE AMD MAY HIT MORE THAN ONE TARGET 
A MISSILE THAT NEARLY MISSES AN INSTALLATION (A SCARE! HILL BE 
IMMEDIATELY SHOT DOWN. ANY HITS BEFORE THIS TIME HILL NOT BE 
COUNTED UNLESS A DIRECT HIT HAS HADE 



PRESS ANY KEY TO CONTINUE 
els 



READY TO GO? YES 
GOOD LUCK! 



— els ■ 



ENTER DEGREE OF SHOT? 25. 

els 

NO LUCK - TRY AGAIN 

ENTER DEGREE OF SHOT? 35. 

els 

NO LUCK - TRY AGAIN 

ENTER DEGREE OF SHOT? 47. 
els 



NO LUCK - TRY AGAIN. 



ENTER DEGRK OF SHOT' ; 
els — 



A (CAR HIT. ENEMY HAS RELOCATED. 



ENTER DEGREE OF SHOT? 82. 
els 



♦** CONGRATULATIONS *** A HIT. 
1 DOWN - 4 TO GO. 



ENTER DEGREE OF SHOT? 37. 


els 


NO LUCK - TRY AGAIN. 


EHTER DEGREE OF SHOT? 58. 
els 



*** CONGRATULATIONS *** A HIT. 
2 DOWN - 2 TO GO. 

ENTER DEGREE OF SHOT' 80. 

els 

NO LUCK - TRY AGAIN. 

EHTER DEGREE OF SHOT? 85. 
els 



+*** BULLS EYE **** A DIRECT HIT 1 
2 DOHN - 2 TO GO. 



BITER DEGREE OF SHOT? 75. 
els 



A NEAR HIT. ENEHY HAS RELOCATED. 
ENTER DEGREE OF SHOT? 77. 
els 



HO LUCK - TRY AGAIN. 

ENTER DEGREE OF SHOT? SO. 

els 

NO LUCK - TRY AGAIN. 

ENTER DEGREE OF SHOT? 48. 

els 

HO LICK - TRY AGAIN 

ENTER DEGREE OF SHOP 20. 
els 



A (CAR HIT. ENEHY HAS RELOCATED. 

ENTER DEGREE OF SHOT? 75. 
els 



A NEAR HIT. ENEMY HAS RELOCATED. 

EHTER DEGREE OF SHOT? 13. 
els 



«* CONGRATULATIONS «* A HIT. 
4 DOUN - 1 TO GO. 



EHTER DEGREE OF SHOT? 10. 
els — 



«* CONGRATULATIONS «** ft HIT. 

GAME TOTALS. 4 HITS AND 1 DIRECT HITS 01 17 SHOTS. 

READY FOR ft HEW GAME? NO TH 



• els ■ 
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1 CLEAR 1080 

36 PRINT 6 413, "GEOHHR" 

40 PRINT 

50 PRINT TAB(7)"C0PYRIGHT 1979 CREATIVE CONFUTING MORRISTOHN, NT" 

60 PRINT * 960, "; 

70 INPUT-DO YOU NED INSTRUCTIONS"; I* 

88 IF LEFTtCK, i)="N" THEN CLS. GOTO 420 



98 as 

186 PRINT "THE FIRST OURDRflNT OF A REGULAR COORDINATE GRAPH H1U"; 

118 PRINT " SERVE AS" 

126 PRINT "THE BfiTTLEFiaD. FIVE ENEHV INSTALLATIONS ARE LOCATED"; 

138 PRINT • HITHIN fi" 

148 PRINT "38 BV 38 UNIT AREA. NO TARGET 15 INSIDE THE 18 BV 18 "; 

150 PRINT "UNIT AREfi" 

168 PRINT "ADJACENT TO THE ORIGIN, AS THIS IS THE LOCATION OF OUR "; 

178 PRINT "BASE WHEN"; 

188 PRINT "THE MACHINE ASKS FOR THE DEGREE OF THE SHOT, RESPOND WITH A" 

1S8 PRINT "NUMBER BETWEEN 1 AND 90. " 

286 PRINT 6 979, "PRESS ANV KEV TO CONTINUE"; 

219 IF INKEW =" THEN 218 

228 as 

238 PRINT '1. ft DIRECT HIT IS fi HIT HITHIN 1 DEGREE OF" 

248 PRINT ■ THE TARGET. " 

258 PRINT "2. A HIT MUST PASS BETWEEN THE FIRST SET OF" 

268 PRINT " INTEGRAL POINTS NH AND SE OF THE TARGET. " 

278 PRINT "3. A SCARE MUST PASS BETWEEN THE NEXT SET OF" 

288 PRINT " INTEGRAL POINTS NW AND SE OF THE TARGET, " 

299 PRINT " AND CAUSES THE ENEHV TO RELOCATE A " 

388 PRINT " MAXIMUM OF 1 UNIT IN ANV DIRECTION. " 

318 PRINT 

328 PRINT " MISSLES HAVE INFINITE RANGE AND MftV HIT MORE THAN "; 

336 PRINT "ONE TARGET"; 

346 PRINT "A MISSILE THAT NEfiRLV MISSES AN INSTALLATION (A SCARE) "; 

358 PRINT "HILL BE" 

368 PRINT "IMHEDIBTELV SHOT DOWN. ANV HITS BEFORE THIS TINE WILL ■; 

270 PRINT "HOT BE" 

386 PRINT "COUNTED UNLESS A DIRECT HIT WftS MADE. ' 

398 PRINT § 979, "PRESS ANV KEV TO CONTINUE"; 

488 IF INKEVJ ="" THEN 488 
410 CLS 

428 PRINT "READV TO GO"; 

438 INPUT R* 

448 IF LEFWRi, 1)="N" THEN 1928 

458 PRINT 

466 PRINT "GOOD LUCK!" 

476 PRINT 

489 DIM C<10), H(28), D(18), S(28), F<5) 

490 DEF FN V(Vi)=M«189/3. 14159)*0TM(V1)+. 5) 
588X=258 

516 X1=RND<8> 

526 G2=8 

538 S2=0 

548 02=3 

558 H2=8 

568 FOR K=i TO 18 

576 GOSUB 1568 

588 IF INT<K/2)OK/2 THEN 656 

590 IF C(K-i»i6 THEN 656 

666 IF C<K»iO THEN 659 

610 FOR L=K-1 TO K 

628 GOSUB 1566 

638 NEXT L 

648 GOTO 586 

658 NEXT K 

668 S=8 

678 FOR L=l TO 5 

686 D(L)=(C(2*L)/C(2*L-1» 

698 D(L)=lNT«188/3.14159)*ATNc:D(L»+ 5) 

798 NEXT L 

718 A=2 

?20 U=16 

728T5=5 

748 D5=8 

758 H5=8 

766 GOSUB 1458 

770 PRINT 

786 PRINT "ENTER DEGREE OF SHOT"; 

798 Dl=8 

889Hi=8 

818 FOR 0=1 TO 5 

828 F(Q)=26 

838 NEXT Q 

846 INPUT D 

856 CLS 

868 IF D>=96 THEN 778 

878 ON 5G1KDH2 GOTO 1798, 1928 

888 S=S+1 

896 FOR H=2 TO 16 STEP 2 

908 IF D>S(A) THEN 1888 

918 IF DGifl-1) THEN 1880 

928 IF DMA) THEN 1828 

938 IF DOKA-1) THEN 1828 

946 IF D>DCft/2)+l THEN 980 

958 IF D<D(fi.'2)-i THEN 988 

968 Di=Di+i 

978 GOTO 996 

988 m=Hl+l 

996 F(D1+H1)=A 

1888 HEXT A 



1816 GOTO 1850 
1028 IF D08 THEN 1878 
1838 GOSUB 1358 
1048 GOTO 778 
1856 IF D1+H108 THEN 1896 
1668 IF T5=l THEN 1618 
1076 PRINT "NO LUCK - TRV AGAIN. ■ 
1888 GOTO 778 
1898 IF Dl>8 THEN 1158 
110O IF HOI THEN 1136 
1110 PRINT "«* CONGRATULATIONS *» A HIT. ■ 
1120 GOTO 1210 

1138 PRINT "*** CONGRATULATIONS ***»;Hi; "HITS. " 
1148 GOTO 1210 

1156 PRINT "**** BULLS EVE **** "; 
1160 IF D1>1 THEN 1200 
1178 IF HOB THEN 1288 
1188 PRINT " A DIRECT HIT!" 
1198 GOTO 1218 

1200 PRINT Di+H1;"HITS - A DIRECT HIT ON";Di;"OF THEM!" 
1210 T5=T5-<Di+Hl) 
1228 D5=D5+Di 
1238 H5=H5+H1 
1248 IF T5=0 THEN 1698 
1258 FOR M TO HUM. 
1268 Z=F<J) 
1278 D(Z/2)=8 
1288 H<Z)=8 
1298 H(Z-1)=8 
1380 S(Z)=8 
1318 S(Z-i)=8 
1328 HEXT J 

1338 PRINT 5-T5; "DOWN -";T5; "TO GO. " 
1348 GOTO 778 

1258 PRINT "fi NEAR HIT. ENEMV HAS RELOCATED. " 
1368 FOR R=l TO 2 
1370 X2=INT(RND(8)*100) 
1388 IF fiBS<C(fi-(R-l»-X2)>l THEN 1370 
1398 IF C(fi-(R-l)X=2 THEN 1378 
1488 C(ft-(R-l))=X2 
1418 NEXT R 

1428 D(A/2)=(C(A)/C(A-D) 
1438 D(B/2)=INT«188/3. 14159)*ATN(D(A72))+. 5) 
1448 L1=A 

1458 FOR I=fl TO U STEP 2 
1466 H(I-1)=«CCI)-1)/(C(I-1)+D) 
1470 H(1-1)=1NT<(186/3.14159)*RTN(H(I-1))+ 5) 
1488 H<I)=((C(I)+1)AC(I-1)-D) 
1498 H(I)=((180/3.14159)*ATN(H(I))t 5) 
1580 S(I-l)=((C(I)-2)/<C(I-l)+2)) 
1510 S(I-l)=INT«18B/3. 141592)*ATN(S(1-1))+ 5) 
1520 S(I)=((C(I)+2V(C(I-l)-2)) 
1538 S(I)=INT«188/3. 14159>*ATH(S(I»+. 5) 
1546 NEXT I 
1550 RETURN 
1568 R=INT(RNDC9)*168) 
1576 IF E>38 THEN 1560 
1588 IF RG THEN 1568 
1590 CCK)=R 
1680 RETURN 
1618 FOR Zl=l TO 5 
1628 IF D(ZD>1 THEN 1648 
1630 NEXT Zl 

1648 IF D<D(Zi> THEN 1670 
1658 PRINT "TOO HIGH - TRV AGAIN. » 
1668 GOTO 778 

1678 PRINT "T80 LOW - TRV AGAIN " 
1680 GOTO 778 
1696 PRINT 

1700 PRINT "GAME TOTALS: ";H5; "HITS AND"; D5; 'DIRECT HIT5 ON"; S; "SHOTS. ' 
1710 PRINT 

1728 PRINT "REfiDV FOR A NEW GAME"; 
1730 G2=G2+1 
1740 S2=S2+S 
1750 D2=D2+D5 
1760 H2=H2+H5 
1770 INPUT Gf 

1788 IF LEFWGS, i)="N" THEN 1876 
1798 PRINT 
1868 PRINT 
1810 PRINT 

1826 PRINT "FIVE NEW INSTALLATIONS HAVE BEBI BUILT AT DIFFERENT "; 
1838 PRINT "LOCATIONS. " 
1848 PRINT 

1850 PRINT "GOOD LUCK!" 
1868 GOTO 560 
1870 PRINT 
1888 PRINT 

1898 PRINT "TOTALS F0R";G2;"GABES:";H2; "HITS H»";D2 
1966 PRINT " DIRECT HITS ON"; S2; "SHOTS. " 
1910 PRINT "AN AVERAGE OF"; 52,".D2+H2); "SHOTS PER TARGET. " 
Q 1928 END 



Grand Prix 



In this program, you are attempting 
to complete one lap around a grand 
prix circuit against one of six op- 
ponents, everything from a US Postal 
delivery truck to a 1974 Ferrari. The 
track consists of four straightaways 
and four curves with different max- 
imum speeds possible for each one. 
Depending on which car you select for 
your own, you can take these curves 
and straights at different speeds. Also, 
the car you select will have different 
braking characteristics which may 

GRAND PRIX 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 
DO YOU NEED INSTRUCTIONS? YES. 

els 

GRAND PRIX 



allow you to head into a curve at a 
higher speed and then apply the brakes 
at the last minute. 

It may sound like it's easy to win by 
simply selecting a Porsche or Ferrari 
for your car and racing against a US 
Mail truck or a well-used Ford 
Mustang, but beware, it isn't really that 
easy. 

The origin of this game is a bit hazy. 
The only thing that identifies it is PUC. 
Could this be Pacific Union College? 
Perhaps, but we're not really sure. 



CURVE II 888 YRDS 
CURVE #3 1988 YRDS 
TRRCK LIMITS 
2-3 <88-188) 
4-5 (28-35) 
6-7 (98-118) 
8-1 (58-78) 



CURVE #2 1588 YRDS 
CURVE 14 2888 YRDS 



PUC GRAND PRIX RRCE 



THE TOTRL LENGTH OF ONE LAP IS 3288 YARDS. DURING THE 
STRAIGHTAWAYS YOU MILL BE ABLE TO CONTROL THE ACCELERATION AND 
BRAKING OF THE CAR THE CURVES HILL BE TAKEN AT WHATEVER SPEED 
YOU ENTER THEM. 

BELOW THE BREAKAWAY SPEED, THE CURVES MAY BE TAKEN WITH 
NO DIFFICULTY. ABOVE THE FASTEST SPEED INDICATED, YOU MAY 
CRASH! ! 

WITHIN THE SPEED RANGE THERE IS A POSSIBILITY THAT YOU 
MIGHT LOSE TIME OR SPEED BY SWINGING WIDE OR BY SPINNING OUT. 

THE FASTER YOU TAKE TIC CURVES, THE GREATER THE RISKS, 
AND THE LESS THE TIME ! ! ! ! ! 

PRESS ANY KEY TO CONTINUE 

els 



WELCOME TO THE PUC GRAN PRIX 



CURVE «1 888 YRDS 
CURVE S3 1988 YRDS 
TRACK LIMITS 
2-3 (88-188) 
4-5 (28-35) 
6-7 (98-118) 
8-1 (58-78) 



POSITION 
E/T MPH YOU OPP RCC 

HtHtmtttHHHIHHtMHMttHHI 

2. 8 16 7 3 ? 8. 

els 



CURVE *2 1588 YRDS 
CURVE 84 2888 YRDS 



PUC GRAND PRIX RACE 



YOUR CAR MAY BE ONE OF THE FOLLOWING; 
1 PORSCHE 

2. FERRARI 

3. MASERATI 

4. LOTUS FORD 

WHICH CAR WOULD YOU LIKE? 4. 



YOUR CAR HAS A MAXIMUM ACCELERATION OF 8 HPH/SEC. 
AND A MAXIMUM BRAKING OF -38 MPH/SEC. 

YOU WILL RACE AGAINST ONE OF THE FOLLOWING: 

1 U. S. POSTa DELIVERY TRUCK 

2. 1978 BEAT PONTIAC GTO 

3. 1966 WELL USED FORD MUSTANG 

4. LOTUS FORD 

5. 1974 FERRARA 

6. THE PHYSICS SUPERCHARGED LIGHTBEHM SPECIAL 

CHOOSE ONE OPPONENT BY ENTERING NUMBER? 2. 

els 



TRACK LIMITS 
2-3 (88-188) 
4-5 (28-35) 
6-7 (90-110) 
8-1 (50-78) 



PUC GRAND PRIX RACE 



■ . • POSITION 

4.. ..5 E/T MPH YOU OPP ACC 
«ii««f*»**8««8#«8*8«8#i«8«»«88i«*t««« 
20. 8 98 697 752 ' -2_ 

els 



CURVE #1 888 YRDS 
CURVE 12 1988 YRDS 
TRACK LIMITS 
2-3 (88-188) 
4-5 (28-35) 
6-7 (90-118) 
8-1 (58-78) 



CURVE #2 1588 YRDS 
CURVE 14 2880 YRDS 



PUC GRAND PRIX RACE 



• • ■ ■ POSITION 

4.. ..5 E/T MPH YOU OPP ACC 
H««H«H»IM4HHHHHHH«HH 

34. 5 146 1451 1454 ? 8 
LOST CONTROL AT 151 MPH. YOUR CAR CRASHED!! 
YOUR OPPONENT FINISHED IN 86.7622 SECONDS! 

DO YOU WISH TO TRY AGAIN? NO- 



POSITION 
4.. .5 E/T MPH YOU OPP ACC 
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19 CIS 

28 PRINT 8 411, "GRAND PRIX" 

38 PRINT 

48 PRINT TAB(7)°C0PYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

se print e 9m,"i 

68 IHPUT"DO YOU NEED INSTRUCTIONS"; I* 
78 IF LEFT$a$, 1)="N" THEN 220 

88 as 

98 PRINT TAB(27)"GRRND PRIX" 

189 PRINT 

118 PRINT" THE TOTAL LENGTH OF ONE LRP IS 3288 YARDS. DURING THE" 

128 PRINPSTRAIGHTAHAVS VOU MILL BE RELE TO CONTROL THE ACCELERATION AND" 

128 PRINT"BRAKING OF THE CAR THE CURVES WILL BE TAKEN AT WHATEVER SPEED" 

148 PRINPYOU ENTER THEM. " 

158 PRINT" BELOW THE BREAKAWAY SPEED, THE CURVES MAV BE TAKEN WITH" 

168 PRINFNO DIFFICULTY. ABOVE THE FASTEST SPEED INDICATED, YOU MAY" 

178 PRINT'CRASH!!" 

188 PRINT" WITHIN THE SPEED RANGE THERE IS R POSSIBILITY THAT YOU" 

198 PRINT'MIGHT LOSE TIME OR SPEED BY SWINGING WIDE OR BY SPINNING OUT. • 

288 PRINT" THE FASTER YOU TAKE THE CURVES, THE GREATER THE RISKS, " 

218 PRINTAND THE LESS THE TIME !!!!!" 

228 DIM P(9), F(4), G(4), H<82) 

238 REM 

248 FOR X=l TO 9 

258 READ P(X) 

268 NEXT X 

278 FOR 1=1 TO 4 

288 READ G(I), F(D 

298 G(I)=G(I)/2. 64545 

388 F(1)=(F(I)+ 61/2 84545) 

318 NEXT I 

328 FOR X=i TO 82 

338 READ H(X> 

348 NEXT X 

345 IF LEFT*(I*,i)="N° THEN 370 

358 PRINT 9 979, "PRESS ANY KEY TO CONTINUE"; 

368 IF IHKEY* =" THEN 368 

378 D=2 

388 as 

398 PRINT-WELCOME TO THE PUC GRAN PRIX" 

468 PRINT 

418 REM 

428 PRIHT'YOUR CAR MAY BE ONE OF THE FOLLOWING:" 

438 PRINT"! PORSCHE" 

448 PRINF2. FERRARI" 

458 PRINT"! MASERATI" 

468 PRINT"4. LOTUS FORD" 

478 PRINT 

488 PRINTHHICH CAR WOULD YOU LIKE"; 

498 INPUT Z 

SeePRINi 



510 ON Z GOTO 548, 570, 638, 630 

520 PRINTWE DON'T HAVE THAT CAR IN STOCK, PLEASE CHOOSE RGAIN. "; 

530 GOTO 490 

546 H=15 

558 B=-28 

568 GOTO 650 

570 M=10 

580 B=-25 

590 GOTO 658 

600 M=12 

610 B=-22 

620 GOTO 650 

630 M=8 

640 B=-36 

650 CLS 

668 PRINTYOUR CAR HAS A MAXIMUM ACCELERATION OF";M; "MPH/SEC. " 

670 PRINTAND A MAXIMUM BRAKING OF ";B; "MPH/SEC. " 

688 PRINT 

690 PRINT"YOU WILL RACE AGAINST ONE OF THE FOLLOWING:" 

700 PRINT"! U. S. POSTAL DELIVERY TRUCK" 

718 PRINT"2. 1970 BERT PONTIAC GTO" 

720 PRINT"3. 1966 WELL USED FORD MUSTANG" 

738 PRINT"4. LOTUS FORD" 

740 PRINT"5. 1974 FERRARA" 

750 PRINT"6. THE PHYSICS SUPERCHARGED L1GHTBEAM SPECIAL" 

768 PRINT 

770 PRINT"CKOOSE ONE OPPONENT BY ENTERING NUMBER"; 

780 INPUT Rl 

790 IF RD0 AND RK6 THEN 830 

800 IF Rl=6 THEN 850 

818 PRINTHHICH CAR DID YOU SRY"; 

820 GOTO 780 

830 R=2*Rl-5 

840 GOTO 868 

850 R=2. 5E+08 

868 R=(90+2*R)/108+7*RND(0)/188 

870 PRINT 

880 REM BEGIN THE RACE!! 

890 as 

900 PRINPTRACK LIMITS" TRB(28)"2" TAB<57)"1" 

910 PRINT 896, "CURVE #1 860 YRDS", "CURVE #2 1508 YRDS" 

928 PRINT"CURVE »3 1908 YRDS", "CURVE »4 2880 YRDS"; 

930 PRINT 64, "2-3 (80-100)" 

940 PRINT4-5 <20-35>" TAB<22)"3" TAB<32)"PUC GRAND PRIX RACE" 

950 PRINT6-7 (90-110)" 

966 PRINT"8-1 (56-78)" 

978 PRINT 8 588, "4" TAB(19)"5" 

988 PRINT 345, "6" TAB(46)"7" TRB(57)"8» 

998 FOR R=29 TO 3 STEP -1 

1068 SEK55-R, A) 

1618 NEXT A 
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1820 FOR A=52 TO 115 

1038 SEKA, 3) 

1048 NEXT R 

1850 FOR R=4 TO 6 

I860 SET<112+H, fl) 

1070 SET<122-R, A+6) 

1888 SET<118, A+3) 

1830 NEXT fi 

1188 FOR ft=29 TO 33 

1118 SEKA-3, fl) 

1128 NEXT ft 

1138 FOR fl=33 TO 13 STEP -1 

1148 SEK63-A, fl) 

1158 NEXT R 

1168 FOR ft=51 TO 61 

1178 SET<R, 13) 

1180 SETCA+20, 13) 

1130 SET<R+10, 14) 

1200 SETCA+38, 12) 

1210 NEXT fl 

1228 FOR fl=91 TO 115 

1238 SET<ft, 13) 

1240 NEXT R 

1250 J=l 

1260 PRINT 8 600, "E/T MPH YOU OPP RCC"; 

1278 PRINT 8 555, "POSITION"; 

1280 PRINT 8 664, •»##«###«»#««###*##«*«*#«####«##"; 

1230 X=0 

1300 S=8 

1310 T=0 

1328 T9=8 

1338 X9=8 

1340 REM 

1358 IF JO THEN 1458 

1368 as 

1378 PRINT'COMPLETED LAP"; ",ELRPSED TIME"; INT<T*10+ 5V10; "SEC. " 

1388 PRINT"VOUR OPPONENT FINISHED IN"; 80/Ri "SECONDS" 

1390 K1=1NT<T*18+. 5V18-88/R 

1400 IF K1>0 THEN 1430 

1418 PRINT'CONGRATULATIONS, YOU WON BY"; -Kl; "SECONDS" 

1420 GOTO 2288 

1438 PRINT'SORRY, YOU LOST BY"; Ki; "SECONDS" 

1448 GOTO 2288 

1458 FR=T*R-INT<T*R) 

1468 FC=-< INT<T*R)+2)*< INT<T*R)+2<82)-82*<82<:iNTa*R)+2) 

1478 FB=-< INT<T*R)+1)*< INT<T*R)+K82)-82*(82<INT(T*R)+1) 

1480 FQ4KFC)-H<FB) 

1430 FP=INT<H<FB)+FQ*FR+. 5) 

1588 IF FP>3288 THEN 1550 

1510 IM*="#«. * «H 8##* M8 

1528 PRINT 8 727, CHTWC38); 

1539 PRINT USING IM*; INT<T*10+ 5V1B, INT<S*2. 04545+, 85), INT<X), 

1548 GOTO 1580 

1550 PRINT 8 727, CHR*<38); 

1560 1M$=LEFT$<1MJ, 25)+"FINISH * 

1570 PRINT USING IMfc INT<T*18+ 5V18, INT<S*2. 84545+ 85), INT(X); 

1588 INPUT fll 

1538 R=Al/2. 84545 

1688 IF ftl>=0 THEN 1888 

1610 IF fll>B THEN 1640 

1628 PRINTMRXIMUM BRAKING IS ";B; "MPH/SEC"; 

1638 GOTO 1458 

1640 Tl=-S/A 

1658 IF TDD THEN 1820 

1668 X1=X+S*T1+A/2*T1*T1 

1678 IF Xi>PU+l)THEN 1738 

1688 PRINTYOU STOPPED"; INT<PCJ+1)-X1); "YftRDS FROM POINT"; J+l; 

1690 S=8 

1788 X=X1 



FP; 



1710 T=T+T1 

1728 GOTO 1358 

1738 V=P(J+1)-X 

1748 IF R<>0 THEN 1778 

1758 T=T+Y/S 

1768 GOTO 1880 

1770 Si=S0R<S*5+2*fl*Y) 

1788 T=T-<S-S1)/A 

1798 S=S1 

1888 J=J+1 

1818 GOTO 1948 

1828 Xi=X+S*D+ft/2*D*D 

1830 IF X1>P<J+1)THEN 1730 

1840 T=T+D 

1850 S=S+A*D 

1868 X=X1 

1878 GOTO 1358 

1888 IF RK=M THEN 1318 

1890 PRINFMRXJMUM RCCELERRTION IS";I% "MPH/SEC" 

1980 GOTO 1450 

1918 X1=X+S*D+R/2*D*D 

1928 IF X1>P(J+1)THEN 1730 

1938 GOTO 1828 

1948 REM *** SUB CURVE *** 

1958 REM 

1960 I=INT<J/2) 

1970 Tl=<P<J+i>-PU))/S 

1980 S1=G(I)+<F(I)-G<I))*RND<0) 

1998 IF S>S1 THEN 2858 

2000 PRINPCURYE"; J; -J-l; ", SPEED"; INT(S*2. 84545+ 05); "MPH" 

2018 J=J+i 

2020 X=P<J) 

2838 T=T+T1 

2840 GOTO 1350 

2858 IF S>Sl+<F<I)-Sl)/2 THEN 2110 

2860 T2=T1*RND<0)*. 4 

2070 PRINT-SPEED IN CURVE"; 1NT<S*2. 04545+. 85); "MPH, TOOK CURVE WIDE, LOST" 

2888 PRINT INT<T2*18+. 55/18; "SEC. " 

2898 T1=T1+T2 

2108 GOTO 2018 

2110 IF S>F<I)TKEN 2170 

2128 S2=S-S*RND<8)*. 9 

2130 T1=T1*S/S2 

2140 PRINT"SPUN OUT RT". 

2150 S=S2 

2160 GOTO 2010 

2178 PRINT'LOST CONTROL RT"; INT(S*2. 84545+ 85); "MPH YOUR CRR CRASHED' ' " 

2188 PRINTYOUR OPPONENT FINISHED IN"; 82/R; "SECONDS!" 

2130 REM 

2208 PRINT 

2218 PRINT"DO YOU WISH TO TRY RGRIN"; 

2228 INPUT R$ 

2238 IF LEFT$(RJ, 1>=»Y" THEN CLS; GOTO 420 

2248 END 

2258 REM 

2268 DRTR8, 888, 1880, 1500, 1688, 1308, 2488, 2808, 3280 

2278 DRTR85, 188 

2288 DRTR28,35 

2298 DRTR9B,110 

2388 DATR58,?8 

2318 REM 

2328 DRTR8, 1, 3, 9, 21, 33, 62, 87, 128, 156, 196, 244, 293, 351, 418 

2338 DRTA479, 558, 625, 788, 758, 880, 847, 894, 942, 398, 1838, 1080 

2340 DRTfM.135, 1200, 1268, 1338, 1382, 1425, 1478, 1498, 1505, 1519 

2358 DATR1539, 1548, 1563, 1578, 1512, 1618, 1632, 1658, 1683, 1718 

2368 DRTR1758, 1888, 1658, 1890, 1943, 1997, 2058, 2104, 2057, 2210 

2370 DRTR2294, 2317, 2378, 2428, 2488, 2535, 2600, 2678, 2725, 2768, 2733, 2838 

2388 DATR2861, 2832, 2928, 2951, 2982, 3013, 3044, 3075, 3106, 3137, 3168, 3199 

2398 DATR1B000 



; INT(S*2. 04545+ 05); "MPH, LOST SPEED AND TIME" 



73 



iuess-lt 



Many, if not most, two person games 
that are played on a computer are 
based on fixed rules that assure that if 
one player uses these rules and a 
rational playing strategy then that 
player wins. If both players use these 
rules and rational playing strategies 
then the winner is usually determined 
by who goes first. Tic-Tac-Toe, Batnum 
and Even are examples of games of this 
type. 

A more interesting type of game is 
one where the playing strategy is of 
mixed type. This means that the best 
move, in most cases, depends on what 
moves have already been made and a 
player can only determine the 
probability of the best move. Standard 
card games (Bridge, Poker etc.) are 
usually games of mixed type. 

Most two person games of mixed 
type are either so complicated that the 
best strategies are not known or they 
are so simple that they are not in- 
teresting to play. The game of Guess It 
is an exception to this pattern. The 
element of bluffing, which plays a 
central role in this game, makes the 
game interesting. The optimal strategy 
for playing this two person game of 

GUESS IT 
COPYRIGHT 1979 CREATIVE COWING 



mixed type has been determined by 
Rufus Isaacs 2 . 

This program simulates the game of 
Guess It. The computer plays accord- 
ding to the optimal strategy deter- 
mined by Isaacs. Lines 1850 to 2090 
give instructions on how to play the 
game. The number of numbers in each 
hand is determined in Iine30. (It is set 
at 5. This is the value Isaacs used in his 
analysis of the game.) To change the 
number of numbers in each hand only 
the value of H in line 30 needs to be 
changed. 

To piay the game in an optimal way 
decisions need to be made based on 
the win probabilities P(m,n) where m is 
the number of numbers in your hand 
and n is the number of numbersinyour 
opponents hand. The matrix of these 
win probabilities is computed in lines 
120 to 210.. 

To match the optimal strategy of the 
computer some type of randomizing 
device based on the win probabilities 
P(m,n) is required. (See (1) and (2) for 
descriptions of how to make and use 
such devices. These devices only work 
when there is a maximum of 5 numbers 
in each hand.) 



YOUR HAND IS 



HORRISTOm m 



The decision as to whether or not a 
number asked about by a player was a 
bluff is made in line 800- The decision 
to bluff or not when asking about a 
number is made in line 990. 

The program gives the player the 
option of going first. The win probabili- 
ty, P(5,5), in this case is .538. Therefore 
the player going first has a slightly 
better than even chance of winning 
assuming that both players use the 
optimal strategy. 

There are two reasons why bluffing is 
important in any strategy. If a player 
never bluffs, then any "ask" about a 
number that is not in the opponent's 
hand will result in a loss since theother 
player will know that it must be the 
down number. A successful bluff can 
lead the other player to make an 
incorrect guess of the down number. 

The program and description were 
written by Gerard Kiernan of Manhat- 
tanville College, Purchase, NY. 
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els 

00 YOU HEED INSTRUCTIONS? YES. 

els 

THE OBJECT OF THIS GAKE IS TO GUESS AN UNKNOHN NUHBER CALLED 
THE 'DOHH NUHBER'. THE GAKE IS PLAYED HITH THE NUKBERS FROH 1 
TO 11 TO HILL BE GIVEN R HflND OF 5 RRHDOHLY SELECTED KUKBERS 
BETHEEN 1 AND 11 THE COMPUTER HILL HAVE fl SIMILAR HAND. THE 
DOWN NUHBER HILL ALWAYS BE THE NUHBER NOT IN EITHER 
PLAYERS' HANDS. 

PRESS ANY KEY TO CONTINUE 

els 

YOU ALTERNATE MOVES HITH THE C0HPUTER. ON ANY HOVE THERE 
RRE Tlffl OPTIONS - GUESS THE DOM NUHBER OR ASK RBOUT S0HE 
NUHBER. 

HEN A PLAYER GUESSES THE DOHN NUMBER THE GfiHE STOPS. 
IF THE GUESS IS CORRECT THAT PLAYER KINS. 
IF THE GUESS IS NOT CORRECT THAT PLAYER LOSES. 
PRESS ANY KEY TO CONTINUE 

. els 



DO YOU WANT TO GUESS THE DOHN NUHBER? NO 



WHAT NUHBER DO YOU WANT TO ASK ABOUT? 1 



1 IS IN HY HAND. 



DO YOU HfiVE 3 ? YES. 



YOURHAHD IS 



els ■ 



4.2. 



3 9. 



DO YOU WANT TO GUESS THE DOHN NUHBER? HO 
HHAT NUHBER DO YOU KANT TO ASK (BOUT? 5 
5 IS IN HY HAM). 



ALL QUESTIONS ABOUT NUMBERS IN THE OTHER PLAYERS HAND 
HU5T BE ANSWERED TRUTHFULLY. A PLAYER HfiY 'BLUFF' BY 
ASKING RBOUT A HUHBER IN HIS m HAND (THE COMPUTER 
HILL S0HETIHES DO THIS). 

A NUHBER HAY BE ASKED RBOUT ONLY ONCE. 
GOOD LUCK! 

PRESS ANY KEY TO CONTINUE 

els 



DO YOU HAVE 4 ■> YES. 



• els • 



YOUR HAND IS 
4.2.8 3.9 



YOUR HflND IS 
.4.2.8.3 9 

DO YOU RANT TO GUESS THE DOHN NUHBER? NO 
HOT NUKBER DO YOU RANT TO ASK ABOUT? 7 
7 IS IN HY HAND. 



DO YOU HANTTO 60 FIRST? YES. 
els • 
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DO YOU HAVE 8 ' YES. 



CIS 

YOUR HARD IS 
.4.2 8 2 9 

DO YOU WWT TO HESS THE DOW NUMBER? NO 
HOT NUHBER DO YOU HRNT TO ASK H80UT? li 
11 15 IN HY HAND. 



DO VOJ HfiVE 9 "> YES. 



• els ■ 



THE DOWN NUHBER IS 6. 

YOUR GUESS OF 6 IS CORRECT. YOU HIN! 

DO YOU HUNT TO PLOY AGAIN? NO . 

els 



IB OS 

26 2=11 

38 H=5 

46DIHP<16,18),U<Z>,N(Z) 

58 PRINT 8 411, "GUESS IT" 

68 PRINT 

78 PRINT TAB<7)"C0PYRIGHT 1979 CREATIVE COHPUTING MORRISTOW, NJ" 

88 PRINT 8 836, "; 

98 INPUT'DO YOU NEED INSTRUCTIONS") I* 

188 01=8 

118C1=8 

128 FOR K=i TO H 

138 PCK, B)=l 

148 P(8, K)=i/<K+1> 

158 NEXT K 

168 FOR M TO H 

178 FOR J=I TO H 

188 PCI, WHWJ, I-l)*<i-PCJ-l, I»)/(l+(Jt2)»P(J, I-D) 

198 PCX I)=(1+I*P(I, J-1)*(1-P(I-1 J)))/(1+<I+1)*P(I, J-D) 

288 fEKT J 

218 NEXT I 

228 IF LEFTJCH, i)="V" GOSUB 1818 

238 CIS 

248 Gi=01+i 

258 FOR J=2 TO Z 

260 U(J)=8 

278 NEXT J 

288 E=8 

298 T=8 

388 C=8 

318 P=8 

328 L=B 

338 GOSUB 1718 

348 REH N(l) TO N(H)= COHP HAND N(H+1)=T0 N(2)= OTHER HAND 

256 D=N<Z> 

368 PRINT'YOUR HAND IS" 

376 FOR fl=l TO 5 

388 PRINT CHR$(188>STRING$<3, 146)i 

398ICXT 

408 PRINT CHR$(188) 

418 FOR I=H*1 TO 2-1 

428 PRINT CHR*<19i)N«>i 

438 IF N(I»9 THEN PRINT CHR*<8>; 

448 NEXT I 

456 PRINT M»C191> 

468 PRINT STRINGJC21, 131) 

476 PRINT 

488 PRINT 512, "DO YOU HUNT TO GO FIRST" CKR$<31); 

490 INPUT At 

508 IF LEFTS<At, 1)="Y" THEN 548 

516 IF LEFWAt, DO"N" THEN 478 

520 K=l 

538 GOTO 550 

548 K=8 

550K=K+1 

568 H=H-C 

570N=H-P 

580 PRINT 



596 IF K=< INT(K/2»*2 THEN 910 

688 PRINT 256, "DO YOU KANT TO GUESS THE DOHN NUHBER" CHR*<31)i 

618 INPUT fit 

628 IF LEFTSffiJ, 1>="V" THEN 1318 

638 IF LEFTtCRS, DO'N' THEN 688 

648 PRINT 

658 PRINT'HHflT HUKBER DO YOU NftNT TO RSK ftBOUT"; 

668 INPUT E 

678 FOR 1=1 TO Z 

686 IF E=U(I) THEN 710 

698 NEXT I 

788 GOTO 738 

718 PRINT & "HAS ASKED BEFORE TRY RGfllN * 

720 GOTO 648 

738 FOR to TO H 

740 IF N(J)=E THEN 858 

758 NEXT J 

768 PRINT E; "IS NOT IN HY HAND. " 

778 IF R=8 THEN 1538 

788 IF N=8 THEN 1518 

798 Y=((H+1)*P(H, N-l)-H*P(H-i, N)V(l+(H+i)*P(H, N-i» 

888 IF RHXBXY THEN 1458 

818 GOSUB 1288 

828 IF <H-P>=1 THEN 1538 

638 P=P+i 

848 GOTO 558 

856 PRINT 

868 PRINT Ei "IS IN HY HAM). " 

878C=C+1 

888 GOSUB 1288 

898 GOTO 558 

908 REH COHP SEQ STARTS 

910 IF T08 THEN 1488 

928 IF H-CO0 THEN 948 

938 GOTO 1538 

348 IF H-P08 THEN 960 

358 GOTO 1538 

968 IF <2*H-2)-<P4C)08 THEN 988 

978 GOTO 1538 

988 REH RND DECISION TO BLUFF OR NOT ON ASKING FOR CARD 

998 IF RND(8)>V(l+CN+i)*P(N, H-l» THEN 1128 

1688 PRINT: PRINT: PRINT 

1810 PRINT 

1828 R=INT(K*RND(8»+1 

1838 FOR J=l TO Z 

1848 IF N(R)=U(J) THEN 1628 

1858 NEXT J 

1868 PRINT'DO YOU HAVE"; N<A>; 

1678 C=C+i 

1688 INPUT fi* 

1898 E=N(B) 

1168 GOSUB 1288 

1118 GOTO 558 

1128 GOSUB 1238 

1138 PRINT 

1148 PRINT'DO YOU HflVE";N(A>; 

1158 INPUT fl* 

1168 IF LEFTtCAt, 1)="Y" THEN 1198 

1178 T=l 

1186 GOTO 558 

1198 E=N(A> 

1208 P=P+1 

1218 GOSUB 1280 

1228 GOTO 558 

1238 fHHT«H+i)*RKD<8»+<H+i> 

1248 FOR to TO Z 

1258 IF N(R)=U(J) THEN GOTO 1238 

1268 NEXT J 

1276 RETURN 

1288 L=L+1 

1298 UCL)=€ 

1388 RETURN 

1316 PRINT 

1328 PRIHPHHAT DO YOU THINK THE DCMI NUHBER IS"; 

1328 INPUT B 

1348 PRINT 

1356 CIS 

1368 PRINTTHE DOHN NUMBER IS";N(Z); CKRt<8>;" " 

1376 IF B=N(Z> THEN GOTO 1436 

1388 PRINT 

1298 PRINT'YOUR GUESS 0F";B; "IS NOT CORRECT. YOU LOSE" 
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1488 Ci=Cl+l 


1788 


1418 GOTO 1598 


1798 


1428 PRINT 


1888 


1438 PRINTVOUR GUESS 0F";Bi "IS CORRECT. VOU HIH!" 


1819 


1448 GOTO 1598 


1828 


1458 PRINT'I THIHK VOU WERE NOT BLUFFING HCN VOU ASKED ABOUT"; E; CHRK8);" ■ 


1838 


1468 G=E 


1848 


1478 GOTO 1558 


1858 


1488 PRINT N(fl); ■DOS NOT A BLUFF. • 


1868 


1498 G=N(H> 


1878 


1588 GOTO 1558 


1888 


1518 G=N(Z> 


1898 


1528 GOTO 1558 


i960 


1538 GOSUB 1238 


1918 


1548 G=N<A> 


1928 


1558 PRINT'I GUESS THE DOM NUHBER IS"; G; CHR*<8>;° " 


1938 


1568 IF G=H<Z> THEN 1678 


1948 


1578 PRINT 


1958 


1588 PRINT'THE DOW NUHBER IS";NCZ>; CHRK8); " I MRS BONG. . . VOU HItt ' 


1968 


1593 PRINT 


1978 


1683 PR1HT "00 VOU WOT TO PLAV RGRIN"; 


1988 


1618 INPUT R* 


1998 


1628 IF LEFTKR*, 1>="V THEN I*="N" GOTO 128 


2888 


1638 IF LEFTKRt, DO'N" THEN 1598 


2818 


1648 PRINT 


2928 


1658 PRINTVOU PLRVED"; Gi; "GRHES. VOU LOST",Cli CM»(8>;", VOU WW; Gl-Cl 


2838 


1668 END 


2848 


1678 PRINT 


2858 


1688 PRINT'TKE D9W NUHBER IS";N<Z>; CHR*<8>; ■ I MRS CORRECT. . . VOU LOSE. ■ 


2858 


1698 C1=C1+1 


2878 


1788 GOTO 1598 


2888 


1710 FOR 1=1 TO Z 


2898 


1728 N(D=I 


2188 


1738 NEXT I 


2118 


1748 FOR 1=1 TO Z 


2128 


1758 R=1NT<RKD(B)*«Z+1>-D>+I 


2138 


1768 H=N(R) 


2148 


1778 N(R)=N(1) 


2158 




2168 



H(D=H 

NEXT I 

RETURN 

OS 

PRINT 

PRINT 

PRINT 

PRIHT'THE OBJECT OF THIS GAME IS TO GUESS AN IMHOUN NUHBER CflLLED" 

PRINT'THE 'DOW NUHBER' THE SHE IS PLRVED WITH THE HUMS FROM 1" 

PRINT-TO"; Z; CH8<8>; ". VOU HILL BE GIVEN R HfiHD OF"; Hi "RRNDOKLV SELECTED NUH8ERS 

PRIHT'BETIEEN 1 AND";Z; CHR*<8); 

PRINT " THE COHPUTER HILL HRVE R SIHILAR HRH). THE" 

PRINT "DOW NUHBER WILL RLNAVS BE THE NUHBER NOT IN EITHER" 

PRINT "PLRVERS' HANDS. " 

GOSUB 2128 

PRINT 

PRINT 

PRINT 

PRINTVOU ALTERNATE WIVES WITH THE COHPUTER ON ANV HOVE THERE" 

PRINT'ARE THO OPTIONS - GUESS THE DOHA NUNBER OR RSK ABOUT SOKE" 

PRINT "NUHBER.": PRINT 

PRINT'UHEN R PLRVER GUESSES THE DOHN NUMBER THE SAKE STOPS. ■ 

PRINT"IF THE GUESS IS CORRECT THAT PLRVER WINS. ' 

PR1NFIF THE GUESS IS NOT CORRECT THAT PLRVER LOSES. " 

GOSUB 2128 

PRINT: PRINT: PRINT 

PRINTALL QUESTIONS ABOUT NUHBERS IN THE OTHER PLAVERS HAND" 

PRINT'RUST BE ANSWERED TRUTHfULLV. fl PLRVER HRV 'RUFF' BV" 

PRINT-ASKING ABOUT A NUKBER IN HIS OHH HAND (THE COtffUTER" 

PRINPH1LL SOKETIKES DO THIS). " 

PRINT 

PRINT'fl NUHBER HRV BE RSKED ABOUT ONLV ONCE. " 

PRINT: PRINT 

PRINT" GOOD LUCK!" 

PRINT 8 979, "PRESS ANV KEV TO CONTINUE"; 

IF INKEVS =■" THEN 2138 

OS 

RETURN 

END 
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Your radar station picks up an enemy ICBM heading 
your way, telling you its coordinates (in miles north and 
miles east of your location). You launch a surface-to-air 
missile (SAM) to intercept it. 

Your only control over the SAM is that you can aim it 
in any direction, both at launch, and in mid-air. Using the 
coordinates of the ICBM as a guide, you INPUT the 
direction (measured CCW from North) in which you want 
the SAM to travel. 

At the next radar scan one minute later, you are given 
the new coordinates of the ICBM, the coordinates of your 
SAM, and the distance between the two. You can now 
make corrections in the course of your SAM by entering a 
new direction. 

You have no control over the altitude of your SAM, as 
it is assumed that it will seek the same altitude as the ICBM. 

As the two missiles draw closer, you make adjustments 
in the direction of the SAM so as to intercept the ICBM. 
It's not easy to hit, because the ICBM is programmed to 
make evasive maneuvers, by taking random deviations from 
the straight line course to your location. Also, its speed is 
not known, although it does not vary after being randomly 
selected at the start of the run. 

You can destroy the ICBM by coming within 5 miles of 
it, at which time your SAM's heat-seeking sensors will 
come into action and direct it to its target. If you overshoot 

ICBM 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ 

0)8 _ 



PRESS ENTER TO START? . 



els ■ 



RADAR SCOPE 



MILES 
NORTH 



EAST 

-MISSLE 

MILES 
EAST 



SAM 

MILES MILES 
NORTH EAST 



DIR 



778 



■ Ols ■ 



RADAR SCOPE 



EAST 



-MISSLE- 



MILES 
NORTH 



MILES 
EAST 



SAN 

MILES MILES 
NORTH EAST 



DIR 



ICBM * 

215 



;« NOH 734 MILES APART 
724 62 

Cl8 ■ 



: SCOPE 



ERST 



-MISSLE- 



-SAM- 



MILES 
NORTH 



MILES 
EAST 



MILES 
NORTH 



MILES 
EAST 



DIR 



ICBMS 
282 



iAM NOH 621 MILES APART 

686 67 
els ■ 
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the ICBM it's possible to turn the SAM around and chase 
the ICBM back towards your location. But be careful; you 
may get both missiles in your lap. 

There is also some element of chance involved, as 
several accidents have been programmed to occur random- 
ly. These can work for you or against you. 

Some ways to improve and expand the program are: 
1. Operator control over SAM speed: In the present 
version the speed of the SAM is randomly selected by the 
computer at the start of the run, and remains constant 
thereafter. This often results in overshooting the ICBM. 
Modify the program so that you can input a new speed 
(within limits) at the same time you input the new 
direction. 

2. Three dimensional version: Have the computer print 
the altitude of the ICBM, as well as its coordinates. The 
operator will then have to INPUT the angle his SAM is to 
make with the horizontal, when entering the other quanti- 
ties. 

3. Extend to all Quadrants. In the present version, the 
ICBM approaches only from the Northeast. You can 
expand this to include approach from any compass direc- 
tion. 

This game is derived from a program submitted by Chris 
Falco. The wnteup is by Paul Calter and originally appeared 
in Creative Computing, May/Jun 1975. 



■ els • 



RADAR SCOPE 



ERST 

MISSLE SAM 

MILES MILES MILES MILES DIP 
NORTH EAST NORTH EAST 

922 214 8 8 ■' 12. 
— Cl8 

H. 

n. 

R. RADAR SCOPE 

I 

H.. 

EAST 

MISSLE SAM 

MILES MILES MILES MILES DIR 
NORTH EAST NORTH EAST ■> 

ICBM t SAM NOH 867 MILES APART 
872 299 54 11 "> 14. 

— els — 

it 

•0. 

R. RADAR SCOPE 

T. 
H.. 

EAST 

MISSLE SAM 

MILES MILES MILES MILES DIR 
NORTH EAST NORTH EAST ■> 

ICBM J, SAM NOH 765 MILES APART 
825 291 108 24 " 45. 



■ CIS ■ 



16 OS 






448 


23 PRINT 8 414, "ICBH" 






456 


38 PRINT 






466 


48 PRINT TB8(?)"C0P¥RIGHT 1979 CREATIVE COMPUTING 


MORRISTOWN, NJ" 


476 


58 PRINT 8 968, '"; 






488 


68 TOUT-PRESS ENTER TO START"; A$ 






498 


78 CIS 






588 


88X1=8 






516 


85TL=1 






528 


96Vi=8 






538 


188 X=IHT<RNDC8>*8B6)+286 






546 


110 V=INT(HJ>CB>*888H28B 






558 


129 S=INT(RHD(8)*26t58) 






568 


138 Sl=INTCRND<e>*28+56) 






578 


148 FOR ft=8 TO 19 






588 


158 SETG, A) 






598 


168 NEXT 






688 


178 FOR A=3 TO 64 






616 


188 SETCfl, 19) 






628 


198 NEXT A 






638 


298 FOR ft=l TO 5 






646 


218 PRINT 8 A*64, HIMC"NORTH",fl, 1); 






659 


228KEXTR 






666 


238 PRINT 8 461, "E fl S T"; 






678 


248 PRINT 8 236, "RfiDftR SCOPE"; 






688 


258G0SUB278 






698 


268 GOTO 328 

n-v. nnoiir n r^f n Hirn r 




rm,, n 


788 


278 PRINT 8 576, HlSSlt 






718 


288 PRINT "MILES MIES 


HILES 


HILES DIR " 


728 


298 PRINT "NORTH EAST 


NORTH 


EflST ">• 


736 


388 PRIHT STRIN6K59, "-"); 






748 


318 RETURN 






758 


328 PRINT 






766 


338 FOR N=l TO 58 






778 



348 PRINT USING "MM ";V, X, VI, XI, 

358 IF TL=i THEN TL=8: GOTO 396 

368 IF Xl>=16 THEN X2=X1 ELSE X2=16 

388 IF ¥0=52 THEN ¥2=V1 ELSE V2=52 

398 SET(X*64/1888*3, 19-(V*19/1888)) 

488 SET(X2*64/1888+3, 19-<V2*19/1868)> 

418 IF X<=8 THEN 786 

426 INPUT Tl 

438 GOSUB 278 



798 



818 



RESET(X*64/1888*3, 19-(V*19/1888» 

RESET(X2*64/1888+3, 19-<V2*19/ie68» 

T1=TL'57. 296 

H=INT<RHD<8>*283+1> 

IF H>4 THBI 518 

CLS 

ON H GOTO 788, 728, 746, 768 

Xl=IHT(Xl+Sl*SIN(Ti» 

V1=INT(V1+S1*C0S(TD) 

IF SQR(Xt2+V£2»S THEN 578 

X=B 

V=8 

GOTO 656 

B=SQR(X[2+V[2)/1888 

T=ATN(V/X> 

X=INT<X-S*C0SCT>+RND<6)*28+R) 

V=INTCV-S*SIH(THRND<8>*28*R> 

D=SQR((X-Xl)t2KV-ViH2) 

1FD=<5.5THEH668 

D=INKD> 

PRINT CHR«13)"ICBH 8 SflH NOH"; D; "HILES APART" 

NEXT N 

as 

PRINT "CONGRATULATIONS! VOUR SflM CflHE WITHIN"; D; "MILES OF" 

PRINT "THE ICBH AND DESTROVED IT!" 

GOTO 819 

PRINT "TOO BAD. VOUR SAM FELL TO THE GROUND!" 

GOTO 818 

PRINT "VOUR SflM EXPLODED IN MIDAIR!" 

GOTO 818 

PRINT "GOOD LUCK - THE ICBH EXPLODED HARHLESSLV IN MIDAIR!" 

GOTO 816 

PRIHT "GOOD LUCK - THE ICBM TURNED OUT TO BE fl FRIENDLV AIRCRAFT! 1 

GOTO 818 

CLS 

PRINT "TOOBflD!" 

PRINT "THE ICBM JUST HIT VOUR LOCATION!!" 

PRINT 

PRINT "DO VOU WANT TO FtflV MORE? <V OR N>"; 

INPUT ft* 

IF LEFWRt, 1)="V THEN PRINT CHR*(28)CHR»C3i) : CLEAR: GOTO 88 

END 
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Inkblot 



INKBLOT is a program that 
creates "inkblots" similar to those 
used in the famous Rorschach 
Inkblot Test. The program generates 
these inkblots randomly so that 
literally millions of different patterns 
can be produced. Many of these 
patterns are quite interesting and 
serve not only as conversation 
pieces, but also as good examples of 
computer "art." 

In addition, INKBLOT is interest- 
ing from a mathematical point of 
view. This is because INKBLOT 
actually creates inkblots by plotting 
ellipses on the left side of the page 
and their mirror-images on the right 
side. The program first chooses the 
ellipses to be plotted by randomly 
selecting the values a, b, j, k and in 
the equation for a rotated ellipse: 



INKBLOT could be enhanced in 
several ways. For example, it could 
have an option to print the "negative" 
of an inkblot by filling in the area 
around the ellipses rather than the 
ellipses themselves. It is also possi- 
ble to build in a "repeatable random- 
ness" feature so that exceptional 
outputs could be reproduced at any 
time. These enhancements are left 
for the ambitious programmer to 
make. 

Program and description are by 
Scott Costello. 

This program uses TRS-80 graph- 
ics which do not reproduce well on a 
line printer. Therefore the sample run 
does not give a true representation of 
the program. The only way this 
program can be truly appreciated is 
to run it. 



((x-j)cos9 + (y-k)sinOP 
a 2 



[(y-k)cosQ- (x-j)sinQp 
b 2 



INK BLOT 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



DO VOU NEED INSTRUCTIONS? VES. 




-\ 



_._!. 



> 



INKBLOT 

THIS PROGRAM DRAMS AN INKBLOT ON THE SCREEN. THE 
PROGRAM WILL TAKE FROM 38 SECS. TO 5 MINUTES DEPENDING 
ON THE NUMBER OF ELIPSES VOU SPECIFV. THE MORE ELIPSES 
THE BETTER THE BLOT (AND THE LONGER THE TIME). 

WHEN THE INKBLOT IS FINISHED HIT HNV KEV TO END THE 
PROGRAM. 



NUMBER OF ELIPSES TO BE PLOTTED ? 7_ 
els — 



where 



a = 



b = 



J = 
k = 
= 



the horizontal radius of 

the ellipse 

the vertical radius of the 

ellipse 

the distance from the 

ellipse center to the y-axis 

The distance from the 

ellipse center to the x-axis 

the angle of rotation in radians 



Since the actual method by which the 
program plots the ellipses is quite 
complicated, it won't be discussed 
here. 
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- els • 



. els 

16 CLS. PRINT§412, "INK BLOT 

28 PRINT: PRINT TABC7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 PRINTS960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 

40 IF LEFT*(I*, 1)="N" THEN CLS: GOTO 138 

50 CLS. PRINT TABC28); "INKBLOT" : PRINT 

60 PRINT " THIS PROGRAM DRAWS AN INKBLOT ON THE SCREEN. THE" 

70 PRINT "PROGRAM WILL TAKE FROM 30 SECS. TO 5 MINUTES DEPENDING" 

80 PRINT "ON THE NUMBER OF ELIPSES VOU SPECIFV. THE MORE ELIPSES" 

90 PRINT "THE BETTER THE BLOT (AND THE LONGER THE TIME). " 

IBS PRINT 

110 PRINT " WHEN THE INKBLOT IS FINISHED HIT ANV KEV TO END THE" 

120 PRINT "PROGRAM. "' PRINT: PRINT: PRINT 

130 CLEAR 1000: DEFINTV, E, J 

140 INPUT "NUMBER OF ELIPSES TO BE PLOTTED "; M: CLS 

150 DIM A (12, 13), B*C36), A*C36) 

160 FOR L=l TO M 

170 RCL,1)=30*RNDC8) 
188 ACL, 2)=42*RNDC8) 

-els 190 H(L,3)=(15*RND(0)+2)C2 

200 ACL,4)=C15*RNDC0)+2)C2 
210 T=3. 14159*RNDC0) 
220 ACL,5)=C0SCT> 

230 ACL,6)=SINCT) 

240 ACL,7)=fiCL,5)*ACL,6) 

250 A(L,5)=ACL,5)*ACL,5) 

260 ACL,6)=ACL,6)*ACL,6) 

270 fiCL,8)=ACL,l)*ACL,l)*A(L,6) 

280 ACL,9)=ACL,1)*ACL,1)*ACL,5) 

290 ACL,10)=ACL,1)*ACL,7) 

380 ACL, 11)=-2*A(L, 1)*ACL, 6) 

310 ACL, 12)=-2*A(L, 1)*ACL, 5) 

320 ACL, 13)=ACL, 6VACL, 4HACL, 5VACL, 3) 

330 NEXT L 

240 B*=STRING«32, 176) 

350 PRINT B$;BS; 

368 A$=CHR$C191)+STRING*C31,32) 

370 FOR V=42 TO 1 STEP -1: CN=INTCCC43-V)/3-INTCC43-YV3»*3+, 5) 

380 FOR E=l TO M 

398 V1=V-ACE,2) 

400 V2=V1*Y1 

410 V3=V1*ACE, 10) 

428 V4=Y1*ACE,7) 

430 B=CACE, 12)+V4)/'HCE, 3)+C-V4+ACE, 11) VACE, 4) 

440 C=CV2*ACE, 6)+ACE, 9)-Y3VA(E, 3)+CY2*ACE, 5MACE, 8HV3VACE, 4)-l 

450 R=B*B-4*A(E, 13)*C 
460 IF R<0 THEN 630 
470 R=SQRCR) 

480 R1=INK-(B+RV2/ACE, 13H1) 

498 IF Rl>34 THEN 630 

500 R2=INTCCR-BV2/ACE,13)) 

510 IF R2C1 THEN 630 

528 IF R2C31 THEN 540 

530 R2=30 

540 IF R1>0 THEN 560 

550 R1=0 

560 FOR J=Rl+2 TO R2+2 

570 S=ASCCMID*CH*,J,1)>- NC0)=48: NC1)=3: NC2)=12 

580 IF 0=32 THEN 0=128 

590 QC8)=176: QC1)=131: QC2)=140 

600 IFO>=QCCN) THEN 610 ELSE Q=fi+N(CN) 

610 A*=LEFT*CA$, J-1)+CHR*(Q)+RIGHT*CA$, LENCA*)-J> 
620 NEXT J 
638 NEXT E 
640 IF CN THEN 700 
650 PRINT A*; 

660 FOR K=32 TO 1 STEP -1 
678 PRINT MID$CA*,K,1); 
686 NEXT K 

690 A*=CHR*C191)+STRING*C31, 32) 
788 NEXT V 

710 PRINTSTRINGSC63, 131); P0KE16383, 131 
720 IF INKEV*="" THEN 720 
80 730 END 
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Joust 




In this program you are a medieval 
knight in a jousting tournament. The 
prize to the winner of the tournament is 
the princess' hand in marriage. To win 
you must beat four other knights the 
gold knight, the silver knight, the red 
knight, and the fierce black knight. On 
each pass of your opponent you must 
select one of eight different aiming 
points, such as the helm, lower left, 
face of shield, et cetera, and, based on 
your aiming point, you mayselectfrom 
three to six different defense positions 
such as a right lean or shield low. 

As you proceed in the jousting 
tournament there are different in- 
termediate outcomes such as getting 
knocked on the shield, breaking a 
spear, and so on. There are also some 
outcomes which end the contest such 
as your getting killed, or getting 
knocked from your horse. 

This program was conceived and 
written by Alan Yarbrough. 



1) HELM 

I) UPPER MIDDLE OF SHIELD 
5) LOHER LEFT OF SHiaD 
?) LOWER RIGHT OF SHiaD 



2) UPPER LEFT OF SHiaD 
4) UPPER RIGHT OF SHIELD 
6) LOWER MIDDLE OF SHIELD 
8) BfiSE OF SHIELD 



THIS. IS YOUR FIRST JOUST. YOU ARE UP RGIHST THE GOLD KHIGHT. 
YOUR DINING P0IHT(i-8)? 5 



YOU HAY USE ONE OF THESE DEFENSES. 
4-STERDY SEAT, 5-SHIELD HIGH, 6-SHIELD LOU 



HHflT IS YOUR CHOICE'' 4_ 



1) HELM 

2) UPPER MIDDLE OF SHIELD 
5! LOHER LEFT OF SHIELD 
?) LOHER RIGHT OF SHIELD 



2) UPPER LEFT OF SHIELD 

4) UPPER RIGHT OF SHIELD 

5) LOHER MIDDLE OF SHIELD 
8) BASE OF SHIELD 



HE BROKE HIS LANCE. 

YOU MISSED HIM (HISS) ! 

YOU ARE HOH READY TO TRY AGAIN 
els ■ 

1) HELM 

2) UPPER MIDDLE OF SHiaD 
5) LOWER LEFT OF SHIELD 
?) L01CR RIGHT OF SHIELD 



2) UPPER LEFT OF SHIELD 
4'> UPPER RIGHT OF SHIELD 
6) LOHER MIDDLE OF SHIELD 
S) BASE OF SHiaD 



YOUR AIMING P0INK1-8)? ? 



YOU MAY USE 01C OF THESE DEFENSES. 
4-STEADY SEAT, 5-SHIELD HIGH, 6-SHiaD LOU 



WHAT IS YOUR CHOICE? b_ 



■ els ■ 
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i) HELM 

2) UPPER MIDDLE OF SHiaD 
5) LONER LEFT OF SHIELD 
7) LONER RIGHT OF SHIELD 



■ els ■ 



2) UPPER LEFT OF SHIELD 
4) UPPER RIGHT OF SHIELD 
6) LOHER MIDDLE OF SHIELD 
8) BfiSE OF SHIELD 



HE HISSED VOU! 

VOO HIT HIS SHIELD BUT GLRNCED OFF. 



VOU RRE NOW READY TO TRY AGAIN. 

PRESS PHY KEY TO CONTINUE 



18 CIERR 1688 

28 as 

38 PRINT C< 413, 'JOUST 

48 PRINT 

58 PRINT TRB(?>"COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOMN, NJ" 

68 PRINT § 969, "; 

78 INPUT-DO TO HEED INSTRUCTIONS"; It 

80 IF LEFTKIt, 1)="N" THBI 138 

98 as 

188 PRINT-SIR ";flti ", YOU PRE fl MEDIEVAL KNIGHT IN fl JOUSTING TOURNflHENT. ' 

118 PRINT"THE PRIZE TO THE WINNER IS THE PRINCESS' HAND IN MARRIAGE ■ 

128 PRINT"TO HIN, YOU HUST BEAT FOUR OTHER KNIGHTS. " 

138 PRINTTO JOUST, YOU PICK RN PINING POINT FOR THE LANCE, " 

148 PRINT 

158 PRINTIF YOU BREAK fl LATH OR LOSE A HELM, YOU HILL BE GIVEN ANOTHER " 

168 PRINT-GOOD LUCK, SIR!" 

178 GOSUB 1478 

188 OS 

198 PRINT-1) HELM" TAB(32)"2) UPPER LEFT OF SHIED" 

288 PRINT-3) UPPER MIDDLE OF SHIELD" TR8<32)"4) UPPER RIGHT OF SHIED" 

218 PRIHT"5) LONER LEFT OF SHIELD" TftB(32)"6) LOHER MIDDLE OF SHIELD" 

228 PRINT"?) LONER RIGHT OF SHIELD" TAB(32)"8) BASE OF SHIELD" 

238 PRINT STRINGf(64, 148); 

248 FOR A=l TO 4 

258 OH R GOTO 268, 288, 268, 328 

268 PRINT-THIS IS YOUR FIRST JOUST. YOU ARE UP ftulKST THE GOLD KNIGHT. " 

278 GOTO 348 

288 PRINT-THIS IS YOUR SECOND JOUST. YOUR OPPONENT IS THE SILVER KNIGHT. " 

298 GOTO 348 

388 PRINT-YOU ARE DOING NELL! YOUR THIRD JOUST IS AGAINST THE RED KNIGHT. ' 

318 GOTO 348 

328 PRINT'THIS IS YOUR F1NRL TEST! ! IF YOU HIN THIS ONE THE PRINCESS" 

338 PRIHPIS YOURS!!! THIS FIGHT IS AGAINST THE FIERCE BLACK KNIGHT!!!!" 

348 INPUT"YOUR AIMING P0INT(1-8)";B 

358 PRINT 

366 IF B<1 OR B>8 THEN 348 

370 PRINTYOU MAY USE OtC OF THESE DEFENSES:' 

288 OH B GOTO 398, 418, 428, 468, 398, 428, 298, 488 

398 PRINT" 4-STEADY SEAT, 5-SHIELD HIGH, 6-SHIED LOH. " 

468 GOTO 498 

418 PRINT" 2-LEFT LEAN, 4-STEfiOV SEAT, 5-SHIELD HIGH, 6-SHIELD LOH. " 

428 GOTO 498 

438 PRINT" 1-LttlER HELM, 2-RIGHT LEAH, 2-LEFT LEAN, 4-STEADY SEAT, ■ 

448 PRINT" 5-SHIELD HIGH, 6-SHIELD LOU. " 

458 GOTO 490 

468 PRINT" 2-RIGHT LEAH, 4-STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOH. " 

478 GOTO 498 

488 PRINT" 1-LOWEP, HELM, 4-STEADY SEAT, 5-SHIELD HIGH, 6-SHIELD LOH " 

498 PRINT 

588 INPUTHHRT IS YOUR CHOICE"; C 

518 PRINT 8 328, CHRtOl); 

528 D=INT!RND(8)*8)+1 

530 ON D GOTO 540, 558, 569, 578, 588, 598, 688, 610 

548 ON C GOTO 628, 628, 628, 688, 740, 628 

558 ON C GOTO 748, 716, 628, 718, 718, 628 

568 OH C GOTO 778, 748, 658, 716, 838, 888 

578 ON C GOTO 658, 628, 718, 658, 658, 748 

588 ON C GOTO 718, 838, 628, 718, 628, 718 

598 ON C GOTO 830, 658, 718, 828, 778, 718 

608 ON C GOTO 658, 628, 828, 658, 658, 658 

610 OH C GOTO 718, 658, 778, 716, 778, 718 

628 PRIHT'HE MISSED YOU!" 

628 S=8 

648 GOTO 858 

658 PRIHT"HE HIT YOUR SHIELD BUT IT GLANCED OFF. " 

668 S=0 

678 GOTO 850 

688 PRINT-HE KNOCKED OFF YOUR HELM!" 

6» S=0 

788 GOTO 858 
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710 PRIHT'HE BROKE HIS LRNCE. " 

728 5=8 

728 G6T0 858 

748 PRINT'HE HAS UNSEATED YOU (THUD)!" 

758 S=5 

768 GOTO 858 

778 PRINTHE HAS BROKEN HIS LANCE, INJURED AND UNSEATED YDU (OUCH)!" 

788 S=5 

798 GOTO 858 

880 PRINTHE HAS INJURED AND UNSEATED YOU (CRASH)!" 

818 5=5 

828 GOTO 858 

828 PRINTHE HAS BR8KEN HIS LANCE AND UNSEATED YOU (aANG)!" 

848 S=5 

856 PRINT 

868 E=INT(RHD(8)*6H1 

878 ON D GOTO 888, 988, 918, 920, 880, 910, 888, 948 

888 IF E<4 THEN 858 

898 GOTO 958 

980 IF E<3 THEN 850 

910 GOTO 958 

928 IF E=l OR E=2 THEN 850 

938 GOTO 950 

948 IF E=2 OR E=3 THEN 850 

958 ON E GOTO 960, 970, 980, 998, 1088, 1818 

968 ON B GOTO 1828, 1140, 1170, 1850, 1118, 1238, 1050, 1118 

978 ON B GOTO 1828, 1110, 1140, 1020, 1230, 1050, 1020, 1850 

980 ON B G8T0 1828, 1820, 1050, 1110, 1020, 1110, 1230, 1140 

996 OH B GOTO 1888, 1118, 1118, 1858, 1110, 1230, 1050, 1110 

1888 ON B GOTO 1148, 1110, 1230, 1058, 1028, 1178, 1058, 1170 

1810 ON B GOTO 1820, 1828, 1200, 1140, 1U0, 1118, 1858, 1118 

1020 PRINT'YOU MISSED HIM (HISS)!' 

1020 T=8 

1040 GOTO 1260 

1858 PRINTTO HIT HIS SHIELD BUT GLANCED OFF. " 

1868 T=8 

1076 GOTO 1268 

1680 PRINT'YOU KNOCKED OFF HIS HELM (CHEERS)!" 

1898 T=8 

1188 GOTO 1260 

1110 PRINT'YOU BROKE YOUR LANCE (CRACK . . )" 

1120 T=0 

1130 GOTO 1268 

U48 PRINT'YOU UNSEATED HIM (LOUD CHEERS AND HUZZAHS)!!" 

1158 T=5 

1168 GOTO 1268 

1178 PRINT-YOU BROKE YOUR LANCE, BUT UNSEATED AND INJURED YOUR FOE. " 

1180 T=5 

1190 GOTO 1268 

■1288 PRINT'TO INJURED AND UNSEATED YOUR OPPONENT. " 

1216 T=5 

1220 GOTO 1268 

1228 PRINT'YOU BROKE YOUR LRNCE BUT UNSEATED YOUR OPPONENT. " 

1248 T=5 

1258 GOTO 1268 

1268 IF S=T RND S=8 THEN 1430 

1278 IF S=T THEN I486 

1288 IF SCF THEN 1380 

1298 IF S>T THEN 1376 

1368 PRINT 

1218 PRINT'YOU HAVE HON THIS JOUST. " 

1328 PRINT 

1338 GOTO 1348 

1346 GOSUB 1478 

1350 NEXT A 

1268 GOTO 1548 

1378 PRINT 

1388 PRINTTOO BAD, YOU LOST. HOPE YOUR INSURANCE HAS PAID UP. " 

1398 GOTO 1518 

1408 PRINT 

1410 PRINTTOO BAD, YOU BOTH LOST. AT LEAST YOUR HONOR IS INTACT. " 

1428 GOTO 1518 

1428 PRINT 

1448 PRINTYOU PRE NON READY TO TRY AGAIN " 

1456 GOSUB 1470 

1468 GOTO 248 

1476 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 

1488 IF IHKEYt ="" THEN 1488 

1498 PRINT 9 320, CHfWGl); 

1508 RETURN 

1518 PRINT 

1528 PRINT-SORRY, BETTER LUCK NEXT JOUST. " 

1538 GOTO 1566 

1540 PRINT 

1550 PRINTHOORRY! YOU RRE THE WINNER HERE COMES THE BRIDE!" 

155,5 PRINT 

1568 INPUT "DO YOU HAHT TO PLAY AGAIN"; AN* 

1578 IF LEFWRHt, 1>="Y" THEN 188 

1580 END 



Jumping Balls 



Jumping balls is a solitaire board 
game played with a board having nine 
holes in a line that can be filled with 
four white balls to the right end and 
four black balls to the left end. Without 
a board, it can be played with coins or 
chips. The object of the game is to 
reverse the position of the balls (or 
other objects) from one end of the 
board to the other. 

You may make a move by moving a 
ball to the immediately adjacent empty 
hole or by jumping one other ball. You 
may not jump two or more balls. Holes 
are numbered from left to right. At the 
beginning of the game, hole number 
five is free. Consequently, a legitimate 
first move would be six to five, four to 



JUMPING BALLS 

coPVRiarr 1979 creative computing horristoi*!, nj 



HIT ENTER TO START? . 



■ els ■ 



Cls - 



IN THIS (HE YOU ARE GIVEN 8 BfiLLS ON fl 9 HOLE 
BOfiRD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BULLS AND THE 'G' ARE GOLD 
VOU (WST GO THE SILVER TO HOE THE GOLD ARE AMD 
THE GOLD TO HHERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK! ! HERE IS THE BOARD: 

SSSS GGGG 
122456789 
HOVE (FROM, TO)? 6,5. 



IN THIS GAS YOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
TIC 'S' ARE SILVER BfiLLS AND THE 'G' ARE GOLD 
VOU KJST GET THE SILVER TO HERE THE GOLD ARE AND 
THE GOLD TO HERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSSSG GGG 

1234 56789 

WOVE (FROM, TO)? 4,6. 



■ cls 



IN THIS GAHE VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
THE OBJECT IS TO REVERSE THE ORDER OF THE BfiLLS 
THE 'S' ARE SILVER BfiLLS AND THE 'G' ARE GOLD. 
VOU HIST GET THE SILVER TO HERE THE GOLD ARE AND 
THE GOLD TO HHERE THE SILVER ARE. THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSS GSGGG 
123456789 
MOVE (FROM, TO)? 5,4. 



■ cls 



IN THIS GAME VOU RRE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. TIC OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BfiLLS AMD THE 'G' ARE GOLD. 
VOU HU5T GET THE SILVER TO HKERE THE GOLD ARE AND 
TIC GOLD TO HERE THE SILVER ARE THE SPACE IS 
fl PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSSG SGGG 
123456789 
HOVE (FROM, TO)? 7,5. 
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five, three to five, which would be a 
jump, or seven to five, another jump. 

The computer does not rank your 
playing ability but, as a hint, you ought 
to be able to complete the game in 
fewer moves than are shown in our 
example run. 

The original author if this game was 
Anthony Rizzolo. 

IN THIS GAME VOU ARE GIVEN 8 BfiLLS ON fl 9 HOLE 
BOfiRD. THE OBJECT IS TO REVERSE THE ORDER OF TIC BALLS 
THE '%' ARE SILVER BALLS AH) THE '0' ARE HUD. 
VOU HUST GET THE SILVER TO HHERE THE GOLD ARE AND 
THE GOLD TO KHERE THE SILVER ARE TIE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSSGGS GO 

123456789 

HOVE (FROM, TO)? 6,7. 



■ cls ■ 



IN THI5 GAME VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BfiLLS AM) THE 'G' ARE GOLD. 
YOU MUST GET THE SILVER TO HHERE THE GOLD ARE AM) 
THE GOLD TO WERE THE SILVER ARE. THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 



SSSGG, SGG 
1234 56789 
MOVE (FROM, TO)? 5,6. 



• cls 



IN THIS GAME VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER Of THE BALLS 
THE 'S' ARE SILVER BALLS AND THE 'G' ARE GOLD 
VOU MUST GET THE SILVER TO HERE THE GOLD ARE AND 
TIE GOLD TO WHERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOflRD: 



SSSG. GSGG 
123456789 
HOVE (FROM, TO)? 3,5. 



- cls 



IN THI5 GflIC VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF TIC BALLS 
THE 'S' ARE SILVER BALLS AND THE 'G' ARE GOLD 
VOU MUST GET THE SILVER TO HERE TIC GOLD ARE AND 
THE GOLD TO HERE THE SILVER ARE THE SPACE IS 
ft PERIOD ON TVC BOflRD. 
GOOD LUCK!! HERE IS THE BOARD: 

SS. GSGSGG 
123456789 
HOVE (FROM, TO)? 4,3. 



- cls • 



IN THIS GAME TO ARE GIVEN 8 BALLS ON fl 9 HOLE 
BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BALLS AND THE 'G' ARE GOLD 
VOU MUST GET TIC SILVER TO WERE THE GOLD ARE AM) 
THE GOLD TO WHERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS TIC BOW): 

SSG, SGSGG 
123456789 
MOVE (FROM, TO)? 6.4K- 



■ Cls • 



IN THIS GflfC VOU ARE GIVEN 8 BALLS ON A 9 HOLE 
BOfiRD. THE OBJECT IS TO REVERSE THE ORDER OF TIC BALLS 
THE 'S' ARE SILVER BfiLLS AMD TIC 'G' ARE GOLD 
VOU MUST GETT1C SILVER TO HHERE TIC GOLD ARE AND 
THE GOLD TO HHERE THE SILVER ARE THE SPACE IS 
A PERIOD ON THE BOARD. 
GOOD LUCK! ! HERE IS TIC BOARD: 

SSGGS, SGG 
123456789 
MOVE (FROM, TO)? 8,6. 

cls — . 



■ els ■ 



IN THIS GAHE YOU ARE GIVEN 8 BALLS 01 fl 9 HOI 
BORRD THE OBJECT IS TO REVERSE THE ORDER OF TIC BROS 
Tl£ 'S' fiRE SILVER BRLLS RHD THE 'G' ARE GOLD. 

VOU HIST GET THE SILVER TO «€RE TO. GOLD PRE (H> 
TIC GOLD TO KERE THE SILVER ARE. THE SPACE IS 
R PERIOD ON TIE BOARD. 
GOOD LUCK!! IBS IS THE BOARD: 

SSGGSGS G 
123456789 
HOVE (FRBUO)? 7,8. 



IN THIS GffE VOU RRE GIVEN 8 BRLLS ON fl 9 HOLE 
BORRD. THE OBJECT IS TO REVERSE TIC ORDER OF THE BRLLS 
THE '%' RRE SILVER BRLLS AND THE 'G' RRE GOLD. 
VOU RUST GET THE SILVER TO HHERE THE GOLD RRE AND 
TIC GOLD TO HERE THE SILVER ARE THE SPfiCE IS 
fl PERIOD ON THE BORRD. 
GOOD LUCK!! HERE IS THE BORRD: 

SSGGSG, SG 
122456789 
HOVE (FROflTO)? 5,7. 



IN THIS GHE VOU RRE GIVEN 8 BRLLS ON A 9 HOLE 
BOARD THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE '%' ARE SILVER BALLS AND THE 'G' ORE GOLD. 
VOU NET GET THE SILVER TO HIRE THE GOLD ARE AND 
THE GOLD TO HHERE THE SILVER RRE THE SPACE IS 
A PERIOD ON THE BORRD. 
GOOD LUCK!! HERE IS THE BOARD: 

SSGG. GSSG 
1234 56789 
HOVE (FROM, TO)? 4,5. 



cis ■ 



IN THIS GRKE VOU RRE GIVEN 8 BRLLS ON R 9 HOLE 
BORRD. THE (EJECT IS TO REVERSE THE ORDER OF THE BRLLS 
THE '%' RRE SILVER BRLLS RH> THE 'G' RRE SOLD. 
VOU BUST GET THE SILVER TO IJCRE THE SOLD ARE AND 
THE GOLD TO KRE THE SILVER ARE. THE SPACE IS 
R PERIOD OH THE BORRD. 
GOOD LUCK!! HERE IS THE BOARD: 



SSG. GGSSG 
123456789 
HOVE (FROftTO)? 2,4. 



■ ols ■ 



. LATER. , 
IN TUE« 



IN THIS GAtt VOU ARE GIVEN 8 BRLLS ON A 9 HOLE 
BOARD THE OBJECT IS TO REVERSE THE ORDER OF THE BALLS 
THE 'S' ARE SILVER BRLLS AND THE 'G' ARE SOLD. 
YOU HUST GET THE SILVER TO U€R£ THE GOLD ARE AND 
THE GOLD TO WERE THE SILVER ARE THE SPACE IS 
R PERIOD ON THE BOARD. 
GOOD LUCK!! HERE IS THE BOARD: 

GGG GSSSS 
123456789 
HOVE (FR0H,T0)?5,4_ 



■ Cis • 



IN THIS SAKE VOU ARE GIVEN 8 BRLLS ON R 9 HOLE 
BOfiRD. THE OBJECT IS TO REVERSE THE ORDER OF THE BRLLS 
THE 'S' ARE SILVER BALLS AND THE 'G' ARE GOLD. 
YOU HUST GET THE SILVER TO WRE THE GOLD ARE RND 
TIC GOLD TO WHERE THE SILVER ARE. THE SPACE IS 
R PERIOD ON TIC BOfiRD. 
GOOD LUCK!! HERE IS TIC BORRD: 



18 CLEAR 4BB 

20 OS 

38 PRINT % 418, "JUtPlNG BRLLS" 

58 (M TO7)"C0rai6HT 1979 CREATIVE COOTTING HORRISTOHH, W 

68M«m"; 

78 IHPUT'HIT ENTER TO START"; R$ 

88 DIN QC9, 1) 

98 IF A$="N" THEN 188 

188 CLS 

118 PRINT 

128 PRINT" IN THIS GRKE VOU RRE GIVEN 8 BRLLS ON R 9 HOLE" 

138 PRINT-BOARD. THE OBJECT IS TO REVERSE THE ORDER OF THE BRLLS" 

148 PRINT'TIC 'S' ARE SILVER BALLS AND THE 'G' ARE GOLD. " 

158 PRINT"VOU HUST GET THE SILVER TO HERE THE GOLD ARE AND" 

168 PRINT'THE GOLD TO HERE THE SILVER RRE THE SPACE IS" 

178 PRINT"!) PERIOD ON THE BOARD. " 

188 PRINT"GOOD LUCK! ! HERE IS THE BOARD: " 

198 PRINT 8 576, CHR$(31); 

288 5=8 

218 FOR X=i TO 4 

228 QCX, 1)=1 

238NEXTX 

248 Q(5, 1)=8 

258 FOR X=6 TO 9 

268 QCX, i)=2 

278 NEXT X 

288 A*=". SB" 

298 PRINT t 576, CHTtfOi); 

288 FOR X=i TO 9 

318 PRINT HIDttM, 9(X, 1H1, 1); 

328 PRINT" ■; 

338 NEXT X 
348 PRINT 

358 PRINT "12 3 4 5 6 7 8 9" 

368S=S+1 

378 PRINT 8 784, " HOVE (FROH.TO)"; 

368 INPUT ft HI 

398 IF H<=9 AND KM RND H1C=9 AND MM THEN 428 

488 PRINTILLEGAL HOVE " 

418 GOTO 378 

428 REH: CHECK FOR LEGAL HOVE 

438 IF H*1=M OR H-1=H1 THEN 538 

448 REH SUBROUTINE FOR CHECKING JUHPS, - HAKES YOUR BALLS JU» 

458 IF H=9 THEN 498 

468 IF IW THEN 518 

478 IF QOM, 1>=8 OR Q(H-L 1>=8 THEN 488 

488 GOTO 528 

498 IF QCH-1, 1>=8 TIEN 488 

568 GOTO 528 

518 IF QCH+i, 1)=8 THEN 488 

528 IF H+20M AW) H-20M THEN 468 

538 IF 6011)08 THEN 568 

548 PRINT 8 768, "NOTHING AT SPACE"; H; CHRK8)i". " 

558 GOTO 376 

568 IF Qfltt, i)=9 THEN 598 

578 PRINT e 768, "SPACE"; Hli "IS OCCUPIED. " 

588 GOTO 378 

598 QCKi 1)=Q(M, 1) 

688 Q(H, 1)=8 

618 X9=Q(1, DHH2, l)+6(3, 1)+Q(4, 1) 

628 V9=Q(6, 1)40(7, 1)+Q(8, l)+fl(9, 1) 

628 IF X9=8 RND Y9=4 THEN 658 

648 GOTO 298 

658 PRINT 8 784, STRINGK63, ■ ") 

668PRINT"V0UHIN!!!" 

678 PRINTVOU COfRETED THE GAHE 1N";S;"H0VES!!!>" 

688 PRINT'AGAIN"; 

698 INPUT R$ 

788 IF LEFT«Rt,l)="N" THEN END 

718 PRINT 8 5?6,STRING*(255, " "); 

726 GOTO 198 



GGG GSSSS 
123456789 



VOUHIN!!! 

VOU COIfLETED THE 6W IN 32 HOVES! ! ! 

AGAIN? NO. 

_ Cl8 



84 



Keno 



(1D®©(5][IDCg3(l](M)(g)iM) 
S S (HI W\ W Q§@ Ml M(3B 




Keno is strictly an American inven- 
tion that originated in the casinos in 
Nevada, perhaps in Reno. During the 
game, twenty numbers from one to 
eighty are selected at random. Prior to 
each game at the casino, the player 
may choose from one to fifteen 
numbers, or "spots" he thinks will be 
selected during the game. The player 
enters, or "marks," the desired spots 
and places a bet. At the end of each 
game, the spots marked by the player 
are compared with the twenty numbers 
and the payoff is computed according- 
ly. Keno seems to have a high attrac- 
tion in Las Vegas because the betting is 
very simple and the maximum payoff is 
very high ($25,000). Nevertheless, trie 
probability of winning isextremely low; 
indeed, Keno returns more to the 
house than virtually any other game. 

In this particular computersized 
version of Keno, there is only one 
player and he has the option only of 
betting eight different spots. In Nevada 
the normal bet is in multiples of 60$; 
however, in this game the bet will be 
$1.20 with no multiples possible. The 
payoff with eight spots marked is as 
follows: 

Spots Payoff 

5 $10.00 

6 $100.00 

7 $2,200.00 

8 $25,000.00 

There is no payoff for zero, one, two, 
three, or four correct. 

This version of Keno was originally 
written by Vincent Fazio. 



CREATIVE COMPUTING HORRISTOUN, NJ 



VOU NEED INSTRUCTIONS? VES. 
Cl8 • 



KENO IS PLflVED IN MANY CfSINOS IN LBS VEERS 

PLAY KENO BV COMPUTER.. ONE VARIATION OF THE BABE UTILIZES 

THE RANDOM NUMBER GENERATOR. 

THE PLAVER CHOOSES 8 DIFFERENT NUMBERS FROM 1 TO 88 
INCLUSIVE, RND BETS *1 28. THE COMPUTER HILL SELECT 
26 NUMBERS AT RANDOM AND HILL ELIMINATE DUaiCBTES WHICH 
MAY OCCUR. ANOTHER NUMBER MILL BE INSERTED IN ITS PLACE 
SO THAT THE COMPUTER WILL OUTPUT 28 DIFFERENT NUMBERS. 

PRESS HNV KEV TO CONTINUE 
ols 



HERE WE GO!!!! 
THE COMPUTER HILL OUTPUT 8 ">' MARKS. TVPE A NUMBER FROM 
1 TO 80, INCLUSIVE, AND PRESS THE RETURN KEV. REPEAT THIS 
PROCESS UNTIL THE ">' MARK IS NO LONGER SHOM 
", "> 22 ■> 24 ■> 35 ' 46 ■> 7? ? 65 ' 2 

THE COMPUTER HILL SELECT 26 NUMBERS AT RANDOM. THE ' ' 
INDICATES IT IS IN THE PROCESS OF SRECTING THE NUMBERS. 
els 



HERE IC 00!!!! 
THE COMPUTER HILL OUTPUT 8 ">' MARKS. TVPE A NUMBER FROM 
1 TO 86, INCLUSIVE, AND PRESS THE RETURN KEV. REPEAT THIS 
PROCESS UNTIL THE ">' HARK IS NO LONGER SHOW 

■> i ■> 23 ■> 24 ■> 35 ' 46 ' 77 ' 65 '' 2 

VOUR NUMBERS ARE: 
123,24,35,46,77,65, 2 

THE COMPUTER HAS SELECTED THE FOLLOWING NUMBERS. 
61,77, 2,73,65,79,46,58,54,22,22,72,60,48,14,64, 3,35,52,46 
THE PROGRAM HILL COMPARE VOUR NUMBERS WITH THE 
NUMBERS THE COMPUTER HAS. SELECTED. 
VOU HAVE GUESSED THE FOLLOHED NUMBERS'. 
~23-25"46"??"65V0U CAUGHT 5 NUMBERS OUT OF 8 - VOU HIN $10. 68 
DO VOU HUNT TO PLAV KENO AGAIN ?. 

els 

HERE HE GO!!!! 
THE COMPUTER HILL OUTPUT 8 ">' MARKS. TVPE A NUMBER FROM 
i TO 80, INCLUSIVE, AND PRESS THE RETURN KEV. REPEAT THIS 
PROCESS UNTIL THE ">' NARK IS HO LONGER SHOUM 
"' 21 '■ 34 "> 12 *> 5 '1 '' 6 ->7 ''45 

THE COMPUTER HILL SELECT 26 NUMBERS AT RANDOM. THE • ' 
INDICATES IT IS IN THE PROCESS OF SELECTING THE NUMBERS. 
els 



HERE HE GO!!! 1 
THE COMPUTER MILL OUTPUT 8 ">' MARKS. TVPE A NUMBER FROM 
1 TO 88, INCLUSIVE, RND PRESS THE RETURN KEV. REPEAT THIS 
PROCESS UNTIL THE "" MARK IS NO LONGER SHOWN. 
■1 21 *> 34 ^ 12 ''5 ' ! 1 ^ 6 n 7 '' 45 

VOUR NUMBERS ARE. 
21,24,12, 5, 1, 6. 7,45 
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THE COMPUTER HAS SELECTED THE FOLLOWING NUMBERS: 

5L 57, 58, 46, 76, 25, 18, 6,53,22, 3,25,52,55,48,73,65,12,39,15 

THE PROGRAM HILL COMPflRE YOUR UMBERS WITH THE 

NUMBERS THE COMPUTER HAS SELECTED. 

YOU HfiVE GUESSED THE FOLLOWED NUMBERS: 

- 6 YOU CAUGHT 1 NUMBERS OUT OF 8 - 

NOT ENOUGH CORRECT GUESSES - 'SO SOLLY', NO PRYOFF. 

DO YOU WANT TO PLAY KENO AGAIN ?. 



els ■ 



THAT'S ALL FOR NOW. PLAY KENO AGAIN, BE SEEING YOU. 
els — 



lecLS 

20 PRINT 6 414, "KENO" 

38 PRINT 

46 PRINT TA8(?)"C0PYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ" 

50 PRINT 8 968, ""; 

68 INPUTDO YOU NEED INSTRUCTIONS"; I* 

78 DIM N<a), N<23), fi<8) 

88 IF LEFT$d$, i)=*N" THEN 210 

98CLS 

188 PR1NTTHI0 IS PLAYED IN MANY CASINOS IN LAS VEGAS. " 

116 PRINT "PLAY KENO BY' COMPUTER. ONE VARIATION OF THE GAME, UTILIZES" 

128 PRINT"THE RANDOM NUMBER GENERATOR. " 

138 PRINT 

148 PPINT"THE PLAYER CHOOSES 8 DIFFERENT NUMBERS FROM 1 TO 88" 

158 PRINT-INCLUSIVE, AND BETS $1.28. THE COMPUTER HILL SELECT" 

168 PRIHT'28 NUMBERS AT RANDOM AND HILL ELIMINATE DUPLICATES WHICH" 

178 PRINT'MAY OCCUR ANOTHER NUMBER HILL BE INSERTED IN ITS PLACE" 

188 PRINTS) THAT THE COMPUTER HILL OUTPUT 28 DIFFERENT NUMBERS. " 

198 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 

208 IF IHKEYf ="" THEN 288 

218 CLS 

228 PRINT TAB(25)"HERE HE GO! ! ! ! " 

238 PRINTTHE COMPUTER HILL OUTPUT ">' MARKS. TYPE A NUMBER FROM " 

248 PR!NT"1 TO 88, INCLUSIVE, AND PRESS THE RETURN KEY. REPEAT THIS" 

258 PRINPPROCESS UNTIL THE ">' MARK IS HO LONGER SHOW " 

268 FOR 1=1 TO 8 

278 PRINT 9 384, CHR$<31); 

238 PRINT 8 256+(l-l)*6, "; 

298 INPUT fid) 

388 IF fl(I)>88 THEN 338 

318 IF Ha>08 THEN 338 

328 GOTO 378 

338 PRINT 8 384, "TYPE A NUMBER FROM 1 TO 88, INCLUSIVE, PLEASE " 

348 FOR AR=1 TO 1888 

358 NEXT AA 

368 GOTO 278 

378 NEXT I 

388 C=8 

398 FOR K=l TO 7 

408 FOR M TO 7 

418 X=A(K) 

428 V=AU+i) 

438 IF XOY THEN 578 

448 C=C+1 

450 PRINT 8 284, "A DUPLICATE NUMBER HAS BEEN DETECTED, " 

468 PRINT-PLEASE TYPE ANOTHER NUMBER. " 

478 INPUT Y 

488 IF Y=B THEN 538 

498 IF Y>80 THEN 538 

508 IF Yffl THEN 538 



518 AU+1)=Y 

528 GOTO 438 

538 PRINT "TYPE A NUMBER FROM 1 TO 88, INCLUSIVE, PLEASE. " 

548 FOR AA=1 TO 1888 

558 NEXT AA 

568 GOTO 468 

578 NEXT J 

588 NEXT K 

598 IF C=8 THEN 618 

688 GOTO 388 

618 PRINT 8 384, "THE COMPUTER HILL SELECT 20 NUMBERS AT RANDOM. THE '■;CHT»<131)* 

628 PRIHTINDICATES IT IS IN THE PROCESS OF SELECTING THE NUMBERS. " 

638 PRINTS 320,"; 

648 FOR L=i TO 28 

658 H<L)=RND(80> 

668 N(L)=H(L) 

678 NEXT L 

680L=2i 

698 FOR K=i TO 28 

780 FOR J=K TO L-l 

710 X=N(K> 

720 V=H(J+1> 

738 IF XOY THEN 778 

748 M<M)=RND<88) 

758 Y=HU+i) 

768 GOTO 738 

778 NEXT J 

788 PRINT CHRK121); " "; 

798 NEXT K 

888 PRINT § 384, "YOUR NUMBERS ARE:" CHSGi) 

eie FOR 1=1 TO 8 

828 PRINT USING"M!";fKI);V; 

838 NEXT I 

848 PRINT CHR$(8> 

858 PRINTTHE COMPUTER HAS SELECTED THE FOLLOWING NUMBERS:* 

868 FOR L=l TO 20 

878 PRINT USING"#»!';M(L);","; 

888 FOR T=l TO 208 

898 NEXT T, L 

988 PRINT CHR$<8> 

918 PRINT'THE PROCKflM HILL COWARE YOUR NUtfiERS UITH THE " 

928 PRINT'NUMBERS THE COMPUTER HAS SELECTED. " 

938 PRIHT "YOU HAVE GUESSED THE FOLLOWED NUMBERS :" 

948 G=8 

950 1=1 

968 FOR M TO 28 

978 X=A(I) 

988 Y=M(J) 

998 IF X=Y THEN 1028 

1888 NEXT J 

1818 GOTO 1878 

1028 PRINT CHR$<94>; 

1838 FOR Vi=i TO 468 

1848 NEXT VI 

1858 PRINT USING"#F;A(I); 

1068 G=G+1 

1078 1=1+1 

1880 IF 108 THEN 968 

1890 ON G+i GOTO 1188, 1168, 1188, 1168, 1188, 1188, 1208, 1228, 1240 

1188 PRINT" YOU CAUGHT"; G; "NUMBERS OUT OF 8 — " 

1118 PR1NT"N0T ENOUGH CORRECT GUESSES - 'SO SOLLY', NO PAYOFF. " 

1128 PRINT-DO YOU WANT TO PLAY KENO AGAIN '"; CHR$<95); 

1138 A$=INK£Y$ 

1148 A$=INKEY$ 

1158 IF ftt=" THEN 1148 

1168 IF A$="Y" THEN 218 ELSE 1278 

1176 PRINT "TYPE YES OR N8 PLEASE! !" 

1188 PRINT "YOU CAUGHT"; 0; "NUMBERS OUT OF 8 - YOU WIN $18.86' 

1198 GOTO 1128 

1288 PRINT "YOU CAUGHT"; G; "NUMBERS OUT OF 8 - YOU WIN $168. 06* 

1210 GOTO 1128 

1228 PRINT "YOU CAUGHT ";G; "NUMBERS OUT OF 8 - YOU WIN $2,268. 88" 

1238 GOTO 1128 

1246 PRINT 'YOU CAUGHT ";G; "NUMBERS OUT OF 8 - YOU WIN $25,088.80" 

1258 PRINT "8 OUT OF 8 DOES NOT OCCUR TOO OFTEN, LUCKY. " 

1268 GOTO 1128 

1270 as 

1288 PRINT 8 384, "THAT'S ALL FOR NOW PLAY KENO AGAIN, BE SEEING YOU. " 
1290 FOR 1=1 TO 1608 
1388 NEXT I 
13-18 END 
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The L-game is a 2-player strategic 
game played on a 4x4 grid. It was 
originally devised by Edward de 
Bono and appeared in the book, "The 
Five-Day Course in Thinking." In the 
game, each player has one 'L' which 
covers four squares (3 high x 2 
across). The two L's are labelled 
differently to avoid confusion. There 
are also two neutral 'boxes' each the 
size of a single square on the grid. To 
play the game with the computer the 
grid positions must be numbered as 
follows: 



Play always begins with all the 
pieces on the board in this position : 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 



PUP! 












tefi 






4 


5 






8 


9 






12 








r -, 


13 






-..:_ 



The object of the game is simply 
to position one's L and the neutral 
boxes to pin the other player's L. 
Each move is a mixture of offense 
and defense, for one is not only 
trying to pin the other player's L, but 
also trying to prevent his own L from 
being pinned. 

Either player may move first. To 
move, one must pick up his L and 
move it to a different position on the 



board. The player may flip his L over, 
rotate it 90 degrees, etc. The L must 
not cover any other pieces or hang 
off the edge of the board. If a player 
is unable to move his L, or simply 
cannot find a move, he loses the 
game. Once the player has success- 
fully moved his L to a new position 
on the board, he then has the option 
of moving the neutral boxes. He may 
move the boxes only to unoccupied 
positions and he has the option of 
moving one box, both boxes, or 
leaving the boxes where they are. By 
using the boxes effectively, one can 
block off moves for the other player's 
L and possibly pin him. After the 
player moves the boxes (or decides 
not to move one or both) it is the 
other player's turn and play contin- 
ues in the same manner. 

The computer version of the L 
Game was written by Bill Gardner. 

This program uses TRS-80 graph- 
ics which do not reproduce well on a 
line printer. Therefore the sample run 
does not give a true representation of 
the program. The only way this 
program can be truly appreciated is 
to run it. 



COPYRIGHT -1979 CREATIVE COMPUTING MORRISTOMN, NJ 



(COHPUTEP IS , VCli APE t) 



DO VOU HEED INSTRUCTIONS? VES_ 
els ■ 



L-GANE IS A SIMPLE STRATEGIC GAME PLAYED OH B 4X4 
GRID BY THO OPPOSING PLAYERS, IN THIS CASE BETWEEN VOU 
AND THE COMPUTER. THE GRID IS NUMBERED AS FOLLOWS: 
PRESS ANY KB' TO CONTINUE 

els ■ — 





1: 


■ ■>■ 




■ 4: 




5: 


fi- 


■ 7- 


• 8: 




9: 


10: 


11: 


:12: 





:13::14::15::16: 

PRESS ANV KEY TO CONTINUE 

els 

THE GAME IS PLAYED WITH FOUR PIECES; BOTH 
VOU AND THE COMPUTER HAVE ONE X', AND THERE ARE 
THO 'BOXES' UHICH ARE USED BV BOTH PLAYERS. 
PLAY ALWAYS BEGINS HITH THE PIECES ON THE BOARD 
IN THE FOLLOWING POSITION: 

PRESS ANV KEY TO CONTINUE 
els 

4: 

5:....Si»»: 6: 
==. . . . »«««== 
==. . . . S#Stt= 

9:....«M«:12. 
==. . . . Htt= 
==#*«*###S. . , 
: 12 :#«««». 
=MHS#IS.. . 
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PRESS ANY KEY 
els - 



fO CONTINUE 



THE OBJECT OF THE GAME IS TO POSITION VOUP OKN 
L AND THE BOXES TO PREVENT THE COMPUTER FROM MOVING 
ITS L OF COURSE, IT IS TRYING TO DO THE SAME TO YOU! 
TO HOVE, VOU MUST SIMPLY ENTER THE FOUR COORDINATES 
HHERE YOU WANT TO PLACE YOUR L IT MUST REMAIN ON THE 
BOARD AND MUST NOT COVER ANY OTHER PIECES. VOU MUST 
MOVE YOUR L! IF YOU CANNOT FIND A HEH POSITION 
FOR YOUR L, THEN THE COMPUTER HAS EFFECTIVELY PINNED YOUR 
L AND IT WINS THE GAME 

PRESS ANY KEY TO CONTINUE 



■ els 



ASSUMING YOU HAVE SUCCESSFULLY MOVED YOUR L, YOU HON 
HAVE THE OPTION OF MOVING THE BOXES. YOU MAY MOVE ONE, 
TWO, OR NONE OF THE BOXES BY SIMPLY ENTERING THE COORDINATES 
HHERE YOU HUNT TO PUT THEM. TO LEAVE A BOX HHERE IT IS, 
ENTER ITS PRESENT POSITION 

AFTER VOU MOVE THE BOXES.. IT IS UP TO THE COMPUTER 
TO FIND A MOVE FOR ITS L AND PLAY CONTINUES IN THE SAME 
MANNER:. REMEMBER THAT VOU MUST NOT ONLY TRY TO PIN THE 
COMPUTER'S L BUT ALSO ISP YOUR OWN L FROM BEING PINNED. 
ALSO, IT IS EASIER TO PLAY THE GAME HITH YOUR OWN BOARD 
THAN THE COMPUTER PRINTOUT. TO RESIGN, ENTER 8,8,0,8 
IN PLACE OF YOUR MOVE GOOD LUCK! 
DO VOU WISH TO START" 1 MO. 

els 

HAVE THE OPTION OF MOVING THE BOXES VOU MAY MOVE ONE, 
THO, OR HONE CF THE BOXES BY SIMPLY ENTERING THE COORDINATES 
HHERE VOU HfiHT TO PUT THEM TO LEAVE A BOX HHERE IT IS, 
ENTER ITS PRESENT POSITION. 

AFTER VOU MOVE THE BOXES, IT IS UP TO THE COHPUTEP 
TO FIND A MOVE FOR ITS L AND PLfiV CONTINUES IN THE SAME 
MANNER. REMEMBER THAT VOU MUST NOT ONLY TRY TO PIN THE 
COMPUTER'S L BUT ALSO KEEP YOLK OHN L FROM BEING PINNED. 
ALSO, IT IS EASIER TO PLAY THE GAME HITH YOUR OHN BOARD 
THAN THE COMPUTER PRINTOUT. TO RESIGN, ENTER 0,0,8,0 
IN PLACE OF YOUR MOVE. GOOD LUCK! 
DO YOU HISH TO START'' NO 
COMPUTER MOVES TO 2 f, 18 5 



• els • 



— — 




1: 4. 








===. . . . Ht#= 




5:....»«»S: 8: 




==. . . . Ht»== 




»««. . . . 




MM 




. ...«#«.... 








:13: »«««#■. 16: 




==#«#««««= 




VOUR TOE FOR L? 8,: 


(•,11,15. 



els • 



1: 4: 

=. . . . «*«=== 

5:....tH#: 8: 

=. . . . ««#== 

»««. . . . 

iit« 

»««. . . . 

==tw«««== 

:12:«H«8#:16. 

VOUR MOVE FOR L? 8,7,11,: 
VOIR MOVE FOR THE BOXES'' 



— . . . . nuun 

5:. . . . «««»« 
=. . . . Httttii 

ttt«= 

«M:12: 

#««== 

==mi. . . . 

:12: :«:«». 
==#ttt. . . . 
COMPUTER MOVES TO 



1,16. 
- els ■ 






... 2:: 4: 




===, . . . mttm 

5- »««#« 
==.... »«MttM» 

==. . . . mm. . . . 

9:....«##*. 
==- . . ##M. . . . 
=. . . . #»«== 
:13:. «i«:16: 

VOUR MOVE FOR L? 2,4,7,11 
VOUR HOVE FOR THE BOXES? 1 



18 1 
ClS 



1:... 
==. . . . *#«#«#» 
==. . . . «««== 

5:.... MM: 8. 
=. . . . »H== 
MM. . . . 



:13::14:. 



:16. 



COMPUTER WINS! 

FiRv again? NO. 



10 CLEAR 1680 

28 CLS 

26 PRINT i 412, "L - GfiHE" 

46 PRINT 

58 PRINT TAB(7)"C0PVRIGHT 1979 

CREATIVE COMPUTING H0RRBT0IM, NJ" 



6, 6, 11, 7, 
6, 2, L 8, 8 



T(X) 



18, 15, 18, 3, 14, 
2, 1, 8, 8, 1, i. 



68 PRINT i 968, "; 

78 INPUT'DO VOU ICED INSTRUCTIONS"; IJ 

88 DIM C(4>, 0(4), T(4), 8(16), H(16), M(188) 

98 IF LEFT«U, 1)="V" THEN 2188 

lea as 

118 A$="V 

128 IF LEFWRt, 1)="N" THEN 158 

136LETF2=0 

148 GOTO 168 

158 LET F2=i 

168 GOSUB 188 

178 GOTO 398 

188 REM INITI8U2E DATA 

198 REM 81,62 = POSITIONS OF BOXES 

288 REM C(L2,3,4) = COMPUTER/S POSITION (L) 

218 REM 0(1,2,2,4) = OPPONENT'S POSITION (L) 

228 REM T(l,2,2,4) = 6,7,18,11 = CENTER POSITIONS 

238REHB(i,...16> = BOARD: 

248 RBI B(X)=8 B4PTV 

258 REM B(X)=1 OPPONENT'S L 

268 REM B(X)=2 COMPUTER'S L 

278 REN B(X)=3 BOX 

288 RESTORE 

298 DATA i, 16, 2, 7, 

288 DATA 2, 2, 2, 8, 

218 READ 81 B2 

228 FOR X=l TO 4 

228 READ C(X), 8(X) 

248 NEXT X 

258 FOR X=l TO 16 

368 READ B(X) 

278 NEXT X 

288 RETURN 

396 PRINT 'DO VOU WISH TO START"; 

488 INPUT Rl 

418 IF LEFTtfflt, D="N" THEN 988 

428 REM OPPONENT'S MOVE 

438 GOSUB 2868 

448 PRINT 

458 PRINT "VOUR MOVE FOR L"; 

468 INPUT D(i), 0(2), DO), DM) 

478 IF RB5(0(i))+AB5(D(2)MflBS(DG)) 

+BBS(D(4»=8 THEN 1788 
488 REM BUBBLE SORT 
498 FOR X=l TO 4 
588 FOR Y=2 TO 4 
518 IF D(V»D(V-1) THEN 558 
528 LET Z=D(V) 
528 LET D(VMKV-l) 

548 LET D(Y-1)=Z 

558 NEXT V 

568 NEXT X 

578 REM CHECK LEGALITY 

588 FOR X=l TO 4 

598 LET N(X)=D(X) 

688 NEXT X 

619 LET ttt=4 

628 LET Fi=6 

628 G05UB 2298 

648 IF 11104 THEN 1728 

658 FOR X=i TO 4 

668 IF B(H(X))>1 THEN 1728 

678 NEXT X 

688 FOR X=l T6 4 

698 LET BC0(X))=8 

788 NEXT X 

718 FOR X=i TO 4 

728 LET B(H(X)>=1 

728 LET 0(X)=M(X) 

748 NEXT X 

758 LET B(B1)=8 

768 LET B(B2)=8 

778 PRINT "VOUR MOVE FOR THE BOXES"; 

788 INPUT X, V 

798 IF ABS(X)+ABS(V)OX+V THEN 1758 

886 IF X=V THEN 1756 

818 IF B(X)+B(V»8 THEN 1756 

828 LET Bi=X 

828 LET B2=Y 

848 LB 8(Bi)=3 

858 LET B(B2>=3 

866 PRIIIT "0 K. " 

878 GOSUB 2868 

888 REM COMPUTER'S MOVE 



898 REM REMOVE CCi-4) FROM BOARD 
988 FOR X=i TO 4 
918 LET B(C(X))=8 
928 NEXT X 
926 GOSUB 1928 
948 LET Fl=l 
958 LET N1=Z 
968 GOSUB 2298 
978 IF 111=8 THEN 1868 

986 REM FIND HOVE WITH BEST CENTER COVERAGE 
998 GOSUB 1888 
1868 FOR E=6 TO Ml-4 STEP 4 
1818 FOR F=i TO 4 
1828 FOR G=i TO 4 
1826 IF l«E+F)OT(G) THEN 1658 
1846 LET N(E/4+i)=N(E/4+l)+l 
1858 NEXT G 
1868 NEXT F 
1078 NEXT E 
1886 GOSUB 2826 
1898 REM PUT MOVE IN C(i-4> 
U68 LET V=(2-l)*4 
1118 FOR X=i TO 4 
11 1126 LET C(X)=M(X+V) 
3 1138 LET B(C(X»=2 

1148 NEXT X 
1158 PRINT 
U66 PRINT ■COMPUTER MOVES TO ";C(1);" 

";C(2)i" ';C(3);" ";C(4> 
1176 REM FIND MOVES FOR BOXES 
1186 REM REMOVE BOXES FROM BOARD 
1198 LET B(B1)=8 
1288 LET B(B2>=6 

1210 REM IS OPPONENT IN CORNER? 

1220 FOR 1=1 TO 4 
1230 FOR M TO 4 
1248 IF 0(I)=TCJ) THEN 1380 

1258 NEXT J 

1268 NEXT I 

1278 REM OPPONENT IN CORNER, IGNORE CENTER 

1288 GOTO 1478 

1298 REM OPPONENT NOT IN CORNER, FILL CENTER UITH BOXES 

1388 FOR X=l TO 4 

1318 IF 8(T(X))>8 THEN 1358 

1328 LET B1=T(X) 

1338 LET B(B1)=3 

1348 GOTO 1388 

1358 NEXT X 

1368 REM NO SPACES IN CENTER 

1378 GOTO 1476 

1386 FOR X=l TO 4 

1398 IF B(T(X))>8 THEN 1438 

1486 LET B2=T(X) 

1418 LET B(B2)=3 

1428 GOTO 1548 

1438 NEXT X 

1448 REM CENTER FILLED 

1456 &1T0 1518 

1468 REM BOTH BOXES TO BE POSITIONED 

1478 GOSUB 2158 

1488 LET B1=B2 

1490 LET B(B1!=2 

1588 REM ONE BOX TO BE POSITIONED 

1518 GOSUB 2158 

1528 LET B2=B2 

1538 LET B(B2)=3 

1548 PRINT TAB(9); "MOVES BOXES TO ";B1j" AND ";B2 

1558 FOR X=l TO 4 

1568 LET B(8«»=i 

1576 NEXT X 

1588 GOSUB 2866 

1598 REM CHECK FOR WIN 

1688 FOR X=l TO 4 

1618 LET B(0(X»=8 

1626 NEXT X 

1638 GOSUB 1938 

1646 LET Fl=2 

1650 LET Hi=Z 

1668 GOSUB 2298 

1678 IF Ml=8 THEN 1788 

1688 FOR X=l TO 4 

1698 LET B(0(X»=1 

1766 NEXT X 

1718 GOTO 446 



88 



1720 PRINT "ILLEGAL MOVE FOR L. ' 

1728 PRINT 

1748 GOTO 448 

1758 PRINT "ILLEGRL MOVE FOR BOX. " 

1768 PRINT 

1778 GOTO 778 

1788 PRINT "COMPUTER WINS!" 

17S8 GOTO 1810 

1888 PRINT "CONGRATULATIONS! VOO HAVE HON. " 

1818 PRINT 

1828 PRINT "PLAY RGflIM"; 

1838 INPUT At 

1848 IF LEFTKfit, 1)="V" THEN 168 

1858 GOTO 3648 

1868 RBI *** SUBROUTINES *** 

1878 REM ERftSE N(X) 

1888 FOR X=i TO 16 

1898 LET N(X)=8 

1988 NEXT X 

1918 RETURN 

1920 REM STORE LOCATIONS OF UNOCCUPIED POSITIONS IN N(X) 

1930 LET 2=8 

1948 FOR X=i TO 16 

1958 IF B(X)>0 THEN 1988 

1960 LET 2=2+1 

1976 LET H<Z)=X 

1988 NEXT X 

1990 RETURN 

2808 REM THIS SUBROUTINE RETURNS THE LOCATION OF THE LARGEST 

2018 REM VALUE IN N(X). IF A TIE EXISTS A RANDOM CHOICE IS MADE. 

2828 LET ¥=0 

2828 LET Z=l 

2848 FOR X=l TO Ml/4 

2858 IF N«KY THEN 2188 

2868 IF H(S»V THEN 2888 

2078 IF RHD<;i)> 5 THEN 2100 

28S8 LET Y=tKX> 

2898 LET 2=X 

2108 NEXT X 

2118 RETURN 

2128 REM BOX-FIND 

2130 RBI THIS SUBROUTINE FINDS THE MOVE FOR A BOX THAT HILL 

2148 FBI MOST RESTRICT THE OPPONENTS L IN TERMS OF MOVES POSSIBLE 

2158 FOR X=l TO 4 

2168 LET B(0<X))=6 

2178 NEXT X 

2180 60SUB 1930 

2190 LET Fl=2 

2ffl8 LET Nl=2 

2210 GOSUB 2290 

2220 GOSUB 1S88 

2230 FOR X=i TO Ml 

2248 LET NCM(X»=N(fKX»+l 

2250 NEXT X 

2268 FOR X=l TO 4 

2278 LET N<0ffi»=8 

2288 NEXT X 

2298 LET 111=64 

2388 GOSUB 2828 

2318 LET B2=Z 

2328 RETURN 

2338 REM L-FIND 

2348 REM THIS SUBROUTINE CALCULATES ALL POSSIBLE MOVES FOR AH L GIVEN ALL 

2258 REM EMPTY POSITIONS IN N(X). IF Fl=l, THE CURRENT POSITION OF THE 

2268 REM COMPUTER'S L IS OMITTED. OTHERWISE, THE CURRENT POSITION OF THE 

2270 REM OPPONENT'S L IS OMITTED. MOVE ARE RETURNED IN MCX), AND 

2388 RBI HI IS THE LENGTH OF MCX). <M1 = NUMBER OF MOVES * 4) 

2290 LET Ml=8 

2480 LET J=4 

2410 LET K=i 

2420 GOSUB 2470 

242fl LET J=l 

2440 LET K=4 

2450 GOSUB 2478 

2468 RETURN 

2478 LET F-B 

2480 LET P=P+i 

2490 LET A'1>=NCP) 

2588 LET X=P 

2518 LET X=X+1 

2520 IF X>Hi THEN 2648 

2520 IF NCX)-A<i)OJ THEN 2510 

2548 LET AC2>=HCX) 

2558 LET X=X+1 

2566 IF ffi-Ni THEN 2648 

2578 IF N(X)-A<2)OJ THEN 2558 

2588 LET A(2)=N<X) 

2598 FOR E=l TO Nl 



2608 IF ABSCNCE)-AC1»=K THEN 2668 

2618 IF ABSCNCE)-AC2»4C THEN 2668 

2628 NEXT E 

2638 GOTO 2488 

2640 IF P<Nl-2 THEN 2480 

2658 RETURN 

2666 LET AC4)=NCE) 

2678 F8R F=l TO 4 

2680 IF A(F),'40INTCA(FV4) THEN 2726 



2698 FOR G=i TO 4 

2706 IF A(G)=A(F)+1 THEN 2628 

2710 NEXT G 

2726 NEXT F 

2728 FOR V=l TO 4 

2748 IF Fl=l THEN 2780 

2758 IF ACV)OO(V) THEN 2888 

2760 ICXT V 

2778 GOTO 2620 

2788 IF A(Y)OC(Y> THEN 2860 

2798 GOTO 2768 

2808 FOR V=l TO 4 

2816 LET MCM1+Y)=ACY> 

2828 NEXT V 

2828 LET 111=111+4 

2846 GOTO 2626 

2858 REM B6AR0 PRINTOUT SUBROUTINE 

2868 OS 

2870 IF F2=l THEN 2168 

2888 FOR E=l TO 12 STEP 4 

2898 FOR F=l TO 2 

2988 FOR G=E TO E+2 

•2910 ON BCGH1 GOTO 320, 2810, 2028, 

2926 IF F=2 THEN 2958 

2928 PRINT "==="; 

2948 GOTO 3128 

2958 PRINT "■"; 

2960 IF G>9 THEN 2998 

2978 PRINT " "; CHR«48+G>; " ■ »; 

29E8 GOTO 3128 

2998 PRINT "1"; CHRJC38+G); " ■ ■; 

2088 GOTO 2128 

2810 PRINT "##«■; 

3820 GOTO 3120 

3830 PRINT STR1NG$(4, 191); 

2048 GOTO 3120 

2858 IF F=2 THEN 2118 

3868 IF F=l THEN 3890 

3878 PRINT CHR«143)STRING$(2, 140)CHR*<143); 

3688 GOTO 2128 

2690 PRINT CHR* (188>STRINGf (2, 140)CHR«188); 

2168 GOTO 3128 

2110 PRINT CHRK19D" " CH8C191); 

2120 NEXT G 

2128 PRINT 

2148 NEXT F 

3158 NEXT E 

3160 PRINT 

2176 RETURN 

2180 REM INSTRUCTIONS 

2198 CLS 

3288 PRINT " L-GAHE IS A SIMPLE STRATEGIC GAME PLAYED ON A 4X4" 

2210 PRINT "GRID BV TWO OPPOSING PLAYERS, IN THIS CASE BETWEEN YOU" 

3226 PRINT "AND THE COMPUTER THE GRID IS NUMBERED AS FOLLOWS:" 

3236 LET F2=8 

2246 FOR X=l TO 16 

3258 LET B(X)=0 

3268 NEXT X 

3278 GOSUB 3658 

2288 GOSUB 2866 

2298 GOSUB 3656 

3368 PRINT " THE GAME IS PLAYED KITH FOUR PIECES; BOTH" 

3318 PRINT "YOU AND THE COMPUTER HAVE ONE 'L', AND THERE ARE" 

2228 PRINT "TOO 'BOXES' HHICH ARE USED BY BOTH PLAYERS, " 

2238 PRINT "PLAY ALWAYS BEGINS WITH THE PIECES ON THE BOARD" 

3240 PRINT "IN THE FOLLOWING POSITION:" 

235,8 GOSUB 188 

2368 GOSUB 3650 

3370 GOSUB 2860 

3380 PRINT "(COMPUTER IS " CHRJC19D", YOU ARE *)" 

3398 GOSUB 2650 

240O PRINT " THE OBJECT OF THE GAME IS TO POSITION YOUR OWN" 

2410 PRINT "L AND THE BOXES TO PREVENT THE COMPUTER FROM MOVING" 

2428 PRINT "ITS L OF COURSE, IT IS TRYING TO DO THE SAME TO YOU!" 

2420 PRINT "TO MOVE, YOU MUST SIMPLY ENTER THE FOUR COORDINATES* 

2448 PRINT "WERE YOU HUNT TO PLACE YOUR L IT MUST REMAIN ON THE" 

3458 PRINT "BOARD AND MUST NOT COVER ANY OTHER PIECES. YOU MUST" 

2460 PRINT "HOVE YOUR L! IF YOU CANNOT FIND A NEW POSITION" 

3478 PRINT "FOR YOUR L THEN THE COMPUTER HAS. EFFECTIVELY PINNED YOUR" 



1I1E. * 



3488 PRINT "L AND IT NINS THE i 

3498 GOSUB 3658 

3588 PRINT " ASSUMING YOU HAVE SUCCESSFULLY MOVED VOIR L, YOU NOW 

3518 PRINT "HAVE THE OPTION OF MOVING THE BOXES. YOU MAY MOVE ONE, " 

3528 PRINT "TOO, OR NONE OF THE BOXES BY SItf LY ENTERING THE COORDINATES" 

3538 PRINT "UHERE YOU WANT TO PUT THEM TO LEAVE A BOX WHERE IT IS," 

2540 PRINT "ENTER ITS PRESENT POSITION. ■ 

3558 PRINT " AFTER YOU MOVE THE BOXES, IT IS UP TO THE COMPUTER" 

3560 PRINT "TO FIND A MOVE FOR ITS L AND PLAY CONTINUES IN THE SANE" 

2576 PRINT "MANNER REMEMBER THAT YOU MUST NOT ONLY TRY TO PIN THE" 

2588 PRINT "COMPUTER'S L BUT ALSO KEEP YOUR OWN L FROM BEING PINNED. • 

2590 PRINT "ALSO, IT IS EASIER TO PLAY THE GAME WITH YOUR OWN BOARD" 

3686 PRINT "THAN THE COMPUTER PRINTOUT. TO RESIGN, ENTER 8,6,0,8" 

2616 PRINT "IN PLACE OF YOUR MOVE GOOD LUCK!" 

2626 PRINT 

3620 GOTO 118 

2648 END 

2656 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 

2666 IF MEM ="" THEN 3668 

3676 CIS 

3688 RETURN 



2658 
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This program is a life-expectancy 
test derived from Peter Passell's book 
"How To." The test asks you a series of 
questions dealing with your life-style 
and environment. At the end of the 
questioning, the program gives your 
estimated life-expectancy and the 
percentage of the population you 
should outlive. 

You may wish to experiment with 
certain variables to see what effect they 
will have on your lifespan. It's unlikely 
that you want to change your sex, but 
you may wish to check out the effect of 
smoking, drinking, mental attitude or 
weight. 

This program was written by John E. 
Rogers. 



HOH DO VOU HORK? 
II = IF VOU HORK BEHIND fl DESK. 
L = IF VOIR HORK REQUIRE HEAVY PHVSICflL LABOR 
I = NONE OF THE ABOVE. 
CHOOSE ONE OF THE LETTERS ABOVE' li- 



ds • 



HOW LONG 00 VOU EXERCISE 5TRENU0USLV, 
(TENUIS, RUNNING. SHIMMING, ETC. >? 
F = FIVE TINES Fl WEEK FOR AT LEAST fl HALF HOUR. 
K = JUST TWO OR THREE TIMES A WEEK. 
I = DO HOT EXERCISE IN THIS FASHION. 
CHOOSE ONE OF THE LETTERS ABOVE'' K_ 



els • 



HHO DO VOU LIVE WITH? 

H = IF VOU LIVE WITH A SPOUSE, FRIEND, OR III A FflMILV. 
H = IF VOU'VE LIVED ALONE FOR 1-10 'CARS SINCE AGE 25. 
G = FOR 11-20 YEARS, 
H = FOR 21-28 VEARS. 
E = FOR 21-40 VEARS. 
D = HOPE THAN 40 TORS. 
CHOOSE ONE OF THE LETTERS ABOVE? N. 



els ■ 



LIFE EXPECTANCY 
COPYRIGHT 1979 CREATIVE COMPUTING M0RR1ST0MN, NJ 
DO VOU NEED INSTRUCTIONS? YES, 



+++PSVCHE+++ 

DO VOU SLEEP MORE THAN 18 HOURS A NIGHT'' 
I = NO. 
E = YES. 
CHOOSE ONE OF THE LETTERS ABOVE? L 



■ els • 



THIS IS A TEST TO PREDICT YOUR LIFE EXPECTANCY. I 
HILL ASK VOU A SERIES OF SHORT QUESTIONS, WHICH YOU HILL 
REPLY BY TYPING IN THE CORRESPONDING ANSWER TO THE 
QUESTION. 

EXAMPLE: WHAT IS YOUR SEX? 

M=MHLE 

F=FEMALE 
'H' AND 'F' ARE THE POSSIBLE REPLIES TO THE QUESTION, ANSWER 
LIKE THIS: 

CHOOSE ONE OF THE LETTERS ABOVE? M 
TYPING AH 'H' SIGNIFIES THAT VOU ARE A HALE 



PRESS ANY KEY TO CONTINUE 
els 



+++SEX+++ 

ARE YOU HALE OR. FEMALE'' 
M = HALE 
F = FEMALE 
CHOOSE ONE OF THE LETTERS ABOVE'' IL 



+++HENTAL STBTE+++ 

H = IF VOU ARE INTENSE, AGGRESSIVE, OR EASILY ANGERED. 
L = IF VOU ARE EASY GOING, RELAXED, OR A FOLLOWER 
I = NEITHER 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



*t+H0N VOU FEEL+++ 
ARE YOU HAPPY OR UNHRPPV? 
J = HAPPY. 
G = UNHAPPY. 
I = NEITHER 
CHOOSE ONE OF THE LETTERS ABOVE'' 1. 



els - 



els • 



+++FHCT0RS+++ 

HftVE VOU HAD A SPEEDING TICKET IN THE LAST YEAR:? 
H = YES. 
I = NO. 
CHOOSE ONE OF THE LETTERS ABOVE? 1. 



+++LIFE STYLE+++ 
WHERE DO VOU LIVE? 
= IF VOU LIVE IN I 



K = IF VOU LIVE IN A TOWN UNDER 10, 
I = NEITHER 
CHOOSE ONE OF THE LETTERS ABOVE"' K. 



URBAN AREA WITH A POPULATION OVER 2 MIL. 
ON A FARM 



+++1NC0HE+++ 

DO YOU EARN MORE THAN $58,868 A VEfiR'' 
G = SEE, 
I =N0. 
CHOOSE ONE OF THE LETTERS- ABOVE? I. 



■ els ■ 
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H+SCHOOLINGm 

J = IF VOU HAVE FINISHED COLLEGE. 
L = IF VOU HAVE FINISHED COLLEGE WITH R GRADUATE 
OR PROFESSIONAL DEGREE 
I = NOTHING LISTED. 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



cis - 



+++AGE+++ 

ARE VOU 65 OR OLDER AND STILL WORKING? 
L = YES. 
I =NO 
CHOOSE ONE OF THE LETTERS ABOVE? L 



+++CURRENT AGE+++ 

K = IF YOU ARE BETWEEN 36 AND 48 VEARS OLD. 
L = BETWEEN 48 AND 50. 
F = BETWEEN 50 AND 76. 
N = OVER 78. 
I = UNDER 39. 
CHOOSE ONE OF THE LETTERS ABOVE? L 



■ els • 



VOU ARE EXPECTED TO LIVE TO THE AGE OF 88 VEARS. 
OUTLIVING 75!iOFTHEffiNAND5320FTHE HOHEN. 
WOULD VOU LIKE ANOTHER ESTIHATE? NO. 



■ els ■ 



• els ■ 



+++HERED1TY+++ 

K = IF ANV GRANDPARENTS LIVED TO 35 VEARS OLD. 

= IF ALL FOUR GRANDPARENTS LIVED TO BE 88 VEARS OLD. 

1 = NO GRANDPARENTS QUALIFV IN THE ABOVE. 
CHOOSE ONE OF THE LETTERS ABOVE? K. 



■ els • 



HAS ANV PARENT DIED OF A STROKE OR HEART ATTACK 
BEFORE THE AGE OF 59? 
E=YES. 
I = M0. 
CHOOSE ONE Of THE LETTERS ABOVE? I. 



■ els • 



++*FANILV DISEASES**- 

ANV PARENT, BROTHER, OR SISTER UNDER 59 HAS (OR HAD) 
CANCER, A HEART CONDITION, OR DIABETES SINCE CHILDHOOD? 
H = YES 
I =N0 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



18CLS 

29 CLEAR 1889 

38 PRINT 499, "LIFE EXPECTANCY" 

48 PRINT 

50 PRIHT TAB<7)*C0PVRIGHT 1979 CREATIVE COMWING HORRISTOHN, NJ' 

69 PRINT 8 966, "; 

78 IHPUPDO VOU NEED INSTRUCTIONS"; I* 

88 IF LEFT«K, 1)="N" THEN 238 

98CLS 

1 THIS IS A TEST TO PREDICT VOUR LIFE EXPECTANCY. I" 
MILL ASK VOU A SERIES OF SHORT QUESTIONS, WHICH VOU WILL* 
REPLY BY WING IN THE CORRESPONDING ANSWER TO THE" 
QUESTION." 

EXAMPLE: WHAT IS YOUR SEX?" 
H=HALE" 
F=FEMALE" 
ARE THE POSSIBLE REPLIES TO THE QUESTION, RNSWER" 



198 PRINT 
119 PRINT 
128 PRINT 
139 PRINT 
149 PRINT 
159 PRINT 
168 PRINT 
179 PRINT 
188 PRINT 
198 PRINT 
286 PRINT 
218 PRINT 
228 IF INKEY* =" 
238R5=i 



"H' AND 'F' 
LIKE THIS:" 

CHOOSE ONE OF THE LETTERS ABOVE? 
TYPING AN 'W SIGNIFIES THAT VOU ARE A BALE. " 
< 979, "PRESS ANV KEY TO CONTINUE"; 
THEN 229 



H" 



• els ■ 



■H"tnERL.TrH"H' 
HOW HUCH DO YOU SMOKE? 
A = IF YOU SHOKE HORE THAN TWO PACKS A DAY. 
C = ONE TO TWO PACKS A DAY. 
M = ONE HALF TO ONE PACK A DAY. 
I = DON'T SHOKE 
CHOOSE ONE OF THE LETTERS ABOVE? I_ 



■ els 



+++DRINKING+++ 

DO VOU DRINK THE EQUIVALENT OF A 
QUARTER BOTTLE OF ALCOHOLIC BEVERAGE A DAY? 
H = YES 
I = N0 
CHOOSE ONE OF THE LETTERS ABOVE? I. 



• els ■ 



++HEIGHT+++ 

A = IF VOU ARE OVERWEIGHT BY 58 POUNDS OR HORE 
E = OVER BY 38-59 POUNDS. 
G = OVER BY 18-39 POUNDS. 
I = NOT OVERWEIGHT. 
CHOOSE ONE OF THE LETTERS ABOVE? I 



+++CKECKUPS+-H 

IF YOU ARE A HALE OVER 49 DO YOU HAVE AN ANNUAL CHECKUP' 
K = VES. 

I = NO, OR NOT A HALE OVER 48 YEARS OLD. 
CHOOSE ONE OF THE LETTERS ABOVE? K_ 



• els ■ 



IF YOU ARE A WOHAN DO VOU SEE A GYNECOLOGIST ONCE A YEAR? 
K = YES. 

I = NO, OR NOT A MOHAN. 
CHOOSE ONE OF THE LETTERS ABOVE? I. 




■ els ■ 
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246 Z=72 

258 A*=*ABCDEHGHIJKLFND" 

266 GOTO 1478 

279 R5=R5*i 

288 IF R5>21 THEN 1696 

298 DATA "+++SEX+++" 

388 DATA "ARE VOU HALE OR FEMALE?" 

218 DATA "H = BALE " 

228 DATA " F = FEMALE " 

228 DATA 2, "NF" 

248 DATA "+++LIFE STYLE+++" 

258 DATA "WHERE DO VOU LIVE?' 

268 DATA "G = IF VOU LIVE IK AH URBAN AREA WITH A POPULATION OVER 2 MIL " 

378 DATA "K = IF VOU LIVE IH A TOWN UNDER 18,888 OR ON A FARM " 

288 DATA ' I = NEITHER" 

298 DATA 2, "GKI" 

488 DATA "HON DO VOU WORK?" 

418 DATA "« = IF YOU HORK BEHIND A DESK. " 

428 DATA "L = IF VOIR HORK REQUIRES HEAW PHYSICAL LABOR" 

428 DATA « I = NONE OF THE ABOVE ■ 

448 DATA 2, "ML1" 

450 DATA "HOU LONG DO VOU EXERCISE STRENUOUSLY, " 

460 DATA "(TENNIS, RUNNING, SNIHMING, ETC. >?" 

478 DATA "F = FIVE TINES A WEEK FOR AT LEAST A HALF HOUR " 

480 DATA "K = JUST TWO OR THREE TIMES A MEEK. " 

498 DATA ° I = DO NOT EXERCISE IH THIS FASHION. * 

509 DATA 2, "FKI" 

518 DATA "MHO DO VOU LIVE HITH?" 

528 DATA "N = IF VOU LIVE WITH A SPOUSE FRIEND, OR IN A FAMILY. " 

538 DATA "H = IF VOU'VE LIVED aOHE FOR 1-18 VEARS SINCE AGE 25. " 

548 DATA "G = FOR 11-28 VEARS. " 

558 DATA "M = FOR 21-28 VEARS. " 

568 DATA "E = FOR 21-48 VEARS. " 

578 DATA " D = MORE THAN 48 VEARS. " 

588 DATA 6, "NHGHED" 

598 DATA "wPSYCHE+w" 

688 DATA "DO VOU SLEEP HORE THAN 18 HOURS A NIGHT?" 

618 DATA "I = HO. " 

628 DATA " E = VES. ■ 

630 DATA 2, "IE" 

646 DATA "+++MENTAL STATE+++" 

658 DATA "N = IF VOU ARE INTENSE, AGGRESSIVE OR EASILV ANGERED. " 

668 DATA "L = IF VOU ARE EASV GOING, RELAXED, OR A FOLLOWER. " 

678 DATA " I = NEITHER" 

688 DATA 2, "HI" 

698 DATA "++4H0H VOU FKL+++" 

788 DATA "ARE VOU HAPPV OR UNHAPPV?" 

718 DATA "J = HAPPV. " 

728 DATA "G = UNHAPPV. " 

738 DATA " I = NEITHER" 

748 DATA 2, "JGI" 

758 DATA "+++FACTORS+++" 

768 DATA "HAVE VOU HAD A SPEEDING TICKET IH THE LAST VEAR?" 

778 DATA "H = VES. " 

788 DATA'" I = NO. " 

790 DATA 2, "HI" 

888 DATA "+++INCOME+++" 

318 DATA "DB VOU EARN HORE THAN $58,888 A YEAR?" 

828 DATA "G = YES. " 

820 DATA " I = NO. " 

848 DATA 2, "GI" 

858 DATA "+++5CHB0LIHG+++" 

866 DATA "J = IF VOU HAVE FINISHED COLLEGE " 

878 DATA "L = IF VOU HAVE FINISHED COLLEGE HITH A GRADUATE" 

888 DATA "OR PROFESSIONAL DEGREE " 

898 DATA " I = NOTHING LISTED. " 

988DATA2,"JLI" 

918 DATA "+++AGE+++" 

928 DATA "ARE VOU 65 OR OLDER AND STILL WORKING?" 

928 DATA "L = VES. " 

948 DATA " I = NO" 

958 DATA 2, "LP 

968 DATA "+++HEREDITV+++" 

978 DATA "K = IF ANV GRANDPARENTS LIVED TO 85 VEARS OLD. " 

988 DATA "0 = IF ALL FOUR GRANDPARENTS LIVED TO BE 88 VEARS OLD. ' 

998 DATA " I = NO GRANDPARENTS 8UBLIFV IN THE ABOVE " 

1886 DATA 3, "KOI" 

1018 DATA "HAS ANY PARENT DIED OF A STROKE OR HEART ATTACK" 

1026 DATA "BEFORE THE AGE 8F 58?" 

1838 DATA "E = VES. " 

1040 DATA " I = NO. " 



1858 DATA 2, "EI" 

I860 DATA "+++FAH1LY DISEASES+++" 

1078 DATA "ANV PARENT, BROTHER, OR SISTER UNDER 58 HAS (OR HAD)" 

1880 DATA "CANCER, A HEART CONDITION, OR DIABETES SINCE CHILDHOOD?" 

1698 DATA "N = VES" 

1188 DATA " I = NO" 

1118 DATA 2, "MI" 

1128 DATA "+++HEALTH++*" 

1126 DATA "HOH NUCH DO VOU SHOKE?" 

1148 DATA "A = IF VOU SMOKE MORE THAN TWO PACKS A DAV. ' 

1150 DATA "C = ONE TO TWO PACKS A DAV. " 

1168 DATA "M = ONE HALF TO ONE PACK A DAV. " 

1178 DATA " I = DON'T SMOKE. " 

1188 DATA 4, "ACMI" 

1198 DATA "+++DRINKING+++" 

1208 DATA "DO VOU DRINK THE EQUIVALENT OF A" 

1218 DATA "QUARTER BOTTLE OF ALCOHOLIC BEVERAGE A DAV?" 

1228 DATA "H = VES" 

1238 DATA " I = HO" 

1248 DATA 2, "HI" 

1256 DATA "++4NEIGHTt++» 

1268 DATA "A = IF VOU ARE OVERWEIGHT BV 50 POUNDS OR MORE " 

1270 DATA "E = OVER BV 28-58 POUNDS. " 

1280 DATA "G = OVER BV 18-38 POUNDS. " 

1298 DATA " I = NOT OVERWEIGHT. " 

1288 DATA 4, "AEGI" 

1316 DATA "+++CHECKUPS+++" 

1328 DATA "IF VOU ARE A MALE OVER 46 DO VOU HAVE AN ANNUAL CHECKUP^" 

1328 DATA "K = VES. * 

1240 DATA " I = NO, OR NOT A MALE OVER 48 VEARS OLD. ■ 

1258 DATA 2, "KI" 

1266 DATA "IF VOU ARE A HOMAN DO VOU SEE A GYNECOLOGIST ONCE A VEAR?" 

1370 DATA "K = VES. " 

1388 DATA " I = HO, OR NOT A WOMAN. " 

1398 DATA 2, "KI" 

1486 DATA "+++CURRENT BGE+++" 

1418 DATA "K = IF VOU ARE BETWEEN 20 AND 48 VEARS OLD. " 

1428 DATA "L = BETNEEN 48 AND 58. " 

1420 DATA "F = BETWEEN 56 AND 70. " 

1446 DATA "N = OVER 78. " 

1458 DATA " I = UNDER 38. " 

1466DATA5,"KLFNr 

1478 OS 

I486 PRINT 256, "i 

1496 FOR 0=1 TO 7 



1518 
1526 
1538 
1546 
1558 
1566 
1576 
1588 
1590 
1688 
1610 
1628 
1638 
1640 
1656 
1668 
1670 
1688 
1698 
1786 
1716 
1728 
1728 
1748 
1756 
1768 
1770 
1780 
1798 
1888 
1818 
1826 
1830 
1840 



IF LEFTttM, 1)=" " THEN 1548 

PRINT " ";Q* 

NEXTQ 

PRINT " ";QS 

READ C, U 

PRINT "CHOOSE ONE OF THE LETTERS ABOVE"; 

INPUT « 

FOR C2=l TO C 

IF LEFT*(GI, i)=HID$(C$, C2, 1) THEN 1620 

NEXTC2 

GOTO 1568 

FOR H=i TO 15 

IF LECTKB, l)=MID*(fl$, N, 1) THEN 1658 

NEXTN 

H=N-9 

Z=Z+M 

CLS 

GOTO 278 

PRINT 256, "VOU ARE EXPECTED TO LIVE TO THE AGE OF"; 

FOR 29=1 TO 1888 

NEXT 

PRINT 2; 

FOR 29=1 TO 588 

NEXT 

PRINTYEARS. " 

IF 2<68 THEN 1838 

FOR V=60 TO Z STEP 5 

READ M, F* 

NEXT V 

DATA "26X", "15X", "26T, 

DATA "752", "52;;", "872", 

PRINT "OUTLIVING ";N*;" 



'20;i","48X","30Z","6)ui","29r 
•W.", "36X - , "88Z", "99. ST.", "99. 62" 
OF THE MEN AND ";FJ; " OF THE WOKEN " 



INPUT "WOULD VOU LIKE ANOTHER ESTIMATE"; RESPS 
IF LEFT$(RESP», 1)="V" THEN RESTORE: GOTO 238 
END 
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Lisa us 



This program prints Lissajous 
patterns. You enter relative X and Y 
frequencies and the Y phase of pi. The 
relative frequencies for X and Y must be 
a positive number one or greater. The 
phase may be between zero and any 
number you want. 

We have experimented with a wide 
range of relative frequencies and 
phases and come up with some 
startlingiy beautiful patterns. Someare 
starkly plain while others are amazing- 
ly complex. If the frequencies go much 
beyond nine or ten, the patterns 
generally become jumbled and difficult 
to decipher particularly if they are 
being printed out on the normal hard 
copy terminal. Nevertheless, it's fun to 
experiment. 

This program was originally written 
by Larry Ruane and modified by 
several other people along the line. It 
appeared first in Creative Computing, 
Sep/Oct 1977. 




LISSAJOUS 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



- els • 



RaftTIVE FREGUENCV FOR X? 3 
RELATIVE FREQUENCY FOR V? 6 
V PHASE, MULTIPLE OF PI? 6_ 

els 



els • 



RELATIVE FREQUENCY FOR X? 2 
RELATIVE FRESUENCV FOR V? J 
V PHASE, MULTIPLE OF PI? 8- 

els — 



* * 



* * 



• els ■ 
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ols 

RaflTIVE FREQUENCE FOR X? 5 
RaRTIVE FREQUENCY FOR Y? 7 
V PHASE, MULTIPLE OF PI? 0_ 
— els 



■ els ■ 



RaflTIVE FREOUENCV FOR X? 1 
RELATIVE FREQUENCY FOR V? 1 
V PHASE, MULTIPLE OF PI? 5- 
els — 



■ els ■ 
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10 CLS 

20 PRINT e 412, "LISSAJOUS" 

38 PRINT 

40 PRINT TAB<7> "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

50 DEFDBL P 

60 DIM Y<10> 

70 P=3. 14159265 

80 PRINT g 768, "RELATIVE FREOUENCV FOR X"; 

SB INPUT Fl 

100 IF INTCF1XF1 THEN 80 
110 IF FK1 THEN 80 

120 F=F1 

130 F1=2*P*F1 

140 PRINT»RELATIVE FREQUENCY FOR Y"; 

158 INPUT F2 

160 IF INTCF2XF2 THEN 140 

170 IF F2<1 THEN 140 

ISO PRINT"Y PHASE, MULTIPLE OF PI"; 

190 INPUT P2 

200 P2=P*P2 

210 PRINT"OUTPUT TO <P)RINTER OR <S)CREEN ?"; CHR*<95>; 

228 A$=INKEY$ 

23B IF fi*="" THEN 220 

240 CLS 

250 F2=2*P*F2 

268 FOR Xl=-18 TO 18 

270 X=X1/18 

280 GOSUB 610 

290 T1=X 

308 T2=P-X 

310 FOR 1=0 TO F-l 

320 T3=<T1+2*I*PVF1 

338 T4=(T2+2*I*PVF1 

340 Y1=30*SIN<F2*T3+P2) 

350 Y2=30*SIN<F2*T4+P2) 

360 Yl=SGN<Yl)*INT<ABSm>+ 5) 

370 Y2=SGN(Y2)*INT(RBS<Y2H 5) 

380 Y<2*D=Y1 

390 Y<2*I+1>=Y2 

400 NEXT I 

410 FOR J=l TO 2*F-i 

420 I=J-1 

438 T=Y«> 

440 IF T>=Y<DTHEN 480 

450 YCI+1)=Y<I> 

460 1=1-1 

478 IF I>=0 THEN 440 

488 Y(I+1)=T 

490 NEXT J 

508 FOR 1=0 TO 2*F-1 

518 IF 1=0 THEN 536 

520 IF Y(I)=Y<I-1)THEN 540 

530 IF H«>"P" THEN SET(64+Y(D*2, Xl+18) ELSE LPRINT TABG0+Y(I»,- »*"; 

540 NEXT I 

550 IF A*="P" THEN LPRINT" » 

560 NEXT XI 

570 PRINT <? 960, "DO YOU WANT ANOTHER PICTURE ?"; 

588 A*=INKEY* 

590 IF A$="N" THEN END 

608 IF A*="Y" THEN CLS: CLEAR: GOTO 50 ELSE 580 

610 IF ABSCXX. 1 THEN 660 

628 X=X/C SQR<1+X)+SQR(1-X>) 

630 GOSUB 610 

640 X=2*X 

650 RETURN 

660 X=X+Xt3/6+ 075*Xt5+X[7/22. 4 

678 RETURN 

688 END 



We've all seen examples of magic 
squares. The most common one is a 
3x3 square using the integers 1 
through 9 in which the sum of each 
row, column and diagonal totals 15. 

In the computer game of "Magic 
Square" the goal is to form a sum 15 
magic square with you and the 
computer alternately filling in the 
integers between 1 and 9. If one 
player stumbles and puts in a num- 
ber which causes the sum of a row, 
column, or diagonal to be something 
otherthan 15, he loses. 

In forming a sum 15 magic 
square, there is only one fundamen- 
tal solution. However, it can be 
rotated and reversed to form 8 
solutions. Because the computer 
does not play a particularly creative 
game, all eight solutions cannot be 
obtained. How many can be? 

Can you modify the computer 
program to play a more interesting 
game which permits all eight solu- 
tions? (Hint: Try randomizing the 
move position and number genera- 
tors in Statements 710 and 720). 

This program was created by 
David Ahl and originally appeared in 
Creative Computing, Jan/Feb 1975. 

This program uses TRS-80 graph- 
ics which do not reproduce well on a 
line printer. Therefore the sample run 
does not give a true representation of 
the program. The only way this 
program can be truly appreciated is 
to run it. 



MAGIC SQUARE 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



■ els • 



DO VOU NEED INSTRUCTIONS? VES. 
els — 

PLAVERS RLTERNATLEY CHOOSE AN INTEGER CI TO 9) 
THAT HAS NOT BEEN PREVIOUSLY USED AND PLACE IT 
IN ANY UNFILLED CELL OF A TIC-TAC-TOE BOARD. 
THE GOAL IS TO MAKE THE SUM OF EACH ROW, COLUMN, 
AND DIAGONAL EQUAL TO 15. 

THAT PLAYER LOSES WHO FIRST MAKES THE SUM OF THE 
THREE FIGURES IN ANY ROW, COLUMN, OR DIAGONAL 
SOMETHING OTHER THAN 15. 

ft TIE GAME DRAWS A MAGIC SQUARE! ! 

PRESS ANY KEY TO CONTINUE 
els 



THE COMPUTER WILL ASK YOU ON EACH MOVE WHICH 
CELL YOU WISH TO OCCUPY, AND THE NUMBER YOU WISH 
LIKE 3 AND 7 IF YOU WISHED TO PUT A 7 IN CELL 3. 

HERE ARE THE CELL NUMBERS. 



1-2-3 
4-5-6 
7-8-9 






PRESS ANY KEY TO CONTINUE 








1.2 .3 


CELL NUMBER - 1 




4 5 6 


NUMBER - 1 




7 8 9 




H" 








1 2 ... 3 


CELL NUMBER - 5 






4 5 6 


NUMBER - 9 


7 8 9 


I MOVE TO CELL 2 


WITH A 2 




1 2 ... . 3 


CELL NUMBER - 3 




4 .... 5 ... 6 








7 8 9 




SORRY, YOU LOSE — NICE TRY. 


PLAY AGAIN? YES_ 
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.1 .. .2 2 



CaiNUlKR- 



.5 6 



CELLHUKR-9 



NUWER- 



.8 .9 



H1KR-9 



.8 9 



! HOVE TO COL 2 KITH R 2 



PLRV HGfilH? . 



I LOSE — VOU KIN!! 



• els ■ 



■ els 



10 CLEAR 508. CLS. PRINT0410, "MAGIC SQUARE" 

28 PRINT: PRINT TAB<7> "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, 

20 PRINT0960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; I* 

40 IF LEFTSCIS, 1)="N" THEN 28B ELSE CLS: PRINT TAB<26> "MAGIC SQUARE" - 

50 PRINT » PLAVERS ALTERNATLEV CHOOSE AN INTEGER <1 TO 9)« 

60 PRINT "THAT HAS NOT BEEN PREVIOUSLV USED AND PLACE IT" 

70 PRINT "IN ANV UNFILLED CELL OF A TIC-TAC-TOE BOARD. " 

80 PRINT "THE GOAL IS TO HAKE THE SUM OF EACH ROW, COLUMN, " 

90 PRINT "AND DIAGONAL EQUAL TO 15. " 

100 PRINT " THAT PLAVER LOSES MHO FIRST MAKES THE SUM OF THE" 

110 PRINT "THREE FIGURES IN ANV ROW, COLUMN, OR DIAGONAL" 

120 PRINT "SOMETHING OTHER THAN 15. " 

130 PRINT 

140 PRINT "A TIE GAME DRAWS A MAGIC SQUARE!!" 

150 PRINT§979, "PRESS ANV KEV TO CONTINUE"; 

160 IF INKEV*=»» THEN 160 ELSE PRINT0128, CHRSOl); 

170 PRINT "THE COMPUTER WILL ASK VOU ON EACH MOVE WHICH" 

180 PRINT "CELL VOU WISH TO OCCUPV, AND THE NUMBER VOU WISH" 

190 PRINT "LIKE 3 AND 7 IF VOU WISHED TO PUT A 7 IN CELL 3 " 

280 PRINT 

210 PRINT "HERE ARE THE CELL NUMBERS:" 

220 PRINT 

220 PRINT "1 - 2 - 3" 

240 PRINT "4 - 5 - 6" 

258 PRINT "7 - 8 - 9" 

268 PRINT6979, "PRESS ANV KEV TO CONTINUE"; 

270 IF INKEV*="" THEN 270 ELSE CLS 

286 CLS: B$=CHR*<26>+STRING*<5, 8) ■ RESTORE 

298 FOR 1=42 TO 127' SETCI,1>: SET(I,13>- SETCL25): SET<I,37>- NEXT 

300 FOR 1=1 TO 37- SETC42,!): SET<43,D: SETC70,D- SET<71,I) 

310 SET<98,I): SEK99,I>: SEK126, 1 > : SETC127, 1)- NEXT 

320 PRINTO86, "1"; PRINT01B8, "2"; PRINTO114, "3"; 

330 PRINT6342,' "4"; PRINT8356, "5"; PRINTC370, "6"; 

340 PRINT8598, "7"; : PRINT0612, "8"; PRINTC626, "9"; 

350 DATA 32, 176, 188, 32, 32, 32, 32, 191, 32, 32, 32, 140, 143, 148, 32 

360 DATA 176, 140, 140, 140, 176, 176, 140, 140, 140, 131, 143, 140, 140, 140, 140 

370 DATA 176, 140, 140, 140, 176, 32, 32, 140, 140, 179, 131, 140, 140, 140, 131 

380 DATA 32, 32, 176, 188, 32, 188, 179, 176, 191, 176, 32, 32, 32, 143, 32 

390 DATA 188, 140, 140, 140, 140, 131, 131, 131, 131, 188, 131, 148, 140, 140, 131 

480 DATA 32, 176, 140, 140, 32, 191, 140, 140, 140, 176, 131, 140, 140, 140, 131 

418 DATA 140, 140, 140, 140, 188, 32, 176, 140, 131, 32, 143, 32, 32, 32, 32 

420 DATA 176, 140, 140, 140, 176, 179, 140, 148, 140, 179, 131, 140, 140, 140, 131 

430 DATA 176, 148, 140, 140, 176, 131, 140, 140, 140, 191, 32, 140, 140, 131, 32 

440 FOR CH=1 TO 9: FOR RO=4 TO 3: FOR CO=l TO 5 

450 READ PO: B*<CH)=A«CH>+CHR*(PO> 

460 NEXT CO: A$(CH)=Af(CH)+B«: NEXT RO 

470 A*CCH)=LEFT«A*<CH>,27>: NEXT CH 

480 FOR 1=1 TO 9: A<I>=0 

490 B<D=0 

508 NEXT I 

510 M=0:W=0 

520 PRINT0521, 

530 A$=INKEV$: 

548 PRINT8512, 

550 A*=INKEV*: 



" "; PRINT9256, "CELL NUMBER - 

IF A*="" THEN 530 ELSE I=VAL(A*> 

"NUMBER - "; CHR$<8>; CHR$(8); 

IF H*="" THEN 558 ELSE N=VAL<A*>- PRINT M; 



; CHR*(8>; 
PRINT I; 



CHR*<8>; 



570 IF A<I>=0 AND B(N>=0 THEN 610 

NJ» 580 PRINT8768, "ILLEGAL MOVE. .. AGAIN"; 

590 FOR A=l TO 1000: NEXT: PRINT0768, STRING«20, 32); 
PRINT 600 GOTO 520 

610 A<I)=N: BOO=l: M=M+1 

628 GOSUB 1098 

638 GOSUB 930 

640 IF W=8 THEN 670 

650 PRINTC853, "SORRV, VOU LOSE - NICE TRV " 

660 GOTO 870 

670 IF M<5 THEN 710 

688 PRINTC853, "A TIE GAME" 

690 PRINT8917, "BUT WE'VE DRAWN A MAGIC SQUARE '» 

708 GOTO 888 

710 FOR Q=l TO 9 

720 IF A<Q» THEN 800 

738 FOR R=l TO 9 

748 IF B<R)>0 THEN 798 

750 A<Q)=R 

760 GOSUB 930 

770 IF W=0 THEN 820 

780 Q1=Q: R1=R: W=0: A<Q>=8 

790 NEXT R 

800 NEXT Q 

810~W=1: R=R1: Q=Q1: A<Q)=R 

820 B<R>=1 

838 PRINT8896, 

840 GOSUB 1898 

850 IF W=0 THEN 520 

868 PRINT§853, "I LOSE — VOU WIN"" 

870 PRINT 

880 FOR 1=1 TO 15 

890 PRINT CHR«7>; 

980 NEXT I 

910 INPUT "PLRV AGAIN"; ANS* 

920 IF LEFT$CANS$,1)="V" THEN 280 aSE CLS- END 

938 FOR X=l TO 8 

940 ON X GOTO 950, 960, 970, 980, 936, mm, 1010, 1020 

950 J=l: K=2: L=3: GOTO 1030 

968 K=4: L=7- GOTO 1038 

978 K=5: L=9: GOTO 1038 

980 J=4: L=6: GOTO 1030 

990 J=2: L=8: GOTO 1030 

1000 J=3: L=7: GOTO 1030 

1010 K=6: L=9: GOTO 1030 



"I MOVE TO CELL"; Q; "WITH A"; R; 



560 IF Kl OR I>9 OR N<1 OR N>9 THEN 580 



1020 J=7- K=8 

1030 IF H<J)=0 OR A<K)=0 OR A(L>=0 THEN 1050 

1040 IF A(J)+A(K)+A<L)015 THEN 1070 

1050 NEXT X 

1068 GOTO 1080 

1070 W=l 

18S0 RETURN 

1090 PRINT890, A«A<1»; 

1100 PRINT8346, A«A<4»; 

1110 PRINT0602, A*<A<7»; 

1120 RETURN 



PRINT8104, A$(A<2»; PRINTS118, A*<A<3)); 
PRINTC36B, A*<A<5»;, PRINT8374, A$CA<6»; 
PRINT8616, A*<A<8»; : PRINT§620, A$(A(9)>; 
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an ins Rabbit 



180 



In this game you are in a pit with a 
man-eating rabbit. The center of the 
pit, appropriately enough, is at 0,0, and 
it has a radius of ten. On each move, 
you can move in any one of eight 
different angles, 0, 45, 90, 135 ... etc. 
Unlike you, the rabbit can take more 
than one hop on a move. The object of 
the game is to avoid the rabbit for ten 
moves. If you do this successfully you'll 
be released and set free. 

We're not sure what race of people 
on what planet dreamed up this 
diabolical sport, but we've found that 
it's extremely difficult to get away from 
the rabbit in more than about one out of 
ten games. You may, therefore, want to 
improve the odds somewhat by limiting 
the number of moves the rabbit can 
make on each turn to one or two. You'll 
find it interesting to graph the results of 
the program as you go along. To do 
this, you'll need a piece of quadrille 
paper at least 21 squares in each 
direction. Draw a circle with your 
compass ten units in diameter and then 
number the grid from minus ten to plus 
ten along the X and Y axes. Plot your 
moves as you go along and you'll see 
some interesting patterns develop. 

This program was conceived and 
written by Philip Stanway. 
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MAN-EATING RABBIT 
C0PVRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 

DO YOU NEED INSTRUCTIONS? YES. 

els 



MAN-EATING RABBIT 

YOU ARE IN A PIT WITH A MAN-EATING RABBIT. 

THE CENTER IS <8, 6) AND IT HAS A RADIUS OF 10. 

IF V0U CAN AVOID THE RABBIT FOR 10 MOVES YOU WILL BE 

RELEASED. YOU AND THE RABBIT CAN MOVE ONLY 1 SPACE EACH. 

HOWEVER, THE RABBIT CAN DO MULTIPLE JUMPS. 

YOU CAN TRAVEL AT THESE ANGLES: 
8, 45, 90, 125, 180, 225, 270, 315, 368 



WHERE WOULD YOU LIKE TO BE DROPPED? 2, 3- 
— — els 



RABBIT AT (-1 ,-9 ) HUMAN AT < 2 
AT WHAT ANGLE WILL YOU RUN ? 270. 



3 ) DISTANCE 12. 3692 



TURN # 1 

RUNNING HUMAN, YOU ARE NOW AT ( 2 , 2 > 

THE RABBIT IS POUNCING AT ANGLE. .... 90 

THE RABBIT IS POUNCING AT ANGLE 90 

RABBIT RT (-1 , -7 ) HUMAN AT ( 2 , 2 ) DISTANCE 9. 48683 
AT WHAT ANGLE WILL YOU RUN ' 8. 



els - 



TURN # 2 

RUNNING HUMAN, YOU ARE NOW AT ( 2 , 2 ) 

THE RABBIT IS POUNCING AT ANGLE 45 

THE RABBIT IS POUNCING AT ANGLE. .90 

RABBIT AT ( , -5 > HUMAN AT < 3 - 2 > DISTANCE 7. 61577 

AT WHAT ANGLE WILL YOU RUN ? 215- 



■ cis • 



TURN # 3 

RUNNING HUMAN, YOU ARE NOW AT < 4 , 1 ) 

THE RABBIT IS POUNCING AT ANGLE 45 

THE RABBIT IS POUNCING AT ANGLE 45 

THE RABBIT IS POUNCING AT ANGLE 45 

RABBIT AT ( 2 , -2 ) HUMAN AT ( 4 , 1 ) DISTANCE 2. 16228 
AT WHAT ANGLE WILL YOU RUN ? 215. 

_ els 



0,360 



TURN # 4 

RUNNING HUMAN, YOU ARE NOW AT 

THE RABBIT IS POUNCING AT ANGLE. 
RABBIT AT < 4 ,-1 ) HUMAN AT < 5 , 
AT WHAT ANGLE WILL YOU RUN ? 188. 



(5,0) 
45 
) DISTANCE 1. 41421 



- els 



TURN 8 5 

RUNNING HUMAN, YOU ARE NOW AT < 4 

THE RABBIT IS POUNCING AT ANGLE 90 

RABBIT AT ( 4 , ) 

*** CRUNCH *** WELL, R. I. P. 

TRY AGAIN? N0_ 
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IB CLS: PRINTO408, "MAN-EATING RABBIT" 

20 PRINT: PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING HORRISTOWN, 

38 PRINT§960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; I* 

48 IF LEFT«I*,1)="N" THEN CLS: GOTO 130 

50 CLS: PRINT TAB(25) "MAN-EATING RABBIT"- PRINT 

68 PRINT "VOU ARE IN A PIT WITH A MAN-EATING RABBIT. " 

70 PRINT "THE CENTER IS (6, 8) AND IT HAS A RADIUS OF 10 " 

80 PRINT "IF VOU CAN AVOID THE RABBIT FOR 10 MOVES VOU WILL BE" 

90 PRINT "RELEASED. VOU AND THE RABBIT CAN MOVE ONLV 1 SPACE EACH " 

100 PRINT "HOWEVER, THE RABBIT CAN DO MULTIPLE JUMPS. ": PRINT 

110 PRINT "VOU CAN TRAVEL AT THESE ANGLES:" 

120 PRINT "0, 45, 90, 135, 180, 225, 270, 315, 360" 

130 X=INT<21*RND<0)-10) 

140 V=INT(21*RND<8)-10) 

158 D=SQR(fiBS«X-Xl>[2+<V-Vl>[2» 

160 IF D>10 THEN 130 

170 PRINT 

180 PRINT 

190 PRINT "WHERE WOULD VOU LIKE TO BE DROPPED"; 

200 INPUT XI, VI: CLS 

210 IF SQR<ABS«1[2+V1C2))>10 THEN 190 

220 IF XOX1 THEN 260 

238 IF VOV1 THEN 260 

240 PRINT "*****SQUISH*****» 

250 PRINT "THE RABBIT IS DEAD! VOU ARE SET FREE!"- GOTO 830 

260 FOR G=l TO 10 

270 D=SQR<ABS< CX-XDC 2KV-V1H 2) ) 

2S0 PRINT "RABBIT AT <"; X; ", "; V; ") "; 

298 IF D=0 THEN 820 

380 PRINT"HUMAN AT <"; XI; ", "; VI; ") DISTANCE"; D 

310 PRINT "AT WHAT ANGLE WILL VOU RUN "; 

320 INPUT A: CLS: PRINT "TURN #";G 

330 IF A/450INTCH/45) THEN 310 

340 PRINT "RUNNING ... "; Pl=l 

350 11=1: IF HBS(aNT<A/10)*18)-A)O5 THEN 370 

360 M=SQR<2) 

370 X2=<M*C0S<fl*<3. 14159/180))) 

388 V2=(H*SIN(A*a. 14159/180))) 

398 IF SQR(«X1+X2)I2+(V1+V2)[2))<=10 THEN 420 

488 PRINT "VOU CAN'T GO INTO A WALL"" 

410 GOTO 310 

420 X1=INT(X1*1000)/1000+X2 

430 V1=INT(V1*1000)/1000+V2 



NJ' 



440 X1=INT<X1+ 5) 

450 V1=INT<V1+. 5) 

468 PRINT "HUMAN, VOU ARE NOW AT ( "; XI; ", "; VI; " ) " 

470 IF XOX1 THEN 518 

4S0 IF VOV1 THEN 510 

490 PRINT "VOU RAN RIGHT INTO THE RABBIT!." 1 

580 GOTO 820 

510 PRINT "THE RABBIT IS POUNCING AT ANGLE "; :P1=P1+1 

520 X2=X1-X: V2=V1-V 

538 IF X2=0 THEN 710 

540 IF V2=8 THEN 748 

550 B=INT<ATN<ABS(<V2/X2)))/(3. 14159/180)) 

560 ON SGN(X2)+2 GOTO 580,60,570 

570 ON SGN(V2)+2 GOTO 610, 68, 620 

580 ON SGN<V2)+2 GOTO 680, 60, 590 

590 B=180-B: GOTO 628 

600 B=B+180: GOTO 570 

618 B=360-B 

620 B=INT<B/45+ 5)*45: PRINT B 

638 M=l 

640 IF AB5«INT<B/10)*10)-B)O5 THEN 660 

650 M=l 5 

660 X2=<M*C0S<B*(3. 14159/180))) 

678 V2=(M*SIN<B*(3. 14159/180))) 

680 X=INT<X+X2+ 5) 

690 V=INKV+V2+. 5) 

780 GOTO 778 

710 IF V2<0 THEN 730 

720 B=90: GOTO 620 

730 B=270: GOTO 620 

740 IF X2<0 THEN 760 

750 B=l: GOTO 620 

76S B=180: GOTO 628 

778 IF SGR«X-Xl)i:2-KV-Vl)t2)=0 THEN 810 

780 P=INT<P1*RND(0)+1) 

798 IF POl THEN 810 

880 GOTO 510 

S10 NEXT G: PRINT: PRINT "VOU ARE RELEASED 1 "- PRINT: GOTO 830 

826 PRINT: PRINT "*** CRUNCH *** WELL, R. I. P. "■ PRINT 

830 INPUT "TRV AGAIN"; ANS* 

840 IF LEFT$<ANS*, 1)="V" THEN 130 

850 END 
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Maneuvers 



In this game you are maneuvering in 
a corner of space shaped, interestingly 
enough, like a cube. The dimensions of 
the cube are ten parsecs on a side. The 
bases are at the corners as shown on 
the diagram with thesample run. There 
are four star bases located at corners of 
the cube which you must visit in order, 
A, B, C, and D, to deliver a message to 
them. While it is a fairly simple matter to 
get to Base A, the other bases 
sometimes prove somewhat elusive. 
One possibility would be to use a 
second computer to compute your 
course, or even compute the course 
before you start the game and then 
feed it in. Would this be cheating? I 
don't think so because the learning 
value in writing a program to compute 
your course will teach you more about 
the game than probably fifty plays of it. 
On the other hand, which is more fun? 
That's for you to find out. 

This program was written by John C. 
Russ. 



MANEUVERS 
COPYRIGHT 1979 CREATIVE COHPUTING HORRISTOWH, HJ 



00 YOU ICED INSTRUCTIONS? VES. 



YOU FIRE THE PILOT OF THE ENTERPRISE'S SPACE SHUTTLE. 
YOU MIST DRIVER A ESSRGE TO EACH OF FOUR STARBfiSES, 
IN THE LEAST TOTAL TIME. YOUR INITIAL POSITION IS AT 
ONE CORNER OF R CUBE, TEN PARSECS ON A SIDE THE BASES 
RRE AT THE CORNERS SHOWN BELOW, HARKED A, B, C, AND D IN 
THE ORDER IN WHICH YOU MUST VISIT THEH 

PRESS ANY KEY TO CONTINUE 
els 



t 

START HERE 



PRESS ANY KB' TO CONTINUE 
els 



FOR YOUR SUBSPACE RADIO TO DELIVER THE NESSAGE, YOU 
BUST PASS WITHIN ONE PARSEC OF EACH STRRBASE YOUR 
PROPULSION SYSTEM IS ALWAYS ON, GIVING YOU A CONSTANT 
ACCELERATION OF 0. 2 PARSECS PER STARDATE PER STARDATE 
YOU CAN ONLY CONTROL THE ORIENTATION OF YOUR SHIP, TO 
DIRECT YOUR THRUST AND ACCELERATION. YOU SPECIFY YOUR 
SHIP'S ATTITUDE BY THE ANGLE THETfi (THE CLOCKWISE ANGLE 
IN THE X-Y PLANE STARTING AT THE X-AXIS) AND THE ANGLE 
PSI (THE ANGLE OF INCLINATION ABOVE THE X-Y PLANE). 
YOU INPUT NEW ANGLES EACH STARDATE 

PRESS ANY KEY TO CONTINUE 



afiPSED POSITION COORDINATE 




ORIENTATION 


TIKE 


X 


Y 


7 


THETR.PSI 


e 


6.888 


6. 888 


6.886 


'8,8 


1 


0.188 


8.866 


8 


668 


'8,8 





6.468 


6.888 


8 


668 


'6,8 


3 


8.968 


6.866 


8 


668 


'6,8 


4 


1688 


8.866 


8 


688 


'8,6 


5 


2.588 


8.668 


8 


888 


'6,8 


6 


1688 


6.888 


8 


868 


'8,6 


7 


4.988 


6.888 


6 


888 


' 188,6 


8 


6.268 


8.886 


8 


668 


'188,6 


9 


7.388 


6.888 


6 


888 


'186,8 


10 


8.268 


8.888 


8 


888 


' 186,8. 








.sir. 




ELAPSED POSITION COORDINATES. 


0R1ENTATI0H 


TINE 


X 


Y 


z 


THETfi, PSI 


11 


8.986 


8.888 


6.888 


' 188,6 


12 


9.488 


8.688 


8.668 




MESSAGE DELIVERED TO BASE » 1 




AT TINE 12 






'188,8 


13 


9.788 


6.888 


6.888 


'188,8 


14 


9.888 


8.886 


6.886 


' 38,98 


15 


9.868 


8.866 


6.166 


'96,98 


16 


9.886 


6.688 


8.486 


' 98 


yy 










1? 


9.888 


8.688 


8.966 


'96,45 


18 


9.888 


8.671 


1571 


'98,8 


19 


9.868 


8.312 


2 312 


' 96,6 


26 


9.888 


6.754 


r 


854 


' 96,278. 



18 CLS 

26 PRINT 8 411, "MANEUVERS" 

38 PRINT 

48 PRINT TAB(7)"C0PYRIGHT 1979 CfiEATIVE COHPUTING H0RRIST0UN, NJ" 

58 PRINT 9 968, "; 

66 INPUT-DO YOU ICED INSTRUCTIONS"; X* 

76 IF LEFT«Xt, 1)="N" THEN 538 

88 CLS 

96 PRINT 8 27, 'MANEUVERS' 

188 PRINT 

118 PRINTYOU APE THE PILOT OF THE ENTERPRISE'S SPACE SHUTTLE. " 

126 PRINTYOU BUST DELIVER A MESSAGE TO EACH OF FOUR STARBASES, " 

138 PRINT'IH THE LEAST TOTAL TIKE. YOUR INITIAL POSITION IS AT" 

148 PRINT'ONE CORNER OF A CUBE, TEH PARSECS ON A SIDE THE BASES" 

158 PRINT'RRE AT THE CORNERS SHOWN BELOW, HARKED A, B, C, AND D IN' 

168 PRINPTHE ORDER IN WHICH YOU BUST VISIT THEM. " 

178 GOSUB 1150 

186 FOR R=24 TO 82 

198 SET(A+24, 6) 

286 SEKA, 18) 

218 SEKfi+24, 38) 

228 SETO 42) 
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CHR«26>CHRK8)"[" CHR$(26)CHR»(8)"START HERE"; 



228 NEXT fi 

246 FOR B=6 TO 38 
256 SET(24, fi+12) 

268 SEK48, 0) 

278 5EK82, A+12) 

286 SET(186, ft) 

298 NEXT ft 

300 FOR fW TO 12 

318 SEK24+A*2, 18-ft) 

326 SET(82+R*2, 18-ft) 

338 SEK24+W2, 42-fl) 

348 SET(82+R*2, 42-ft) 

256 NEXT ft 

268 PRINT 8 988, 'ft"; 

270 PRINT g 425, "B"; 

288 PRINT 8 152, "C"; 

290 PRINT 8 181 "D"; 

480 PRINT 8 664, " 

418 GOSUB 1150 

420 PRINT'TOR VOUR SUBSPACE RfiDIO TO DELIVER THE MESSAGE, VOU" 

428 PRINPHUST PASS WITHIN ONE PARSEC OF EftCH STfiRBfiSE VOUR" 

448 PRIIfPPROPULSIOH SVSTEM IS ALHAVS ON, GIVING VOU ft CONSTANT" 

458 PRINT"fiCCELERflTION OF 8. 2 PARSECS PER STftRDflTE PER STfiRDHTE " 

466 PRINPVOU CAN OttV CONTROL THE ORIENTftTION OF VOUR SHIP, TO" 

478 PRINT'DIRECT VOUR THRUST AND ACCELERATION. VOU SPECIFV VOUR' 

488 PRINT-SHIP'S ATTITUDE BV THE ANGLE THETA (THE CLOCKHISE ANCLE" 

498 PRINT-IN THE X-V PLANE STARTING AT THE X-AXIS) AND THE ANGLE" 

568 PRINT'PSI (THE ANGLE OF INCLINATION ABOVE THE X-V PLANE) ■ 

518 PRINPVOU INPUT NEN ANGLES EACH STARDATE " 
528 60SUB 1158 

528 CLS 

548 PRINT I 192, "; 

550 CLEAR 

568 P=2. 14159/188 

578 M 

588 DIN T(4, 2), C(2) 

598 FOR X=l TO 4 

688 FOR V=L TO 2 

618 READ TCX, V) 

628 NEXT V 

628 NEXT X 

646 DATA 18, 8, 6, 16, 18, 18, 6, 8, 10, 8, 18, 18 

658 A=. 2 

668 8ME-83 

678 B2=iE-03 

686 GOSUB 788 

698 GOTO 800 

768 P1=PEEK(16416> 



718 P2=PEEK(16417) 

728 PRINT 8 8, "aftPSED POSITION COORDINATES: "; 

738 PRINT TBB<28); "ORIENTATION" 

740 PRINT" TINE X V Z"; 

756 PRINT TA8(39>; "THETA, PSI* 

768 PRINT" 

778 POKE 16416, PI 

788 POKE 16417, P2 

790 RETURN 

868 PRINT USING" HI ID. til tt.ili «.!« 

818 C(l)=X+K*VltA,'2*K*K*C0S(B2*P)*C0S(Bl*P) 

828 FOR K=8 TO 1 STEP. 2 

S28C(2)=V+K*V2tfl/2»K*K*C0S<B2*P)*SIH(Bl*P> 

848 C(3)=Z+K*V3+fi/2*K*K*SIN(82*P> 

850 D=0 

860 FOR L=i TO 2 

870 D=D+(TU, L)-C(L))*(T(J, L)-C(D) 

880 NEXT L 

890 IF SQR(D)>1 THEN 960 

908 PRINT 

910 PRINT'HESSAGE DELIVERED TO BASE «";J 

920 PRINT"AT TINE"; T0+IG TR8(28); 

928 IF J=4 THEN 1166 

948 J=J+1 

958 GOTO 976 

960 NEXT K 

976 x=xi 

988 V=V1 

998 Z=Z1 

1888 T0=T6+i 

1618 INPUT Bi, B2 

1020 X1=X+V1+IV2*C0S(B2*P)*C0S(B1»P> 

1028 V1=V+V2+A/2*C0S(B2*P)*SIH(B1»P) 

1040 Z1=Z+V2+B?2*5IH<B2*P) 

1050 Vl=Vl+A*C0S(B2*P)*C0S(Bi*P> 

I860 V2=V2+A*C0S(B2*P)*SIN(B1*P) 

1670 V2=V3+A*S1N(B2*P> 

1888 GOSUB 708 

1098 GOTO 888 

1168 PRINPGOOD JOB. DO VOU WANT TO" 

1118 PRINT'TRV TO IMPROVE VOUR TINE"; 

1128 INPUT X* 

1130 IF LEFT«X$, 1)=*V" THEN 530 

1140 END 

1150 PRINT 8 979, "PRESS ANV KEV TO CONTINUE"; 

1160 IF IHKEV* =" THEN 1160 

1178 PRINT 128, CHR«3i); 

1180 RETURN 



";TB, XL VI Hi 
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This is a fascinating, general- 
purpose, deductive logic game. It rolls 
Bagels, Mastermind, bulls and cows, et 
cetera, into one general deductive 
logic game. If you want to play Bagels, 
set the inputs to N,3,9 (N is the number 
of games you wish to play). If you want 
to play mastermind, set the inputs to 
N,4,6. Of course, many of the games 
that it plays are entirely new altogether 
such as N,7,4 or N,5,5. 

To make it into a really general- 
purpose game, you might want to put in 
a modification in the digit selection 
routine (statements 310-330) with a 



parameter that either allows or dis- 
allows duplicate digits. As it is right 
now, the game does allow duplicate 
digits so that, for example, it could 
select a three digit number such as 223 
or even 444. Another change you might 
want to add is in statement 770; it sets 
the maximum allowable trials for 
getting the answer. You may find that it 
is not giving yoirenough tries and you 
might want to increase the value of I. 
Master Bagels was created by H.R. 
Hamilton and originally appeared in 
Creative Computing, Jan/Feb 1977. 



MASTER BAGELS 
COPYRIGHT 1979 CREATIVE COMPUTING M0RRISTOWN, NJ 

DO VOU NEED INSTRUCTIONS? VES- 



6 TRIES, 6 AVERAGE FOR 2 
RUN AGAIN? VES 
HOM MANY #'S (1-108), 8 DIGITS (2-6), AND MAX VALUE (2-9)' 1, 4, 6 



• els • 



MASTER BAGELS 

HI, THIS IS A LOGIC GAME DESIGNED TO TEST VOUR DEDUCTIVE 
ABILITY I MILL CHOOSE A RANDOM NUMBER AND VOU ISOLATE IT. 
HHEN PROMPTED, ENTER A VALID NUMBER, AND I MILL THEN RESPOND 
WITH THE # OF DIGITS THAT ARE RIGHT AND IN THE RIGHT POSITION 
AND THE # RIGHT BUT IN THE WRONG POSITION. IF I THINK VOU 
RRE HOPELESSLV LOST, I WILL TELL VOU THE ANSWER AND WE 
HILL GO ON TO THE NEXT NUMBER. TO RECAP VOUR ENTRIES 
ENTER A B, TO SUIT ON A NUMBER ENTER 1, AND TO STOP ENTER 2. 



GUESS? 1122 
GUESS? 1234 
GUESS? 3456 
GUESS? 1265 
GUESS? 2124 
GUESS? 8_ 



HOW MANV S'S 


(1-100), 


# DIGITS 


(2-6) 
els — 


AND MAX VALUE (2-9) 


GUESS? 12 






, 


1 


GUESS? 31 






, 


1 


GUESS? 24 






1 , 





GUESS? 41 






, 





GUESS? 56 










BAD NUMBER IN 56. 








GUESS? 12 






, 


1 


GUESS? 22 






, 


2 


GUESS? 22 






1 , 





6 TRIES, 6 AVERAGE FOR 1 






GUESS? 32 












GUESS? 23 












GUESS? 22 






8 


, 


GUESS? 13 






1 





GUESS? 14 






1 





GUESS? 31 






1 





GUESS? 23 








- els - 






■ els • 








= 1122 


0,1 = 1224 
2,0 = 1265 


, 
, 


2 = 2456 
1 = 2134 


GUESS? 1- 







ANSWER IS 6262. 
18 TRIES, 18 AVERAGE FOR 1 

RUN AGAIN? NO. 
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18 CLS: PRINT8410, "MASTER BAGELS" 

20 PRINT: PRINT TABC7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOMN, NJ" 

30 PRINT§960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 

40 DIN F<9),H<9),T<9>,HC18,3> 

50 IF LEFT$<I*,1)="N" THEN CLS: GOTO 150 

60 CLS. PRINT<?26, "MASTER BAGELS"' PRINT 

70 PRINT » HI, THIS IS A LOGIC GAME DESIGNED TO TEST VOUR DEDUCTIVE" 

80 PRINT "ABILITV. I MILL CHOOSE A RANDOM NUMBER AND VOU ISOLATE IT. " 

90 PRINT "WHEN PROMPTED, ENTER A VALID NUMBER, AND I WILL THEN RESPOND" 

100 PRINT "WITH THE # OF DIGITS THAT ARE RIGHT AND IN THE RIGHT POSITION 

118 PRINT "AND THE * RIGHT BUT IN THE WRONG POSITION. IF I THINK VOU" 

120 PRINT "ARE HOPELESSLV LOST, I WILL TELL VOU THE ANSWER AND WE" 

120 PRINT "WILL GO ON TO THE NEXT NUMBER. TO RECAP VOUR ENTRIES" 

140 PRINT "ENTER A 0, TO QUIT ON A NUMBER ENTER 1, AND TO STOP ENTER 2. " 

158 S=8 

160 PRINT 

170 PRINT "HOW MANV #'S (1-100), # DIGITS (2-S), AND MAX VALUE <2-9>"; 

188 INPUT J,H,B 

198 IF A<=0 THEN 230 

200 IF A>6 THEN 230 

210 IF B<2 THEN 230 

228 IF BC1B THEN 250 

23B PRINT "ILLEGAL RANGE, RE-ENTER RUN PARAMETERS. " 

240 GOTO 180 

250 CLS: IF K10B THEN 278 

268 J=180 

270 FOR X=e TO J+A+B 

280 I=RND<0) 

290 NEXT X 

380 FOR N=l TO J 

310 FOR X=0 TO A 

320 T(X)=INT(RND(0)*B+1) 

338 NEXT X 

340 FOR 1=1 TO A+B+l 

350 FOR X=l TO A 

360 F(X)=0 

370 NEXT X 

388 F1=0 

390 F2=0 

400 PO=PEEK(16416)+PEEK<16417)*256-15360: IF PO>=960 THEN CLS 

410 INPUT "GUESS"; V 

428 IF VO0 THEN 470 

420 CLS: PO=0: FOR X=l TO 1-1 

440 PRINT6P0+32, H(X,D", "H<X,2)"="H<X,3> 

450 P0=P0+22: NEXT X 

466 GOTO 410 

478 IF V=l THEN 770 

480 IF V=2 THEN 930 

490 T1=V 

500 FOR X=l TO A 

516 M(X)=INT(Tl/(10t(A-X))) 

520 Tl=Tl-M<X>*a0t<P-X»+<:CSGN<A-<X+i>>-l>*- 5) 

530 IF M<XX1 THEN 550 

540 IF MCXXB+1 THEN 570 

550 PRINT "BAD NUMBER IN"V; CHR*(8:>; " " 

560 GOTO 350 

570 IF M(X)OTCX) THEN 608 

580 F(X>=1 

598 F1=F1+1 

680 NEXT X 

618 IF F1=A THEN 838 

628 FOR V=l TO A 

620 IF T<V)=M(V) THEN 718 

648 FOR X=l TO A 

658 IF M(V)OT<X) THEN 700 

660 IF F<X)=1 THEN 700 

670 F<X)=1 

688 F2=F2+1 

690 GOTO 710 

780 NEXT X 
718 NEXT V 

728 PRINT0PO+32, Fl", "F2 

730 H<I,1)=F1 
748 H(I,2)=F2 
750 HO,3)=V 
768 NEXT I 

778 I=H-1+B+1 

780 V=0 

790 FOR X=l TO A 

800 V=V+T(X)*<10[(H-X)) 
818 NEXT X 

820 FOR TI=1 TO 1800: NEXT: CLS: PRINT "ANSWER IS"V,CHR*<8>; " " 

820 S=S+I 

840 PRINT I; "TRIES, "; S/N; "AVERAGE FOR"; N 

850 V=INT(RND<R)*I) 

860 V=INT(H(V, 2V1024+4*RND<0» 

870 FOR X=l TO V+l 

880 I=RND(0) 
890 NEXT X 
980 NEXT N 

910 PRINT; INPUT "RUN AGAIN"; S* 

920 IF LEFT$<S$, 1)="V" THEN 150 -, n o 

930 END ' UO 



The original invention of Mastermind is credited to an 
amateur mathematician, Mordechai Meirovich, who first 
displayed it at the 1 971 Nurenburg Toy Fair.* Rights to the 
game were bought by Invicta who had moderate success 
with the game for 2Vi years until the Christmas season of 
1 975 when it was the most popular packaged game. Sales 
surpassed even the old standby, Monopoly. 

In its most basic form, Mastermind consists of a plastic 
game board, a dozen or so pegs which can be grouped into 
six basic colors, and two groups of black and white key pegs 
(sometimes called "inference pegs".) The game board 
resembles the figure below. 



key-peg slots 



W 



o o o o 



o o o o 



o o o o 



o o o o 



. hidden code 



>active player's guesses 
(total of 10 frames) 






o o o o 



The game is played by two people, whom we shall 
designate as the "active" player and the "passive" player. 
The first step before play actually commences is to have the 
passive player (in our case, the computer) choose a total of 
four colored pegs at random from any of the six basic color 
groups (duplicate colors allowed, of course.) He then 
conceals these colors from the active player by placing the 
four pegs in the "hidden code"portion of the game board. It 
is now up to the active player to determine, in ten moves or 
less, the exact color and location of each of the four pegs 
comprising the hidden code. 

To aid the active player in determining the hidden code, 
the passive player must award the active player a number of 
key pegs (inference pegs) after each guess, according to the 
following scheme: for each peg in the active player's 
current guess which corresponds exactly (in color and posi- 



*Ed. Note— , 

To anyone familiar with children's games, it is obvious that Mastermind is 
simply a commercial adaptation (using colors rather than numbers) of the 

game Bulls and Cows. This game, much more popular in England than the 
U.S. is not. to my knowledge, commercially packaged — DHA. 



tion) to a peg in the hidden code, the passive person places 
one black peg in the key-peg square adjacent to the passive 
player's current guess frame. Placing of the key pegs within 
the square is arbitrary since the relative position of the key 
peg carries no meaning. Clearly, when four black pegs are 
obtained, the hidden code is broken. 

Secondly, the passive player must place one white key 
peg in the current key-peg square for each peg in the active 
player's current guess which matches (in color, but not 
position) a peg in the hidden code. Keep in mind that once a 
color peg in the player's current guess has been awarded a 
key peg, its function in determining the remaining number 
of key pegs to award for the current guess is finished. For 
example, suppose the hidden code were: 

R B Y G 

corresponding to red, blue, yellow, green, and the active 
player's current guess were: 

G B B P 

corresponding to green, blue, blue and purple. 

The passive player should subsequently award one black 
and one white key peg for the following reasons: the blue 
color peg in position 2 of the current guess matches exactly 
in color and position with the hidden code. Secondly, the 
green color peg in position 1 of the current guess matches 
the color of the peg in position 4 of the hidden code. But 
since the location of the green peg is not exact, only a white 
peg is awarded. The blue and purple pegs in positions 3 and 
4, respectively, of the current guess do not match either the 
color or position of the remaining pegs in the hidden code 
(positions 1 and 3) and hence, no other key pegs are 
awarded. 

1 ne game proceeds in this manner until the hidden code is 
broken or all ten frames have been filled. As noted earlier, 
the computer will play the passive player in our computer 
version, generating a hidden code and awarding the black 
and white key pegs after each guess. 

The program offers the user two options, QUIT and 
BOARD, which may be entered at any time after the first 
move. QUIT instructs the program that you are fed up with 
playing Mastermind for the time being and wish to 
terminate the session. BOARD instructs the program to 
print out a summary of the moves prior to the time that the 
BOARD command was issued, including the guesses and 
key pegs awarded for each frame. Some players find that an 
arrangement of frames such as that provided by BOARD is 
easier to visualize and subsequently analyze. Beginners 
will find it most useful. 

The program and this description were written by David 
G. Struble of the University of Dayton. It first appeared in 
Creative Computing, Mar/Apr 1976. 
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HRSTERMIHO 

COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ 



HIT ENTER TO START? _ 


uia — 




THE GAME OF MASTERMIND 






COLOR CODES. 






R=RED 


0=ORANGE 


Y=VELLOH 


G=GREEN 


B=8LUE 


P=PURPLE 


HOVE NUMBER i -• RRGG 






9 BUCK PEGS 1 WHITE PEGS 




MOVE NUMBER 2 " OOBB 






8 BLACK PEGS 8 WHITE PEGS 




HOVE NUMBER 2 ' WPP 






i BLACK PEGS 2 WHITE PEGS 




MOVE NUMBER 4 ■> VVPR 






1 BLACK PEGS 3 WHITE PEGS 




MOVE NUMBER 5 " GVPP. 


— els — 




COLOR CODES. 






R=RED 


04RANGE 


Y=YEU.OM 


G=GREEN 


8=BLUE 


P=PURPLE 


MOVE NUMBER 3 ■> WPP 






i BLACK PEGS 2 WHITE PEGS 




MOVE NUMBER 4 •> WPR 






i BLACK PEGS 2 WHITE PEGS 




MOVE NUMBER 5 ■> GVPP 






8 BLACK PEG'S 2 HHITE PEGS 




HOVE NUMBER 6 "> PWR 






8 BLACK PEGS 4 HHITE PEGS 




HOVE NUMBER 7 -> VPRV 






YOU WIN! ! 


( 




HHHf TO PLflV AGAIN? NO. 


Cl3 





18 CLS. PRINTC'412, "MASTERMIND" 

28 PRINT: PRINT THB(7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, HJ" 

28 PRINT0968, ""; INPUT "HIT ENTER TO START";At: CLS 

48 GOSUB 58: PRIHTO320, GOTO 120 

58 LB=PEEK<164i6>: HB=PEEI«164i7) 

SO PRIHT80, "THE GAME OF MASTERMIND" 

78 PRINT 

88 PRINT "COLOR CODES:" 

98 PRINT " R=RED 0=ORRNGE V=VaLOH" 

188 PRINT " G=GREEN B=BLUE P=PURPLE" 

118 P0KE16416,LB: P0KE16417,HB: RETURN 

128 D1MB*<18),Y<10},Z<10) 

138 C<8)=4 

148 FOR N=i TO 4 

158 C(N)=INT(6tRND(B)+i) 

168 NEXT N 

178 FOR N=i TO 4 

188 X=C(H) 

198 GOSUB 738 

288 C«I)=X 

218 NEXT N 

228 P*=" 



238 FOR Xl=i TO 4 

248 P*=Pt+CHRt(C(Xl» 

250 ICXT XI 

260 FOR P=i TO 18 

278 REM 

288 PRINT "MOVE NUMBER"; P; 

298 INPUT »: GOSUB 58 

280 IF <*= "BOARD" THEN 938 

318 IF G*=°QUIT" THBi CLS: G0T0428 

328 B*(P)=GJ 

338 GOSUB 588 

340 IF B=4 THEN 1820 

250 GOSUB 688 

268 PRINT B; "BLACK PEGS".. 

278 V<P)=B 

288 PRINT Hi "HHITE PEGS"- GOSUB 50 

298 2(P)=H 

488 NEXT P" CLS 

418 PRINT "SORRY, YOU LOSE " 

420 PRINT "THE CORRECT CODE WHS. ";P* 

423 PRINT:PRINT "WANT TO PLAY AGAIN"; 

448 INPUT A* 

458 CLS 

460 IF LEFT*(ftt,l)="V" THEN CLEAR: GOSUB 50: GOTO ' 

478 PRINT 

488 END 

498 REM COMPUTE BLACK PEGS 

508 FOR Xl=i TO 4 

518G<Xl)=RSC<MID$<G$,Xl,i» 

528 NEXT XI 

520 8=8 

548 FOR K=l TO 4 

558 IF G(K) O C(K) THEN 578 

568 B=8+i 

570 NEXT K 

580 RETURN 

598 REM COMPUTE WHITE PEGS 

680 FOR Xl=i TO 4 

616 R<X1)=ASC(HID«P*,X1,1» 

628 NEXT XI 

620 N=0 

648 FOR M TO 4 

658 FOR M TO 4 

660 IF G(I) O RCJ) THEN 708 

670 H=H+1 

680 R(J)=8 

698 GOTO 718 

700 NEXT J 

718 NEXT I 

720 H=W-B 

738 RETURN 

748 REM TRANSLATE COLOR CODES TO NUMERICS 

750 IF X O 1 THEN 780 

768 X=89 

778 RETURN 

780 IF X O 2 THEN 818 

790X=82 

388 RETURN 

810 IF X O 3 THEN 848 

828X=88 

838 RETURN 

848 IF X O 4 THEN 878 

850X=79 

860 RETURN 

878 IF X O 5 THEN 908 

888X=71 

890 RETURN 

908 X=66 

910 RETURN 

928 REM PRINT BOARD SUMMARY 

938 V=P-1 

948 CLS: PRINT "GUESS", "BLACKS'. "WHITES" 

958 PRINT " "." ",» ■ 

960 FOR M TO V 

970 PRINT B*(I>," ";Y(I>," ";Z<D 

980 NEXT I 

990 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

1080 IF INKEY»=" THEN 1880 ELSE CLS: PRINT0348, 

1810 GOSUB 50: GOTO 270 

1028 PRINT "VOU WIN!!" 

1038 GOTO 428 
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Ready to try something new? A game 
that isn't like STARTREK or Slot 
Machine? Then try MATPUZLE and 
enjoy the art of puzzle-making. 

One benefit of puzzles is that they 
help develop a pattern of logic in one's 
thinking. In this puzzle you are given a 
matrix of letters, up to 6 x 6, and a 
board with dashes and a number above 
each of the dashes. 

The matrix represents the letters of 
the words you typed in, each having the 
same length. The number of words and 
the length of the words are both limited 
to six, six words each six letters in 
length, but, both values don't have to 
be the same. The letters are then put in 
a matrix and randomly rearranged in 
lines 210-480. 

The dashes on the board form the 
places for each letter of each word to 
be written in after it has been 
deciphered. The number above each 
dash, determined in lines 510-790, is 
the sum of the coordinates of where the 
letter of that dash is located in the 
matrix. The problem in solving the 
puzzle is that several coordinates have 
the same sum. 

Since the answers appear above the 
puzzle itself, rip them off before you 
give it to a friend to try. They will have a 
great time trying to figure out your 
puzzle. Then let them make one foryou 
or set up a relay. The possibilities are 
almost endless. 

The program and description were 
written by Dave Schroeder. 



MATPUZZLE 
COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ 

I YOU ICED INSTRUCTIONS? YES. 



MATPUZZLE 

THIS IS A PUZZLE-MAKING GAME 
YOU INPUT UP TO SIX HORDS, UP TO SIX 
LETTERS EACH, AND EQUAL IN LENGTH. 
THE COMPUTER HILL SCRABBLE THEM AND 
PRINT THEM IN A MATRIX. THE COMPUTER 
HILL ALSO PRINT A CORRESPONDING NUMBER 
BOARD. WHEN IT STOPS TEAR IT AND GIYE IT 
TO A FRIEND. 

HOW MANY HORDS DO YOU HANT (UP TO 6)? 6 

HOW MANY LETTERS IN EACH WORD (MUST BE SAKE, 6 LETTERS MAX)? 6. 

TYPE ONE 6 LETTER WORD OH EACH LINE 

i PARITY 

' DUPLEX 

■> MATRIX 

•"NUMBER 

'LENGTH 

, MOTHER- 



IB 5 3 5 9 7 

4 2 19 6 8 7 

6 12 5 4 5 7 

8 6 8 7 9 7 

8 6 8 11 3 9 



■ els • 



123456 
1URR I HX 
2HD AMXL 
30TERHT 
4 I LRETP 
5UBNEEM 
6 YMTPG A 



11 4 9 6 IB 



THE NUMBER ABOVE EACH DASH IS THE SUM OF TWO COORDINATES OF 
THE POM ON THE MATRIX WHERE THE CORRECT LETTER FOR THAT 
SPOT HILL APPEAR. THE PROBLEM IS THAT THE SUM OF SOME 



18 5 3 5 9 7 

4 2 10 6 8 7 

6 12 5 4 5 7 

8 6 8 7 9 7 



■ els ■ 



123 456 
1URR I HX 
2 H D A M X L 
30T ERNT 
4 I LRETP 
5UBNEEM 
6 V HT PGA 



8 6 8 11 3 9 
11 4 9 6 18 7 



SPOT HILL flPPEffi THE PROBLEM IS THAT THE SUM OF SOME 

COORDINATES ARE THE SAME SO SEVERAL LETTERS COULD FIT. SO 
TRY NOW TO FIND WHAT WORDS WERE USED AND SOLVE THE PUZZLE. 
(PRESS ANY KEY TO END PROGRAM) 

DO YOU KANT ANOTHER RUN? NO 

READY 

>. 

els 
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16 CLEflR 1888: CLS: PR1NT8412, "HRTPUZZLE" 

28 PRINT: PRINT TAB(?> "COPVRIGHT 1379 CREATIVE CONWING HORRISTOKH, NJ" 

38 PRINT8968, *■; : INPUT "DO VOU NEED INSTRUCTIONS"; It 

48 DIH Att6>,B*(6,6>,C(6,6),C*(6,6>,D$(6) 

58 IF LEFT$(I$,1)="N" THEN CLS: GOTO 168 

68 CLS: PRINT TAB(28); "HATPUZZLE" : PRINT 

78 PRINT "THIS IS ft PUZZLE-KKING Gflffi. " 

88 PRINT "VOU INPUT UP TO SIX HORDS, UP TO SIX" 

98 PRINT "LETTERS EACH, AND EQUAL IN LENGTH " 

188 PRINT "THE CCWUTER HILL SCRABBLE THEH AND" 

118 PRINT "PRINT THEH IN ft NATRIX THE COtPUTER " 

128 PRINT "HILL ALSO PRINT ft CORRESPONDING NUHBER" 

138 PRINT "BOPRD. HHEN IT STOPS TEfiR IT AND GIVE IT" 

148 PRINT "TO R FRIBO. " 

158 PRINT 

168 PRINT "HON MftNY HORDS DO VOU HfiNT <UP TO 6)"; 

178 INPUT U 

188 PRINT "KOH HftNV LETTERS IN EfiCH HORD (RUST BE SPJC 6 LETTERS HAX>"; 

198 IWUTL 

288 CLS: PRINT "TVPE 0N£"ib "LETTER HORD OH EACH LINE" 

218 FOR X=l TO H 

228 INPUT ftS(X) 

238IEXTX 

248 FOR X=l TO H 

256 FOR ¥=1 TO L 

268 «(X,V)=MD»(M(X>,V,i>: 8*(X, V>=MM(Rt(X>, V, 1> 

278 NEXT V 

288NEXTX 

298 PRINT 

388 FOR 2=1 TO 68 

318 F=IHT(RHD(8>*H+D 

328 D=INT(RHX8>«iM> 

238 G=INT<RND(8)*L+1> 

348 E=INT(RH>(8)«L+1> 

358 »=8«F,G> 

368BKF,G)=8I(D,E> 

378 BKD,£)=J* 

388NEXTZ 

398 CLS: PRINT TAB(42>; 

488 FOR Zl=l TO L 

418 PRINT Z1;CHR$(8>; 

428 NEXT 21 

438 PRINT 

448 FOR 22=1 TO H 

458 PRINT TAB(48);22; 

4C6 FOR 23=1 TO L 

478 PRINT B*(22,Z3>;" "; 

488 NEXT 23 

498 PRINT 

588 NEXT 22 



516 FOR P=i TO L 
528 FOR 0=1 TO H 
538 T=8 
548 FOR R=l TO H 

550 FOR S=l TO L 

568 IF T=l TIEN 618 

578 IF BJ(R,S)OC*<Q,P)THEN 618 

588C(Q,P)=R+S 

598 T=l 

688 B*<dS>=" " 

618 NEXT S 

628 fEXTR 

638NEXTQ 

648NEXTP 

658 PRINT 88, ""; : FOR X=l TO U 

668 PRINT Tfi8(3) 

678 FOR R=i TO L 

688 IF C(X,H»9 THEN 718 

698 PRINT C<X,H);' "; 

788 GOTO 728 

718 PRINT C(X,H>; 

728NEXTH 

738 PRINT CHR*(26>;CtS«29>; 

748 PRINT THB(3); 

758 FOR Rl=l TO L 

768 PRINT"— ■; 

778 NEXT HI 

788 PRINT CHR»(26);CKR$(29); 

798NEXTX 

888 'PRINT8979, "PRESS fiNY KEV TO CONTINUE"; 

818 'IF INKEW=" THEN 818 ELSE CLS 

828 DJ(1)="TKE NUWER ABOVEEACHDASHISTKESUHOFTHO COORDIffiTES OF ■ 

838 DJ(2)= "THE POINT ON THE MATRIX HKERE THE CORRECT LETTER FOR THAT ' 

848 D$<3!= "SPOT HILL APPEAR THE PROBLEH IS THAT THE SUH OF SORE " 

858 M(4)= "COORDINftTES ARE TKE SANE SO SEVERAL. LETTERS COULD FIT SO ' 

868 W(5)= "TRV NOU TO FIND UKAT HORDS HERE USED AND SOLVE THE PUZZLE • 

878 JJ=8 

888 FOR IM TO 3 

898 PRINT 8 764 + (II«64), STRIN6K63," "); 

968 PRINT 8 784 + (II*64),D*(JJ+in 

918 NEXT II 

928 JJ=JM 

938 FOR IM TO 2888: KEXT II 

948 IF JJ03 THEN 888 

958 PRINT " (PRESS ANV KEV TO END PROGRAM)"; 

968 AI$=IIKEV$:IF AI$=" THEN 968 

978 CLS:PRINT: PRINT "DO VOU HANT ANOTHER RUN"; 

988 INPUT V9t 

998 IF LEFT$(V9*,1)="V TIEN CLS: GOTO 168 

1888 END 
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Naze 




WEE 

COPVRIGHT 1979 CREATIVE COMPUTING MORRISTONN, NJ 

els 



00 VCll HEED INSTRUCTIONS? YES. 



■ els 



THIS PROGRRH WILL SIHULflTE ft HERR-SIGHTED HOUSE IN 
ft MAZE VOU SELECT THE DIFFICULTY FACTOR - SIZE! 
THE DIMENSIONS MUST FRLL IN THE RBNGE HORIZ: (5-28) 
VERT: (3-6). DIMENSIONS LESS THAN 5 ORE TOO TRIVIRL 
EHCH MflZE IS DIFFERENT, AM) HRS ONLY ONE HfiV THROUGH IT. 

HHflT ARE YOUR DIMENSIONS (HORIZONTAL VERTICAL)? 29,6. 
els 



This is actually a two part game. In 
the first part, the program generates 
a maze through which you can try to 
find your way. 

In the second part of the program a 
near-sighted mouse is let loose in 
the maze and explores until he finds 
his way through. If you want to know 
what near-sighted means, run the 
program and ask to see the solution 
step by step as the mouse goes 
through the maze. If you elect not to 
see each step, you'll simply get a 
total solution for the maze itself. 

With or without the mouse, it's a 
fun program and the larger mazes are 
frequently a real challenge to solve. 

Maze is another program which 
utilizes TRS-80 graphics, so do not 
be too confused by the sample run. 



DO YOU HANT THE SOLUTION 



• els ■ 



DO YOU HUNT TO SEE EACH STEP 



■ els - 



mm 



. ttm. «*«. 
tt «#.»« »#.*« 

....«.«.« « «.»....« 

Httt. HHHMHHM. - »«««■ »«*«• «•«• 

«....«.«.... 

8l.t««».S8t«. 

#».« «. 

ttttt. 8M«f tt. 
H 



DO YOU HANT ANOTHER HAZE? . 
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V>=2 AND V<=6 THEN 288 



teas 

28 CLERK 1888 

38 PRINT § 414, "MAZE" 

46 PRINT 

58 PRINT TfiB(7)"C0PVKICHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ" 

69 PRINT 966, "; 

78 INPUT'DO VOU HEED INSTRUCTIONS"; 1$ 

88 REN HOUSE IN MAZE - SOLUTION SECTION BV RICHflRD SCHAAL FI1CC 

98 REH ORIGINAL MAZE PROGRAM FROM "181 BASIC COMPUTER GAMES" 

188 IF LEFHCH-, 1)="V" THEN CIS: GOTO 268 

118 CIS 

128 GOTO 198 

128 PRINT 

148 PRINT "THIS PROGRAM HILL SIMULATE fl NEAR-SIGHTED MOUSE IN" 

158 PRINT "A MAZE VOU SELECT THE D1FFICULTV FACTOR - SIZE 1 " 

168 PRINT "THE DIMENSIONS MUST FALL IN THE RANGE HCiRIZ : <5-28>" 

178 PRINT "VERT: (3-6). DIMENSIONS LESS THAN 5 ARE TOO TRIVIAL. " 

ISO PRINT "EACH MAZE IS DIFFERENT, AND HAS ONLV ONE HflV THROUGH IT " 

198 PRINT 

288 PRINT "WAT ARE VOUR DIMENSIONS (HORIZONTAL, VERTICAL)"; 

218 CLEAR 188: REH ERASE ALL ARRAYS AND VARIABLE VALUES 

228 INPUT H, V 

238 PRINT CHMC26) 

248 H=INT(fiBSCH» 

258 V=INTCABSCV» 

268 IF H>=5 AND H<=28 AN 

278 GOTO 138 

288 DIM HCH, V), VCH, V) 

298 CLS 

268 Q=8 

318 Z=8 

328 X=INT(RNDCB)*H+i) 

338 FOR 1=1 TO H 

348 IF I=X THEN 378 

358 PRINT STRINKO, 191); 

368 GOTO 386 

378 PRINT CHRK19D" "; 

388 NEXT I 

398 PRINT CHW091) 

488 C=l 

418 MCX, 1)=C 

428 C=C+1 

428 R=X 

448 S=l 

458 GOTO 568 

460 IF ROH THEN 548 
478 IF SOV THEN 518 

486 R=l 

498 S=l 

508 GOTO 558 

518 R=l 

528 S=S+1 

528 GOTO 558 

548 R=R+1 

559 IF H(R, S)=0 THEN 468 

568 IF R=l THEN 926 

578 IF MCR-1, S»8 THEM 928 

588 IF S=l THEN 728 

598 IF NCR, S-D08 THEN 738 

688 IF R=H THEN 646 

618 IF HCR+1, S)>8 THEN 646 

628 X=INT(RHDC8)C+1) 

638 OH X GOTO 1298, 1368, 1438 

648 IF SOV THEN 688 

650 IF 2=1 THEN 710 

666 0=1 

678 GOTO 698 

638 IF H(R, S+l»8 THEN 716 

690 X=INT(RND(8)*3ti) 

780 ON X GOTO 1296, 1366, 1538 

718 X=IHKR»C8V*2+1) 

728 ON X GOTO 1298, 1368 

738 IF R=H THEN 848 

748 IF l«R+l, S»8 THEN 846 

758 IF SOV THEN 798 

768 IF Z=l THEN 828 

776 8=1 

788 GOTO 868 

798 IF NCR, 5+1)50 THEN 828 

888 X=lHT(RI»i8)»-3+l) 

818 ON X GOTO 1296, 1428, 1538 

828 X=INKRHD(8)t2+i:> 

826 ON X GOTO 1298, 1436 

846 IF SOV THEN 886 

858 IF 2=1 THEN 916 

866 6=1 

878 GOTO 898 

888 IF NCR, S+i»8 THEN 918 

398 X=INTCRNDC8)*2+1> -| Q9 



988 ON X GOTO 1298, 1538 

918 GOTO 1298 

'928 IF 5=1 THEN 1138 

930 IF NCR, S-i»8 THEN 1138 

948 IF R=H THEN 1858 

958 IF HCR+1, 5)58 THEN 1856 

968 IF SOV THEN 1868 

970 IF Z=l THEN 1838 

988 0=1 

998 GOTO 1618 

1688 IF NCR, S+l»8 THEN 1836 

1818 X=INT(RND<8)*3+1) 

1828 ON X GOTO 1368, 1436, 1538 

1830 X=INT(RND<8)*2+1) 

1840 ON X GOTO 1366, 1438 

1850 IF SOV THEN 1898 

I860 IF 2=1 THEN 1128 

1878 0=1 

1838 GOTO 1166 

1896 IF NCR, S+l»6 THEN 1128 

1160 X=INT(RNDC8)*2+D 

1116 ON X GOTO 1360, 1536 

1126 GOTO 1268 

1138 IF R=H THEN 1238 

1148 IF HCR+L S»8 THEN 1236 

1156 IF SOV THEN 1198 

1168 IF Z=l THEN 1228 

1178 0=1 

1186 GOTO 1206 

1198 IF NCR, S+1K8 THEN 1228 

1288 X=INT(RND(6)*2+1) 

1218 ON X GOTO 1430, 1538 

1228 GOTO 1438 

1238 IF SOV THEN 1278 

1248 IF 2=1 THEN 468 

1256 0=1 

1268 GOTO 1286 

1276 IF NCR, S*l)>8 THEN 468 

1288 GOTO 1538 

1298 HCR-1, S)=C 

1368 C-C+l 

1318 VCR-L S)=2 

1228 R=R-i 

1238 IF C=H*V+1 THEN 1728 

1246 0=8 

1358 G8T0 568 

1366 NCR, S-1)=C 

1376 C=C+1 

1388 VCR, S-i)=i 

1398 S=S-1 

I486 IF C=H*V+i THEN 1730 

1416 8=8 

1428 GOTO 568 

1428 HCR+1, S)=C 

1446 C=C+1 

1450 IF VCR, S)=6 THEN I486 

1466 VCR, S)=2 

1478 GOTO 1498 

1486 VCR, S)=2 

1490 R=R+1 

1560 IF C=Htv+i THEN 1728 

1518 0=8 

1526 GOTO 926 

1526 IF 0=1 THEN 1626 

1546 NCR, S+i)=C 

1556 C=C+1 

1568 IF VCR, S)=8 THEN 1598 

1576 VCR, S)=3 

1588 GOTO 1668 

1598 VCR, S)=i 

1686 S=S+1 

1618 IF C=H*V*1 THEN 1738 

1628 GOTO 566 

1626 Z=l 

1646 IF VCR, S)=0 THEN 1688 

1658 VCR, S)=2 

1666 0=6 

1676 GOTO 468 

1688 VCR, S)=l 

1698 0=6 

1780 R=l 

1716 S=l 

1728 GOTO 558 

1738 IF Z=l THEN 1776 

1746 R=INT(RHDC8)*H)+1 

1750 S=V 

1768 VCR, S)=VCR, S)+l 

1770 GOSUB 2828 

1788 PRINT 966, "D6 VOU HRHT THE SOLUTION"; 



1798 
1888 
1818 
1828 
1836 
1848 
1350 
1868 
1878 



1988 
1918 
1920 
1938 
1948 
1958 
1960 
1978 
1988 
1950 
2880 
2010 
2828 
2830 
2848 
2858 
2868 
2878 
2888 
2898 
2188 
2118 
2120 
2138 
2148 
2150 
2168 
2178 
2188 
2198 
2288 
2218 
2220 
2228 
2248 
2258 
2268 
2278 
2288 
2298 
2288 
2310 
2328 
2338 
2348 
2358 
2268 
2278 
2380 
2398 
2408 
2418 
2420 
2430 
2448 
2458 
2468 
2478 



GOSUB 3168 

IF LEFTHM. DOT THEN 3120 

PRIMT 966, "DO VOU HAM TO SEE EACH STEP"; 

GOSUB 3160 

CL5 

FOR 1=1 TO H 

IF HCL 1M THEN S=I: GOTO 2880 

ICXT I 

REM HON HE CAN CLEAR H ARRAY AS ENTRY POINT IS FOUND. 

REN ELEMENTS IN V PRE EITHER 8,1,2 OR 3 

REN 8 IS CLOSED ON THE RIGHT RND AT THE BOTTOM 

REN 1 IS CLOSED ON THE RIGHT 

REM 2 IS CLOSED ON THE BOTTOM 

REM 3 IS OPEN ON THE RIGHT RND AT THE BOTTOM 

REM DIRECTIONS HILL BE CODED: 

REM 1 UP 

REM 2 . DOHN 

SEM 4 

RIGHT 

REM 8 LEFT 

REM SCAH V RRRflV FOR POSSIBLE MOVES IN RLL DIRECTIONS 

FOR 1=1 TO H 

FOR J=i TO V 

H(I, J)=0 

REM TRY UP 

IF M THEN 2870 

IF V(I, J-1>=1 OR V(I, J-l>=3 THEN H(I, J)=H(I, J>+1 

REN TRY DOWN 

IF J=V THEN 2100 

IF V(I, J)=l OR Yd, J)=3 THEN U(I, J)=H(I, J)+2 

REM TRY RIGHT 

IF I=H THEN 2120 

IF V(I, J)=2 OR V(I, J>=3 THEN U(I, J)=H(I, J)+4 

REM TRY LEFT 

IF 1=1 THEN 2158 

IF VU-1, J)=2 OR V(!-l, J)=3 THEN H(I, J)=«(I, J)+8 

NEXT J 

NEXT I 

FOR 1=1 TO H 

IF Vd, V)=l OR V(I, V>=3 THEN H(I, V)=H(I, V)+2: E=I: GOTO 2210 

NEXT I 

REM HAVE TO GO DOHN FIRST 

Y=i 

X=S 

VCX. Y)=Y(X, Y)+4 

REN CHECK FOR POSSIBLE DIRECTIONS NOR . . 

IF V=V AND X=E THEN PRINT: GOSUB 2750: GOTO 3128 

GOSUB 2728 

REM CHECK POSSIBLE DIRECTIONS 

IF (MX. V) AND 2) O 8 THEN 2228 

IF (N(X, Y> AND 4) O 8 THEN 2428 

IF (UtX, Y) AND 8) O 8 THEN 2528 

IF (H(X, Y) AND 1) O 8 THEN 2638 

GOTO 2258 

IF (V(X„ Y+l»3) AND <(H(X, Y) HI© 12)=8) THEN 2288 

IF V(X. V+l)>3 THEN 2298 

Y=V+1 

V(X, Y)=Y(X, Y)+4 

GOTO 2258 

Y(X, Y)=Va Y)-4 

tia Y)=(H(X, Y) AND 12) 

Y=Y+1 

H» Y)=(N(X, Y> AND 14) 

GOTO 2258 

IF (V(X+i,.Y)>2) AND «U(X, V) AND 11)=8) THEN 2488 

IF V(X+i, Y)>3 THEN 2300 

X=X+1 

V(X, Y)=V(X, Y)+4 

GOTO 2258 

va Y>=va Y)-4 



2490 H(X, Y)=(l<a Y) AND 11) 

2588 X=X+1 

2518 Ha Y)=(N(X, Y) AND 7) 

2528 GOTO 2258 

2528 IF (Y(X-i, Y)>2) AND «W(X, Y) AND 7)=8) THEN 2580 

2540 IF VCX-li Y)>3 THEN 2310 

2550 X=X-1 

2568 Va V)=V(X, Y)+4 

2578 GOTO 2250 

2588 VCX, Y)=Y(X, Y)-4 

2598 H(X, Y)=(H(X, Y) AND 7> 

2688 X=X-1 

2618 Ha Y)=(H(X, Y) AND 11) 

2628 G8T0 2258 

2638 IF (V(X, Y-l)>2) AND ((H(X, Y) AND 14)=8) THEN 2688 

2648 IF Va Y-l)>2 THEN 2288 

2658 V=Y-1 

2668 V(X, Y)=V(X, Y)+4 

2678 GOTO 2250 

2688 V(X, Y)=va Y)-4 

2698 WX. Y)=(H(X, Y) AND 14) 

2788 Y=Y-1 

2718 H(X, Y)=(H(X, Y) AND 13) 

2728 GOTO 2258 

2738 IF LEFT*(A$, DOT THEN RETURN 

2748 PRINT 

2758 FOR 1=1 TO H 

2768 IF 1=5 THEN 2790 

2778 PRINT STRINGSG, 131); 

2788 GOTO 2800 

2798 PRINT CHRKISD'W; 

2880 NEXT I 
2810 PRINT CHR*(19i) 
2820 FOR J=l T8 V 
2838 PRINT CHR«19D; 
2848 FOR 1=1 TO H 

2850 IF Yd, J)>3 THEN 2=V(I, J)-4: GOTO 2870 

286B2=V(I, J) 

2870 IF Z<2 THEN 2920 

2888 IF ZOVd, J) AND Yd+L J)>3 THEN PRINT Wi : GOTO 2948 

2898 IF ZOVd, J) THEN PRINT "« "; ■ GOTO 2940 

2980 PRINT " "; 

2918 GOTO 2948 

2928 IF ZOVd, J) THEN PRINT 

2920 PRINT " " CHR$(19i); 

2948 NEXT I 

2958 PRINT 

2968 FOR 1=1 TO H 

2970 IF Yd, J)>3 THEN Z=V(I, J)-4: GOTO 2998 

2988 Z=V(I, J) 

2990 IF Z=8 THEN 2860 

2088 IF Z=2 THEN 3868 

2818 IF ZOVd, J) AND J=V THEN PRINT CHRJ(19D"#r; : GOTO 3878 

2828 IF M THEN 2848 

2828 IF ZOVd, J) AND Yd, J+l»3 THEN PRINT CHW(191)"«"; ' GOTO 3878 

3048 PRINT CHR$(19D" "; 

3850 GOTO 2078 

3868 PRINT STRIIWG, 191); 

3876 NEXT I 

3888 PRINT CHR$(191) 

2890 NEXT J 

2168 PRINT 8 8, "; 

3118 RETURN 

3128 PRINT 960, "DO YOU HAHT ANOTHER MAZE"; 

3138 INPUT M 

3148 IF LEFTOA*, 1)=T THEN PRINT GOTO 208 

3158 END 

3168 A*=INKEY1 

3178 IF l»=" THEN 3160 
3180 RETURN 



•«" CHRt(19D; : GOTO 2948 
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Millionaire 



In this game, thecomputertakesyou 
through your life from birth to death. 
Along the way, you're asked to make 
some petty and some other rather 
crucial decisions. Some of these 
decisions regard what kind of job you 
want, how much you bet in Las Vegas, 
whether you buy a valuable coin, 
whether you elect to take a vacation or 
a second job, stock purchases- 
buying and selling, automobile ac- 
cidents, tornadoes, and the like. 

At the end of your life (it goes by in a 
flash!) the computer tallies up your 
gains and your losses and tells you 
where you stand relative to becoming a 
millionaire. In ten plays of the game, 
the most we ever got was $379,000, 
somewhat short of being a millionaire, 
but probably, all things considered, 
more realistic. 

Millionaire was conceived and 
written by Craig Gunnett, a dreamer to 
the very end. 



MILLIONAIRE 
COPYRIGHT 1979 CREATIVE COMPUTING NORRISTOHN, NJ 



els 

M YOU NEED INSTRUCTIONS? YES. 

els 

THIS IS THE GHE OF 'MILLIONAIRE' ALL YOU MUST DO IS 
TYPE IN YOUR NAME AND ANSWER SOME QUESTIONS. THE 
DECISIONS YOU HAKE HILL DETERMINE HOH MUCH HONEY YOU 
HAKE AT TIC TIKE OF YOUR DEATH, YOUR LIFE HILL BE 
RATED BY THE AMOUNT OF HONEY YOU MADE THROUGHOUT 
YOUR LIFE IF YOU HAVE HADE $1,888,668, YOU HILL BE 
R MILLIONAIRE AND HIN THE GAME. 

PRESS ANY KEY TO CONTINUE 



WAT IS VOUR NflfE ' CHRIS. 



■ els • 



O.K., CHRIS, THIS IS YOU? NEH LIFE! 
IH A SMALL TOHN, ON JUL 17, 1988, CHRIS IS BORN. 
YOUR PARENTS ARE VERY RICH OH APR 8, 1999, YOU 
LEAVE HOME WITH $ 11699 YOU GOT A JOB AS A TEACHER 
YOU EARN * 28878 A YEAR. 
YOU ADJUST YOUR EXPENSES TO $ 28353 A YEAR 
PRESS ANY KEY TO CONTINUE 
els 



DEC 25, 2888 

YOU ARE OFFERED ANOTHER JOB FOR MOULD YOU LIKE TO MOONLIGHT? YES 



■ els • 



DEC 25, 2688 

YOU ARE OFFERED ANOTHER JOB FOR MOULD YOU LIKE TO MOONLIGHT? YES 

YOU NOW HAVE * 11899 

PRESS ANY KEY TO CONTIWJE 

els 

JUL 25, 2665 

YOU ARE OFFERED A COIN SUPPOSEDLY HORTH $188,688. 

DO YOU BUY IT? YES 

THE YRLUE OF THE COIN IS t 49837 
YOU NOH RAVE $-29864 . 

YOU! EARNINGS AND EXPENSES LEAVE YOU WITH t 31416 
PRESS ANY KEY TO CONTINUE 

els — 



FEB 23, 2814 

YOU GO TO LAS VEGAS TO GAMBLE 



HOH MUCH DO YOU BET? 18886 



HA! HA! YOU LOST * 5625 
YOU NOH HAVE * 25791 

YOUR EARNINGS AND EXPENSES LEAVE YOU HITH * 152655 
PRESS ANY KEY TO CONTINUE 

els 



DEC 12, 2623 

YOU ARE SERIOUSLY SICK. (COULDN'T TIL, COULD VOIP) 

YOU HAVE CONPUTERITIS. 

HEALTH EXPENSES COST YOU * 835 

YOU NOH HAVE * 151826 . 

YOUR EARNINGS AND EXPENSES LEAVE YOU HITH t 278684 

PRESS ANY KEY TO CONTINUE 
Cl8 



OCT 21, 2831 

OH! YOU JUST GOT LEUKEMIA MEDICAL BILLS ARE * 2386 

YOU NOH HAVE * 276378 

YOUR EARNINGS AND EXPENSES LEAVE YOU HITH * 389146 

PRESS ANY KEY TO CONTINUE 
els 



JUL 9, 2839 

THE DOCTOR SAYS YOU HEED A VACATION. DO YOU GO? YES 

GOOD, THE VACATION COSTS * 2967 
YOU NOH HAVE $ 386179 

YOUR EARNINGS AND EXPENSES LEAVE YOU HITH $ 498947 
PRESS ANY KEY TO CONTINUE 

els 



SEP 8, 2848 



STOCK NAME 



PRICE SHARES OWNED 



1 IBM (INCREDIBLY BAD MACHINES) 143 

2 USS (USELESS ( STINKY STEEL) 136 

3 NCR (NO CASH RETURN) 141 

4 THA (TOTAL HRECK AIRLINES) 146 
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<BXN, <S>ELL«ie8 FEE), IK DO SOOTHING ?B 
STOCK! AND QUANTITY? L 25. 



SEP8, 2848 



STOCK USE 



PRICE SHARES 0HNED 



1 IBM (INCREDIBLY BSD MACHINES) 143 

2 USS (USELESS S STINKY STEED 136 

3 NCR (NO CflSH RETURN) 141 

4 T«n (TOTAL WRECK AIRLINES) 146 


25 
8 
8 
8 


<B>UY, <S>ELL«i88 FEE), OR DO SOOTHING ?6 
STOCK* AND QUANTITY? 4,18. 

SEP 8, 2848 

1 STOCK NflfE PRICE SHARES OWED 



1 IBH (INCREDIBLY BRD MACHINES) 143 

2 USS (USELESS t STINKY STEEL) 136 

3 NCR (NO CflSH RETURN) 141 

4 THA (TOTRL WRECK AIRLINES) 146 

Ol8 



<BW, <S>ELL(«.88 FEE), OR DO <H>OTHING ?B 
STOCK I AND QUANTITY? 2,58. 

SEP 8, 2848 



8 STOCK NfilC PRICE 


SHARES OWED 


1 IBH (INCREDIBLY BRD MACHINES) 143 


25 


2 USS (USELESS 4 STIHKY STEEL) 136 


58 


3 NCR (NO CASH RETURN) 141 


8 


4 THR (TOTAL WRECK AIRLINES) 146 


18 


els 





<BXJY, <S>ELL«168 FEE), OR DO OOOTHING ?N 

YOUR EARNINGS AND EXPENSES LERVE YOU HITH $ 613676 

PRESS ANY KEY TO CONTINUE 
JAN?, 2854 
t STOCK HAKE PRICE SHARES OWNED 



1 IBH (INCREDIBLY BAD MACHINES) 139 

2 USS (USELESS 4 STINKY STEEL) 124 

3 NCR (NO CASH RETURN) 136 

4 THA (TOTAL WRECK AIRLINES) 132 
HITH STOCK VALUE YOU HAVE $ 624671 . 
CLOSE, ORIS. MAYBE NEXT LIFE. 

THRKS FOR PLAYING 'MILLIONAIRE', CHRIS! 1 



25 
58 



READY 



is as 

28 PRINT g 418, "BILLIONAIRE" 



Cl8 ■ 



38 PRINT 

48 PRINT TRB(7)"C0PYRIGHT 1379 CREATIVE COMPUTING HORRISTOKN, NJ* 

58 PRINTS 968,"; 

68 INPUT-DO YOU HEED INSTRUCTIONS"; I* 

78 IF LEFTKI*, i)="N" THEN 218 

88 REH MILLIORAIRE BY CRAIG GUMETT 

98 OS 

189 PRINT TAB(28); "* MILLIONAIRE *" 

118 PRINT 

128 PRINTTHIS IS THE GAME OF 'HIUIONAIRE', ALL YOU MUST DO IS" 

138 PRINT "TYPE IN YOUR NAME AND ANSWER SOKE QUESTIONS. THE" 

148 PRINT "DECISIONS YOU HAKE HILL DETERMINE HOH MUCH HONEY YOU" 

158 PRINT "HAKE. AT THE TIKE OF YOUR DEATH, YOUR LIFE HILL BE" 

168 PRINT "RATED BY THE AMOUNT OF HONEY YOU HADE THROUGHOUT" 

178 PRINT "YOUR LIFE. IF YOU HAVE HADE $1,688,888, YOU HILL BE" 

188 PRINT "A HiaiONAIRE AND H1N THE GflHE " 

198 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 

288 IF IHKEW =" THEN 288 

218 OS 

228 PRINT I 256, " 

238 lNPUHtUT IS YOUR HAKE "; A* 

248 LET 0=-l 

258 DIH RK2B), Z$(l), H*(36>, S(9), Q(16) 

268 FOR 1=1 TO 4 

278 LET S(I)=158 



568 
578 



618 
628 
638 
648 
658 
668 
678 



288 NEXT I 

298 OS 

388 PRINT ' O.K, MB;', THIS IS YOUR IB LIFE!" 

318 LET m="JBNt*BHAf^MfflJUNJULRU(£EPOCTNOVDEC" 

328 IFRW>(B».5GOT0 358 

338 PRINT "ON A BIG FARH"; 

348 GOTO 368 

358 PRINT "IN A SHALL TOWN"; 

368 LET T=INT(RND(8)*12H1 

378 PRINT ", ON MIIDKH*, 3*T-2, 3); INT(RHD<8>*28)+1; CHR$(8)i", 1988, 

388 PRINT " •;»;• IS BORN. " 

398 PRINT "YOUR PARENTS ARE VERY "i 

488 1FRH>(B)>.5G0T0 448 

418 PRINT "RICH. "; 

428 LET H=IHT(RH>(3)«5888)+18888 

438 GOTO 468 

448 PRINT "POOR. "; 

450 LET H=INT« RND(8HRN»(B»/2*1888> 

468 LET T=INT(RND(8)*12Wi 

478 LET Y=i996+INT(RKKB)*1B) 

488 PRINT "ON ";HID*(«, T*3-2, 3); T*2; CHR*(8); ", "; Y; CHRK8);", YOU" 

498 PRINT "LEAVE HOKE NITH "; 

583 PRINT "*"; INT(H*188)/188; 

518 LET Y=Y+1NT(RK>(8>*3H1 

528 GOSUB 878 

538 FOR J=l TO 13 

548 IF (J/3)-INT(J/3)+E=8 THEN GOSUB 878 

558 LET D=IHT(28*RND(3)Hi 

LET ltt=l 1NT(12*RMX8))+1)*3 
GOSUB 3238 

PRINT HIM(M$, Hi-2, 3); D; CHR»(8); ", "; Y 
IF Y-198BOT GOTO 648 
1FRND(8».5 60T0 648 

PRINT "YOU ARE DEAD (COULD'NT TELL, COULD YOU?) AT THE" 
PRINT "AGE 0F";Y-i988; CHRK8);" " 
GOTO 2988 
IF H>=3 GOTO 698 
LET I=INT(.87*Y9*(-H)) 
LET H=H-I 

PRINT "THE INTEREST ON YOUR LOAN IS "; 
688 PRINT "JMHTaeetlVIBB 
698 LET Q=INT(13*RND(3>+1) 

788 IF Q(Q)=i GOTO 698 

718 LET Q(Q>=i 

728 ON Q GOTO 1128, 1283, 1488, 1548, 1648, 1883, 2818 

738 ON (Q-7) GOTO 2368, 2478, 2628, 2788, 2828, 2868 

748 PRINT "YOU NOW HAVE "; 

758 PRINT •$"; INT(H*1B8)/188; 

768 PRINT " " 

778 IF 0=-2 GOTO 2818 

788 IF M GOTO 838 

798 LET H*(E-C)*Y9 

888 PRINT "YOUR EARNINGS AND EXPENSES LEAVE YOU HITH "; 

818 PRINT "$";1NT(H*188)/188; 

828 PRINT ■ " 

826 LET Y9=IKT(RHD(6)*6)+5 

848 LET Y=Y+Y9 

858 (EXT J 

868 GOTO 618 

878 REH JOB SUB 

888 PRINT "YOU GOT A JOB AS A "; 

898 ON RND(5) GOTO 988, 938, 968, 998, 1828 

988 PRINT "TEACHER"; 

918 LET E=IHT(RM)(B)*4888)+17&8fl 

923 GOTO 1848 

938 PRINT "LAWYER"; 

948 LET E=IHT(RKD(e)*48688!>+8886B! 

958 GOTO 1848 

963 PRINT "COMPUTER PROGRAHHER"; 

978 LET E=INT(RMX8)*5888)+28888 

983 GOTO 1848 

998 PRINT "BUS DRIVER"; 

1893 LET E=INT(RHD(8)*2888)+16B88 

1818 GOTO 1348 

1828 PRINT "FOOTBALL PLAYER"; 

1838 LET E=INT(RM>(8M88888!>+ieB688! 

1848 LET C=E-18868+INT(( RND(8)«ND(6»*5888) 

1858 PRINT ". " CHR*(13)"Y0U EARN "; 

1368 PRINT "$"; INT(E*188)/ie8; 

1678 PRINT " A YERR. " 

1888 PRINT "YOU ADJUST YOUR EXPENSES TO "i 

1898 PRINT *$"; INT(168*C)/1B8; 
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Uee PRIKT- R YERR ■ 

1116 RETURN 

1128 PRIKT 'YOU GO TO LR5 VEGRS TO GPJGLE HON HUCH DO YOU BET"; 

1128 INPUTS 

1148 PRINT 

1156 IF S<=8 SOTO 1278 

1168 IFRKD<8».7GOT0 1228 

1178 LET S2=-INT(RH><6>*5> 

1188 PRINT "HR! HR! YOU LOST "; 

1136 PRINT "*"; IHT(S2*ie8)/lB8*-li 

1288 PRINT " ■ 

1216 GOTO 1268 

1228 LET S2=INT« RND<8)+RND(6))*S) 

1228 PRINT "VOU HON ■; 

1248 PRINT ■$";INT(S2«88)/1»8; 

1256 PRINT " ■ 

1268 LET H=#S2 

1278 GOTO 748 

1288 PRINT "VOU RRE OFFERED R COIN SUPPOSEDLY NORTH $188,688 • 

1298 PRINT "DO VOU BUV IT'; 

1288 INPUT Z* 

1218 Zt=LEFWZt, 1) 

1228 PRINT 

1228 LET V7=INT(RNDC6)*288688!)+1 

1248 IF ZtOT GOTO 1268 

1258 LET WH88888!+V? 

1268 PRINT "THE VftLUE OF THE COIN IS ■; 



1278 PRINT •$■; INT(V7*18e>/iee; 

1288 PRINT '. " 

1238 GOTO 748 

1488 PRINT "VOU ARE SERIOUSLY SICK. (COULDN'T TELL COULD YOU?)' 

1418 PRINT "YOU HRVE "; 

1428 ON (INT(RND(8)*2)+1> GOTO 1458, 1476 

1428 PRINT 'THE fiSlO-DISPEPSIR REGIONRLY HYPNOTIC FLU 1 (OH') ■ 

1446 GOTO 1488 

1458 PRINT 'CONPUTERITIS. " 

1468 GOTO 1488 

1478 PRINT 'INFECTIOUS FRTRLV REOCCURING CHRONIC BflD BRERTK " 

1488 LET U=INT(RM)(B)*ie88)+568 

1493 LET R=H-U 

1568 PRINT "KE&TH EXPENSES COST VOU '; 

1516 PRINT "J'ilNKlWieeVlBe; 

1528 PRINT ■- " 

1528 GOTO 748 

1548 LET F=IHT(RND(e>*i68888!> 

1558 LET C8=INT(F/2HNT(RM>(8)*(F/2» 

1568 PRINT "YOUR GRRWDFRTHER GROVERS JUST DIED (OH 1 ) HE LEFT' 

1576 PRINT 'VOU '; 

1588 PRINT "I"; INT(F*18e>/i8e; 

1598 PRINT ', BUT FUNERRL EXPENSES RRE '; 

1686 PRINT '%•; INT(C8*i88)/m 

1618 PRINT' " 

1628 LET H=H-C8*F 

1628 GOTO 748 

1648 IF E=8 GOTO 1128 
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1658 PRINT "IBS FROM VOUR BOSS:' 

1668 OH ( INT(RND(6)*3H1) GOTO 1766, 1888 

1678 LH L=INT(RND(8)*2888)+1 

1688L£TE=E-L 

1696 PRINT "TO GOT A "; 

1768 PRINT "$"; INT(L*iee>/18B; 

1718 PRINT" DECREflSE IN PRV. ■ 

1728 PRINT-TO HOI EARN "; 

1728 PRINT "$";IHT(E*188>/1B8; 

1748 PRINT", " 

1758 GOTO 748 

1766 PRINT "YOU'RE FIRED! (HA!)" 

1778 LET E=8 

1788 LET C=tHT«y4> 

1798 GOTO 748 

1888 LET R6=INT(RH>(8>*5888>+1 

1818 LET E=E+R6 

1828 PRINT "TO GOT A RAISE OF "; 

1838 PRINT "IMNTCRettee)/^; 

1848 PRINT". "iOWOB^'VOU WW EfiRH "i 

1856 PRINT **'; INT<E*19B)/ie8; 

1868 PRINT". " 

1878 GOTO 748 

1888- print "the-ooctor sflvs to need h vacation do to go"; 

isminputzi 

1988 z*=left$(zi, 1) 

1918 PRINT 

1329 LET V=lNT<RHK8>*2888Hie88 

1938 IF 2$="N" GOTO 1386 

1948 PRINT "GOOD, THE VACATION COSTS "; 

1958 PRINT "t"iINKV*18B>/iee; 

1968 PRINT ". " 

1978 GOTO 1998 

1988 PRIHT "TO JUST HAD A NERVOUS BREAKDOSM. HEDICH. COSTS " V 

1998 LET H=H-V 

2868 GOTO 748 

1816 FOR 1=1 TO 4 

2828 LET S(I)=INT(( INT(RND(6)*i88Hie8+2*S(I)V2> 

2838 NEXT I 

2648 FOR 1=1 TO 1893 

2858 NEXT 

2868 PRINT 6 64, "I STOCK NKE 

2878 PRINT"- 

2888 PRINT'l IBH (INCREDIBLY B«> MACHINES)";! 

2896 PRINT"2 USS (USELESS t STINKY STEEL) 

2168 PRINT"3 NCR (NO CRSH RETURN) 

2118 PRINT"4 TW (TOTAL URECK AIRLINES) 

2128 PRINT CHRK31); 

2138 IF S(9)=l GOTO 3846 

2148 PRINT 8 822,"<B>UY, <S>ELL«188 FEE), OR DO OOOTH1NG ?" CKR$(95>; 

2158 Z«=IHKEY$ 

2168 IF S=" THEN 2158 

2178 PRINT CKRK8); Z* 

2188 IF Z*="S" GOTO 2268 

2198 IF Z$="H" GOTO 2328 

2288 PRINT "STOCK » AM) QUANTITY"; 

2216 INPUT S3, S(8) 

2228 LET S(4+S3)=S(4+S3XS(8> 

2238 LET C=-2 

2248 LET H=H-S(S3)*S<8)-168 

2258 GOTO 2868 

2268 PRINT "STOCK 8 AND QUANTITY"; 

2278 INPUT S2, 55 

2288 IF S5)S(4+S2) GOTO 2268 

2298 LET S<4+S2)=S(4+S2)-S5 

2388 LET H*S(S2)*S5-168 

2318 GOTO 2146 

2328 LET S1=S(5HS(6HS(7)+S(8) 

2338 IF S08 GOTO 788 

2348 LET 0=-l 

2358 GOTO 788 

2368 PRINT "NEHS FLASH! ! ! " 

2378 IF RND(8)>.5 THEN 2488 

2388 PRINT "A TORNADO HAS JUST HIT THE HOKE OF ";At;" " 

2398 GOTO 2418 

2488 PRINT "UN AIRPLANE HAS JUST CRASHED INTO THE HOME OF Mtti ". " 

2418 LET D8=IHT(RH>(8)*56886!)ti 

2426 LET H=H-D8 

2438 PRINT "DAHAGES HAVE BEEN ESTIMATED AT "; 

2448 PRINT "*"; IHT(D8*188)/ie8; 

2458 PRINT ". " 



S(l) 


=RICE 


SHARES OWNED 


■ 


•;S(5) 


S(2) 


" 


";S(6) 


S(3) 


■ 


■;S(7) 


S(4) 


" 


■;S(8) 



2468 GOTO 748 

2478 PRINT "OH! YOU JUST GOT "; 

2488 IF V-1388<55 GOTO 2548 

2496 iFRM)(e».4G0T0 2528 

2588 PRINT "CANCER"; 

2516 GOTO 2558 

2528 PRINT "A HEART ATTACK"; 

2538 GOTO 2558 

2548 PRINT "LEUKEMIA"; 

2558 LET M2=IHT(RH>(8)*5888)*188e 

2568 LET IMHC 

2578 PRINT ". MEDICAL BILLS ARE ■; 

2588 PRINT "$"; INT(H2*ieB)/188; 

2598 PRIHT ". " 

2688 IFRND(B)C5G0T0 618 

2618 GOTO 748 

2628 PRINT "YOU JUST HAD A CAR ACCIDENT! MEDICAL COSTS" 

2638 LET H3=INT(RND(8)*388BH1688 

2648 LET Q7=INT(RND(e)«5ee8>ti68 

2658 PRINT "ARE "; 

2668 PRINT "J"; INT(K3«lfl8Vi8e; 

2678 PRINT ", REPAIRS COST "; 

2688 LET H=H-H3-07 

2698 GOTO 748 

2788 IF E=8 GOTO 1288 

2718 LET E2=iB888*INT(RMK8>*598B> 

2728 PRINT "TO ARE OFFERED ANOTHER JOB FOR "; 

2738 PRINT "MOULD TO LIKE TO MOOM.IGHT"; 

2748 INPUT Z* 

2758 PRINT 

2768 IF LEFTK2J, 1)="N" THEN 748 

2778 ON INT(RND(8)*3) GOTO 1766, 2888 

2788 LET E=E«E2 

2798 GOTO 748 

2888 PRINT "FROM OVERWORK TO GET " 

2818 GOTO 2528 

2828 LET R2=IHT(RND(8)*188B8>45ee8 

2838 LET M=M-R2 

2848 PRINT "YOUR HOME HAS BEEN ROBBED OF GOODS NORTH "; 

2858 GOTO 746 

2868 IF 0=-l GOTO 1888 

2878 IF RM)(8». 7 GOTO 1888 

2888 LET B4=IHT(RK>(8>*4> 

2898 PRIHT "STOCK MARKET CRASH!!! EACH OF YOUR"; SI; "SHARES OF' 

2986 PRINT "STOCK IS NORTH "; 

2916 PRINT "$";INT(B4*188Viee; 

2928 PRINT " FOR A TOTAL OF "; 

2938 PRINT "f; IHT((Sl*84)*188>/188i 

2948 PRINT " " 

2356 LET R=H+S1*84 

2968 LET 0=-l 

2978 GOTO 748 

2388 PRINT "TO HAD "; 

2336 PRINT "*"; INT(K*188)/163; 

3868 PRINT ". " 

3816 IF 0=-l GOTO 3888 

3828 LET S(9)=l 

2838 GOTO 2818 

2846 LET R=H+S(1)«S(5)+S(2>*S(6)+S(3>*S(?HS(4)*S(8) 

3858 PRINT "H1TH STOCK VALUE TO HAVE "; 

3868 PRINT "*"; INT(MH68)/183; 

3876 PRINT " • 

3688 IF M(8 GOTO 3138 

3898 IF IK588888! GOTO 3168 

3188 IF HOE+86 GOTO 3188 

3116 PRINT A*; " HON! ! YOU ARE A MiaiONAIRE! !" 

3128 GOTO 3198 

3138 PRINT "TO LOUSY WXi'*!!! NOH YOUR POOR FRHILY HAS TO PAY" 

3148 PRINT "OFF YOUR DEBTS. " 

3158 GOTO 3198 

3168 PRINT "NOT BAD, ";A*;" " 

3176 GOTO 3138 

3188 PRINT "CLOSE, ";AI; ■ MAYBE NEXT LIFE. " 

3198 PRINT -THfifKS FOR PLAYING 'MILLIONAIRE', ";«; "!!!!" 

3268 PRINT 

3218 PRINT 

2228 EM) 

2238 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 

3248 IF INKEYJ =" THEN 3248 

2258 OS 

3268 RETURN 
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Minotaur 




4 



In this game, you are in a three level 
cavern. Inside the cavern are ten pillars 
which stretch through all three levels; 
they're electrified so that if you touch 
them you are immediately vaporized. 
Furthermore, there are trap doors 
which appear randomly and drop you 
down one level. The top level is three, 
the second level down is two, the first 
or lowest level is one. If a trap door 
appears in level one you are dropped 
into a bottomless pit and that ends the 
game. The minotaur itself also poses a 
hazard. If you wound him with your 
spear, he will charge you. Also, he 
randomly charges for no reason at all. 
However, he only charges in a straight 
line. Hint: keep at a slight diagonal from 
the minotaur until you are ready to 
throw your spear at him and you have a 
better chance of avoiding his charges. 
If you ask for a map, the axes are drawn 
in with X's. This does not indicate a 
barrier or fence; you are free to move 
across the X and Y coordinate planes. 
However, you are advised not to move 
out of any of the four edges as this 
represents yet a different form of 
bottomless pit and also ends the game. 
There are many, many additional 
hazards which are not shown in the 
sample run. Try it, and be surprised! 

This program was conceived and 
written by Pete Klausler. 
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MINOTAUR 
CREATIVE CONFUTING, MORRISTOWH, NEH JERSEV 
CIS ■ 



DO VOU HflMT TO BE THE MINOTAUR CHAMPION? V. 
VOU MUST BEAT A SCORE OF 28. 



. MINOTAUR. . 



■ ois • 



DO VOU NEED INSTRUCTIONS? V. 

THE OBJECT OF THE OfiME IS TO KILL THE MINOTRUR 

CAVERN. 



THE CAVERN OF THE MINOTAUR IS IN THREE 
LEVELS. EACH LEVEL IS A COORDINATE PLANE 
OUTSIDE OF THE LEVELS THERE IS NOTHING BUT 
VACUUM. THE PLANES STRETCH OUT 18 ON EACH 
AXIS FROM THE ORIGIN 

(PRESS ANY KEV TO CONTINUE) 
els 



.HAZARDS. 



BARRIERS 

INSIDE THE CAVERN ARE 18 ELECTRIFIED 
PILLARS STRETCHING THROUGH THE THREE 
LEVELS. THEY HILL DESTROY ANYTHING THAT 
TOUCHES THEM! ! 

(PRESS ANY KEY TO CONTINUE) 
■ els • 



TRAPDOORS 

TRAPDOORS WILL APPEAR OUT OF NOWHERE 
AND DROP YOU DOWN ONE LEVa. IF YOU MERE 
OH LEVEL - ONE, YOU LOSE!! 



CHARGING MINOTAUR 

THE MINOTAUR WILL CHARGE YOU IF VOU 
HOUND HIM WITH YOUR SPEAR ALSO, HE 
MAY CHARGE FOR NO REASON AT ALL! ! ! ! 
'PRESS ANY KEY TO CONTINUE) 
• els • 



HERE ARE YOUR CONTROL FUNCTIONS 

1) MOVING EAST 

2) MOVING WEST 
2) MOVING NORTH 

4) MOVING SOUTH 

5) MOVING UP A LEVEL 

6) MOVING DOWN A LEVEL 

7) THROWING YOUR SPEAR 
6) GETTING A HAP 

(PRESS ANY KEY TO CONTINUE) 
els — 



. HAVE FUN. . 



(PRESS ANY KEY TO CONTINUE) 
els 
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I HILL NOH SET THE BARRIERS. 
BARRIER it 1 (-6,-9 ). 
BRRRIER8 2 :(-9 ,-5 ). 
BRRRIER I 3 •( 4 ,-2 ). 
BARRIER* 4 :( 10 ,-7 ). 
BRRRIER #5 '(-7 ,-6 >. 
BRRRIER • 6 :C-5 ,-5 ). 
BRRRIER t 7 :(-4 , 1 ). 
BRRRIER t 8 :l-5 ,-6 ). 
BRRRIER 8 9 :( 2 ,-S ). 

: « 18 :( 1 , 16 ). 

(PRESS ANY KEY TO CONTINUE) 

Ol8 



ON MUCH LEVEL 00 YOU WANT TO STRRT? 3 

WHICH POINT? 2,-2 

HOW FRR DO YOU HflNT TO HOVE PER TURN? 1 

TURN 1 HINOTRUR IS AT (-16 , 6 ), ON LEVEL 2 ? 6 
YOU ARE AT (2,-2 ), ON LEVEL 2. 

TURN 2. MINOTAUR IS RT (-10 , 1 ), ON LEVEL 2 ■> 1 
YOU ARE AT ( 2 ,-2 ), OH LEVEL Z 

TURN 2. HINOTRUR IS AT (-16 , 1 ), ON LEVEL 2 ' 1 
YOURRE RT ( 4 ,-2 ), OH LEVEL Z 

TURN 4. HINOTRUR IS AT (-10 , 1 ), ON LEVEL 2 ? L 
els 



YOU ARE RT ( 5 ,-2 ), ON LEVa : 

TURN 5. HINOTRUR IS RT (-18 , 1 ), ON LEVEL 2 ' 3 
YOU ARE RT ( 5 ,-1 i, ON LEVEL Z 

TURK 6. HINOTRUR IS RT (-10 , 1 ), ON LEVEL 2 ' 3 
YOU ARE AT C 5 , ), ON LEVEL Z 



(-1 


2 ) 


( 


2 ) 


( 1 


2 ) 


( 2 


2 ) 


( 3 


2 ) 



els ■ 



( 4 , 2 ) 


(5.-2) 


(5,1) 


(5,6) 


BITE 


CHEW 


CHOW 


GULP 


YOU LOSE, SUCKER 


WOULD YOU LIKE TO PLAY AGAIN? 


Ol 



10 CLEAR 80 

20 OS 

36 PRINT 8 411, "HINOTRUR" 

49 PRINT 

58 PRINT TAB(li)"CREATIVE COMPUTING, HORRISTOHN, NEW JERSEY" 

66 PRINT:PRINT:PRINT:PRIHT 

78DIHBX(15),Ci(15) 

88 GOSUB 1288 

98 REH INSTRUCTIONS 

168 GOSUB 1468 

118 L3K=1 

128 L1Z=1NT(RND(8)*2)+1 

130 X1Z=INT(RND(6)*(-21))+11 

146 Y1X=INT(RND(8)*(-21»+11 

158 PRINT 

168 PEN BflRRIERS 

178 GOSUB 2138 

188 REH PLACE PLRYER 

198 GOSUB 2238 

260 REH START GAHE 

210 REH SPEAR 

220 IF X2X=S1Z AND Y2?.=S2Z AND L2Z=S3! RND TX>1 THEN 3780 

238 REH IS HE EATEN? 

240 IF X1Z=X2X AND VZS=V1X AND U2A2/. THEN 3766 

258 REH CHARGING 

260 IF RND(0)C 1 THEN 2686 

270 REH TURN » 

288 TX=TX+1 

298 PRINT-TURN"; Tfc CHR*(8>; " HINOTAUR IS AT ("; OXi ", "; VIS; "), ON LEVEL"; Lifc 

368 INPUT Z>. 

310 SAX=PEEK(16192) 

320 SBX=PEEK(16256) 

320 IF SAJ054 OR SBX>54 THEN as 

240 ON V. GOTO 358, 288, 488, 438, 458, 488, 506, 3118 

358 X2Z=X2Z+RJ 

368 IF RBS(X2X»18 THEN 1098 

270 GOTO 1110 

388 m.^x/.-n 

298 GOTO 260 

436 YZ'.=Y2X+FZ 

416 IF ABS(Y2;i)>16 THEN 1898 

426 GOTO 276 

430 w.^rn.-n 

448 GOTO 416 

458 LZH2Z+1 

468 IF L202 OR L2K1 THEN 1268 

478 GOTO 276 

488 LZi=L2Z-l 

496 GOTO 466 

500 REH SPEAR-THROWING 

510 IF LiXOLZi THBI 1018 

528 IF X1XOX2X RND Y0OY2;'. THEN 1820 

528 IF X1XOX2X AND ABS(Y1X-YZ'.)>10 THEH 1850 

540 IF ABS(X1X-X2Z)>10 THEN 1858 

558 IF Sffl=i THEN 2818 

568 PRINT'IN WHICH DIRECTION WOULD YOU LIKE TO THROW (USE 1,2,2,4)"; 

578 INPUT W. 

588 PRINT'HOW FRR"; 

590 INPUT H2K 

688 CLS 

618 <3SfcW. 

620 S6Z=Y2X 

638 FOR H3X=i TO H2X 

648 ON HIS GOTO 658,688,788,728 
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658 S5X=S5X+i 

we if flBS(S5z»ie then m 

676 GOTO 750 

688 S5X=S5M 

690 GOTO 668 

788 S6X=S6X+i 

718 IF ABS(S6X»10 THEN 828 

728 GOTO 758 

738 SSHrSSX-i 

748 GOTO 718 

758 PRINT"SPEAR IS fiT (■;S52;V;S6r>. " 

768 REH TEST FOR BflRRIERS 

778 FOR AX=i TO 18 

788 IF S5X=BX(AX> AND S6Z=a<AX) THEN 818 

798 NEXT AX 

888 GOTO 838 

818 PRINT "SMASHED SPEAR SPLINTERED AGAINST BARRIER I"; Kb CH»<8); " " 

828 GOTO 1878 

838 NEXT K3X 

848 IF S5XOX1X OR S6XOV1X THEN 948 

858 XX=IHT<RND<8)*3H1 

868 ON ffi GOTO 878,948,1888 

878 PRINT'VOU KILLED THE HINOTAUR IN'iTS "TURNS. " 

888 GOTO 1378 

898 PRINTrPRIHT'HOULD VOU LIKE TO PLflV AGAIN"; 

988 INPUT X$ 

918 IF LEFT»<X*,i>0"V THEN 3858 

928 CLS: TX=8 

938 GOTO 118 

948 PRINT'VOU NISSED. SPEAR IS AT C; S57j ", ■; S6X; "). VOU MUST GET IT. ' 

958 S1X=S5X 

968 S?/.=S&>. 

978 S3X=L2X 

988 S9M 

998 GOTO 218 

1888 GOSUB 2678 

1818 PRINT'VOU ARE NOT ON THE SAKE LEVEL VOU CANNOT THROW. " 

1028 GOTO 378 

1838 PRINT'VOU ARE NOT ON THE SAME X OR V LINE. VOU CANNOT THROR " 

1848 GOTO 378 

1858 PRINT'VOU ARE NOT WITHIN 16. VOU CANNOT THROW. " 

1868 GOTO 378 

1878 PRINT'VOU ARE NOH WEAPONLESS. VOU LOSE, SUCKER!" 

1888 GOTO 898 

1698 PRINT"VAAAAAAAflfiAARAAAAH VOU FELL OFF THE EDGE 1 " 

1188 GOTO 1888 

1118 PRINT'VOU ARE AT <";X22;",";V2X;">, ON LEVR";L22iCHR*(8>;" " 

1128 REM TEST FOR BARRIERS 

1138 FOR AM TO 18 

1148 IF X2X=BX(AX> AND V2X=CX(AX) THEN 1178 

1158 NEXT AX 

1168 GOTO 1198 

1178 PRINT'VOU HAVE JUST FRIED V0UR5ELF ON AN ELECTRIFIED BARRIER " 

1188 GOTO 1688 

1198 REH TRAPDOORS 

1288 XMNT(RND(8>*16H1 

1218 IF X2=5 THEN 1238 

1228 GOTO 2348 

1238 PRINPVAAAAflAAAflAAARAH TRAPDOOR, VOU FELL DOWN ONE LEVEL" 

1248 L2X4.2X-1 

1258 IF L2X>0 THEN 1228 

1266 PRINT'VOU FELL OUT OF THE CAVERN. VOU LOSE " 

1278 GOTO 1888 

1288 PRINT "DO VOU WANT TO BE THE HINOTAUR CHAMPION"; 

1298 INPUT X9$ 

1388 IF LEFT*<X9$,i)0"V THEN CLS: GOTO 1368 

1318 CLS 

1328 C2X=28 

1338 PRINT'VOU MUST BEAT A SCORE OF 28. " 

1348 DIH C3$(72) 

1356 DIH C4$(72> 

1368 RETURN 

1378 IF LEFT*(X9S,1)0"V THEN 898 

1388 IF TX=8 THEN T/.=i 

1396 C3M/TM86 

1488 IF C3X<26 THEN 1438 

1416 PRINT'VOU ARE NOH A QUALIFIED CHAMPION!" 

1428 GOTO 898 

1438 PRINT "SORRV, VOU DID NOT BEAT THE CHAMPION " 

1448 PRINT 'DO VOU WANT TO PLflV AGAIN'; 

1458 GOTO 988 



1468 REM INSTRUCTIONS 

1478 PRINT 

I486 FOR WSM TO 127: SET(WSX,4>:NEXT HSX 

1498 PRINT 8 91, "MINOTAUR" 

1568 PRINT 

1518 PRINT 

1528 PRINT "DO VOU NEED INSTRUCTIONS"; 

1538 INPUT X* 

1548 IF LEFTt(Xt,l>0"V" THEN CLS: GOTO 2128 

1558 as 

1568 PRINT 

1576 PRINT "THE OBJECT OF THE GAME IS TO KILL THE MINOTAUR" 

1588 PRINT 

1598 FOR EDM TO 127: SET (EDX, 18): NEXT EDX 

1686 PRINT 6 219, 'CAVERN"; 

1618 PRINT 

1628 PRINT 

1638 PRINT TABC12) " THE CAVERN OF THE HINOTAUR IS IN THREE" 

1646 PRINT TABC12) "LEVaS. EACH LEVEL IS A COORDINATE PLANE. " 

1656 PRINT TABC12) "OUTSIDE OF THE LEVELS THERE IS NOTHING BUT" 

1668 PRINT TAB(12) "VACUUH THE PLANES STRETCH OUT 18 ON EACH" 

1678 PRINT THB(12) "AXIS FROM THE ORIGIN " 

1686 PRINT 

1698 GOSUB 3868 

1788 CLS 

1718 FOR EDM TO 127: SETtEDM): NEXT EDX 

1728 PRINT 8 91 "HAZARDS' 

1738 PRINT: PRINT 

1748 PRINT TAB(28) "BARRIERS' 

1756 PRINT 

1768 PRINT TAB02) " INSIDE THE CAVERN ARE 16 ELECTRIFIED" 

1778 PRINT TABC12) "PILLARS STRETCHING THROUGH THE THREE" 

1788 PRINT THB<12) "LEVELS. THEV HILL DESTROV ANYTHING THAT' 

1798 PRINT TABC12) "TOUCHES THEM!!" 

1888 PRINT 

1818 GOSUB 3868 

1828 CLS 

1838 PRINT TAB(28) "TRAPDOORS" 

1846 PRINT 

1858 PRINT TAB(12> "TRAPDOORS Hill WEAR OUT OF NOWHERE" 

1868 PRINT TAB(12) "AND DROP VOU DOWN ONE LEVEL IF VOU WERE" 

1878 PRINT TRBC12) "ON LEVEL ONE, VOU LOSE! !" 

1888 PRINT:PRINT 

1898 PRINT TA8(24) "CHARGING MINOTAUR" 

1968 PRINT 

1918 PRINT TABC12) ■ THE HINOTAUR WILL CHARGE VOU IF VOU" 

1928 PRINT TRB02) "WOUND HIM WITH VOUR SPEAR. ALSO, HE" 

1938 PRINT TAB(12) "HAV CHARGE FOR NO REASON AT ALL! ! ' !" 

1946 GOSUB 3868 

1958 CLS 

19€8 PRINT: PRINT 

1978 PRINT TAB(21) "HERE ARE VOUR CONTROL FUNCTIONS" 

1988 PRINT TA8C27) "i> MOVING EAST" 

1996 PRINT TAB(27) "2) MOVING WEST" 

2888 PRINT TABC27) "3> MOVING NORTH" 

2818 PRINT TAB(27) "4) MOVING SOUTH" 

2828 PRINT TAB(27) "5) MOVING UP A LEVR" 

2838 PRINT THB(27) "6) MOVING DOWN A LEVEL" 

2848 PRINT TAB(27) "7) THROWING VOUR SPEAR" 

2858 PRINT TABC27) "8) GETTING A MAP" 

2868 GOSUB 3868 

2878 CLS 

2888 PRINT: PRINT 

2898 FOR EDM TO 127: SET(EDM8): NEXT EDX 

2168 PRINT 6 219, "HAVE FUN" 

2118 GOSUB 3868: CLS 

2128 RETURN 

2138 REM BARRIERS 

2148 PRINT "I HILL NOW SET THE BflRRIERS. " 

2158 FOR AM TO 18 

2168 B2<RS!>= INT(RND(6)*(-21))+li 

2178 C.(AX>= IHT<RND<8>«-2i)Hii 

2188 PRINT "BARRIER #«;AX;':(";BX(AX>; VjCXCAX);'). " 

2198 NEXT AX 

2288 PRINT 

2216 GOSUB 3868 

2228 RETURN 

2238 REM PLACE PLAVER 

2246 CLS 

2258 PRINT "ON WHICH LEVEL DO VOU WANT TO STHRT"; 

2268 INPUT L2X 
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2270 PRINT: PRINT "WHICH POINT"; 

2288 INPUT X22,Y2Z 

2290 PRINT 

2288 PRINT "HOW FAR DO VOU NANT TO HOVE PER TURN"; 

2310 INPUT FZ 

2328 PRINT 

2330 RETURN 

2340 REM HOVE MINOTAUR 

2358 X4X=X1X 

2368 Y4X=YiX 

2378 L424.1X 

2388 X3£=IHT(RND(0)*6H1 

2298 ON X22 GOTO 2480, 2450, 2478, 2528, 2548, 2590 

2408 xix=xiz+i 

2418 IF ABS<X1K»10 THEN 2438 

2428 GOTO 2618 

2430 X12=X4X 

2440 GOTO 2388 

2458 m=W-i 

2468 GOTO 2410 

2470 YIMIM 

2488 IF ABS<Y1K»10 THEN 2580 

2490 GOTO 2610 

2500 W=W. 

2510 GOTO 2288 

2528 IF XiZ=BX«tt> AND ViX=CZ«K> THEN 2288 

2538 GOTO 2488 

2548 L124.12+1 

2558 IF LiX>2 OR LIKi THEN 2578 

2560 GOTO 2610 

2570 UX=L4Z 

2588 GOTO 2380 

2596 L1M.1X-1 

2608 GOTO 2558 

2618 FOR flK=i TO 10 

2620 IF X1X=K!CIK) RND W.=CX((K) THEN 2380 

2638 NEXT Hi 

2648 PRINT 

2650 GOTO 218 

2668 PRINT 

2678 PRINT "VOU HOUNDED THE MINOTAUR" 

2688 FOR 12=1 TO 758: NEXT 12 

2630 CLS: PRINT "THE MINOTAUR IS CHARGING" 

2700 IF WOW. THEN 2738 

2718 X2X=i 

2720 GOTO 2750 

2728 X22=-l 

2740 GOTO 2758 

2750 IF Y1X>Y22 THEN 2788 

2768 Y32=i 

2770 GOTO 2808 

2788 Y32=-i 

2790 GOTO 2888 

2808 IF Li%X22 THEN 2820 

2810 GOTO 2830 

2820 L22=-i 

2838 IF L1X=L22 THEN 2888 

2848 UL2=L1X+L22 

2858 PRINT "LEVEL"; L12 

2868 GOTO 2830 

2870 REM HI THERE 

2888 IF X1X=X22 THEN 2938 

2898 XiX=X12+X22 

2988 G05U8 2970 

2918 PRINT "(";XlZ;V;Yi2;">* 

2928 GOTO 2888 

2938 IF YiX=Y22 THEN 3848 

2948 WMX+Y22 

2958 GOSUB 2978 

2968 GOTO 2910 

2970 FOR PM TO 10 

2988 IF B2(P2)=X1X AND CX<PX>=YiZ THEN 3010 

2998 NEXT PX 

3880 RETURN 

3818 PRINT "B2Z2222ZZ22Z222ZZ2Z20HNT! MINOTRUR JUST FRIED HISSELF" 

2028 PRINT "VOU KIN, VOU LUCKEV SCAB" 

3038 GOTO 1278 

3840 PRINT "BITE" 

2858 PRINT "CHEW" 

3068 PRINT "CHOMP" 

3878 PRINT "GULP" 



2088 PRINT "VOU LOSE, SUCKER" 
2898 GOTO 898 
2188 REN PRINT BOARD 
3110 PRINT "HHAT LEVEL"; 
3128 INPUT L4X 
2128 CLS 

3148 REM PRINT HEADER FOR BOARD 
2158 PRINT " 1"; TRB<13) CHR$C92); TAB<22)"1"; 
2160 PRINT TRB(32>" 1";TAB(45) CHR«92); TAB(55)"1" 
3170 PRINT " -098765422101234567898+"; 
3180 PRINT TABG4) "-098765422101234567898+" 
2190 REM V4 IS VERTICAL COORDINATE 
3208 FOR Y42=10 TO 8 STEP -1 

3218 REH 24=1 PRINTS TOP OF BOARD; Z4=2 PRINTS BOTTOM PART 
2220 FOR 242=1 TO 2 
2230 REN CHECK IF DONE 
3248 IF Z42=2 AND V42=0 THEN 3680 
2258 REM PRINT POSITIVE V COORDINATE OTHER THEN 10 
2260 IF 24X=1 AND ¥4X010 PRINT V42; 
2270 REH PRINT POSITIVE 18 
2288 IF 242=1 RND Y42=18 PRINT "+18"; 
2298 REM PRINT NEGATIVE 18 
3308 IF 242=2 AND Y42=l PRINT TAB(32)"-10"; 
3310 REN PRINT NEGATIVE 1 (1 UITH NEGATIVE SIGN) 
2228 IF 242=2 AND V4X=10 PRINT TAB<22)"-1 "; 
2220 REM PRINT NEGATIVE V COORDINATE 
2340 IF 242=2 AND Y42O10 AND V4201 PRINT TAB(32>i0-Y42+i; 
2250 REM IF 24=2 CONVERT V4 TO NEGATIVE V4 
3268 IF 242=2 THEN Y4X=-¥42 
2370 REN X4 IS H0RI2ONTHL COORDINATE 
2288 FOR X42=-10 TO 10 

2298 IF 242=1 PRINT TAB<2>"; ELSE PRINT TAB(25)""; 
2480 IF X2SJ=X4X AND V2Z=V4K AND L42=L2X THEN 2510 
2410 IF X4X=X1X RND V42=Y12 RND L42=L1X THEN 3528 
2420 IF L42=S12 AND V4Z=S2X RND L42=S2X THEN 2558 
2428 FOR A2=l TO 10 

.2448 IF B2(A2)OX42 OR C2<RX)OY42 THEN 3460 
3458 GOTO 2588 
3460 NEXT A2 

2478 IF X4X=8 AND Y4X=9 THEN 3688 
2488 IF X42=0 OR V42=0 THEN 2628 
2498 PRINT " "; 
2508 GOTO 2638 
2518 PRINT "V; 
3528 GOTO 2500 
2528 PRINT "tf; 
2540 GOTO 2500 
2550 IF S92=8 THEN 2428 
2568 PRINT "S"; 
2578 GOTO 2580 
2588 PRINT "B"; 
2598 GOTO 2560 
2608 PRINT '0"; 
2610 GOTO 2560 
2620 PRINT "X"; 
2628 NEXT X42 
2648 NEXT Z4X 
2658 Y42=RBS(Y42> 
2660 PRINT 
2678 NEXT Y42 
2688 PRINT 

2690 PRINT "-KEY-"; TBB(i6);"V=V8U"; TRBC22); "H=MINOTAUR"; TABC48); "S=SPEAR" 
2788 PRINT TABU6) ■B=BARRIER"; TAB<32); "0=ORIGIH"; TAB<48>; "X=AXIS" 
3718 PRINT 9 960, STRING$<63," "); 
2720 GOSUB 2868 
2728 PRINT 
2748 CLS 
3750 GOTO 2340 

2760 PRINT "MINOTAUR MOVED TO YOUR SPOT. HE SAID VOU TASTED GREAT! ! " 
3778 GOTO 898 

3788 PRINT "VOU HAVE VOIR SPEAR" 
3798 S92=8 
3880 GOTO 230 

3818 PRINT 'HON CAN VOU THROH YOUR SPEAR IF VOU DON'T HAVE ONE?" 
3828 PRINT "SPEAR IS AT<";S1X;",";S2X;"> ON LEVEL ";S22 
2838 GOTO 378 
3848 STOP 
3858 END 

2860 PRINT 975, "(PRESS ANY KEY TO CONTINUE)"; 
2870 INS=MEY*:IF IW="" THEN 2870 
2888 RETURN 
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This program, originally titled EVILK 
permits you to act out your fantasies of 
being a motorcycle daredevil! The 
game is a simple motorcycle jump over 
several busses, which takes into ac- 
count both gravity and drag forces. The 
ramp angle and motorcycle speed 
determine the distance jumped. Note 
that the injury penalty is greater for 
long jumps than for short ones, and 
that there is a chance for a crash even 
on a jump of the right length. This 
probability, initially set at .20, can be 
modified in line 450 to make survival 
more or less likely. 

This program was written by Charles 
Aylworth and originally appeared in 
Creative Computing, Jul/Aug 1978. 



COPVRIGHT 1979 



M0T0RCVCLE JUMP 
CREATIVE COMPUTING 



MORRISTOWN, NJ 



• els ■ 



WE'RE AT THE SCENE OF THE BIG MOTORCVCLE JUMP 1 
HOW MANV BUSSES MILL VOU TRV TO JUMP? 5 
5 BUSSES i THAT'S 75 FEET! 
mm RAMP ANGLE WILL VOU USE? 22 
HOW FAST WILL VOU LEAVE THE RAMP? 10 

*** G D LUCK*** 

— els 



THERE HE GOES! ! ! ! 

***HE'S SHORT OF THE RAMP .... 

I THINK HE'S HURT 

HELL, KILLER, THE DOCTOR SflVS VOU BROKE VOUR: 
RLEG RIBS PELVIS R. ARM BIKE FACE 
NECK PRIDE L ARM SKULL KNEE BUTT 
WANT TO JUMP AGAIN? VES. 
— — els 



BACK 



L. LEG 



WE'RE AT THE SCENE OF THE BIG MOTORCVCLE JUMP 1 
HOW MANV BUSSES WILL VOU TRV TO JUMP? 5 
5 BUSSES! THAT'S 75 FEET! 
WHAT RAMP ANGLE WILL VOU USE? 22 
HOW FAST WILL VOU LEAVE THE RAMP? 46 

*** G D LUCK*** 

— els — 



THERE HE GOES! ! ! ! 

««**»*****HE'S SHORT OF THE RAMP .... 

I THINK HE'S HURT 

WELL, KILLER, THE DOCTOR SAVS VOU BROKE VOUR' 
FACE KNEE NECK BUTT 
WANT TO JUMP AGAIN? VES_ 
els 



WE'RE AT THE SCENE OF THE BIG MOTORCVCLE JUMP 1 
HOW MANV BUSSES WILL VOU TRV TO JUMP? 5 
5 BUSSES! THAT'S 75 FEET! 
mm RAMP ANGLE WILL VOU USE? 22 
HOW FAST WILL VOU LEAVE THE RAMP? 48 

*** G D LUCK*** 

Cl3 



THERE HE GOES!!!! 

***************HE MADE IT! GREAT JUMP, KILLER! 

WANT TO JUMP AGAIN? NO. 



16 CLS: PRINT0409, "MOTORCVCLE JUMP" 

20 PRINT: PRINT TAB(7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 FOR A=l TO 3000: NEXT 

40 CLEAR 200: DIM I2C14), I*<84> 

50 I$="R. ARM L ARM R. LEG L. LEG BACK NECK SKULL RIBS KNEE BUTT " 

S0 I*=If+"FACE PELVISPRIDE BIKE " 

76 T= 1 

80 T2=0 

90 T3=B 

160 CLS: PRINT "WE'RE AT THE SCENE OF THE BIG MOTORCVCLE JUMP 1 " 

11B PRINT664, CHR*<31>; INPUT "HOW MANV BUSSES WILL VOU TRV TO JUMP";N 

120 J=N*15 

128 PRINT0128, N; "BUSSES! THAT'S"; J; "FEET!" 

140 PRINT0192, CHR*<31>; : INPUT "WHAT RAMP ANGLE WILL VOU USE",A2 

150 IF A2<90 AND A2>0 THEN 180 

16B PRINT8192, H2i "DEGREES? THAT'S IMPOSSIBLE. COME ON NOW, " 

170 FOR fi=i TO 500: NEXT A: GOTO 140 

180 A=A2* 01745 

190 PRINT0256, CHR*<31>; INPUT "HOW FAST WILL VOU LEAVE THE RAMP";S 

200 IF S<=0 THEN 190 

210 PRINT: PRINT "*** GOOD LUCK ***"■ PRINT 

226 H=6 
238 D=0 
240 G=6 

250 R2=0 
260 S2=0 

270 S=S*1 5 

280 PRINT "THERE HE GOES! ! ! ! " 

298 S=S-S2 
380 F=S*T 

318 D2=F*C0S(A) 

320 R=F*SIN<fl> 

338 R2=R2+<32*T) 
348 R3=R2*T 

350 H=H+R-R3 
369 D=D+D2 
378 PRINT "*"; 

380 S2=(S/120)*32*T 

390 IF D>=J THEN G=G-R 

480 IF GOO THEN G=0 

418 IF H>G THEN 298 

420 IF DCJ THEN 490 

430 IF D>J+20 THEN 520 

440 L=<(D-J)/30>+RND(8> 

450 IF L>. 8 THEN 538 

468 PRINT "HE MADE IT! GREAT JUMP, KILLER!" 

470 T2=T2+1 

480 GOTO 768 

490 PRINT "HE'S SHORT OF THE RAMP « 

580 L2=INTC(«J-DV5)*2)+<RND(0)*5)+. 5) 

510 GOTO 558 

529 PRINT "HE JUMPED TOO FAR!" 

538 PRINT "HE MISSED THE RAMP. " 

540 L2=INT«<D+20-JV20H<RND<0>*5)) 

550 PRINT "I THINK HE'S HURT. " 

560 FOR K=l TO 14 

570 I2(K)=K 

580 NEXT K 

590 K2=14 

600 IF L2>14 THEN L2=14 

610 IF L2<=0 THEN L2=l 

620 FOR K=l TO L2 

630 V=INT(RND(0)*1088) 

648 V=<V-<INTWK2>*K2>>+1 

650 H2=I2<V> 

660 I2<V)=I2<K2) 

670 I2(K2)=H2 

68S K2=K2-1 

690 NEXT K 

700 PRINT "WELL, KILLER, THE DOCTOR SAVS VOU BROKE VOUR:" 

718 FOR K=<15-L2) TO 14 

728 P=<6*I2(K»-5 

730 A$=MID*<I$,P,6> 

740 PRINT A$; " "; 

759 NEXT K 

768 T2=T3+1 

778 PRINT: INPUT "WANT TO JUMP AGAIN"; A$ 

780 IF LEFT*<A$, 1)="V" THEN 100 

790 CLS: PRINT "VOU MADE IT";T2;"0UT OF"; T3; "ATTEMPTS. " 

800 PRINT "BE CAREFUL, NOW. " 

810 END 
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COPVRIGHT 1979 CREATIVE COHPUTING H0RRI5T0UN, NJ 



"Gramma Nomad" is a person who 
doesn't really know where she wantsto 
live, so she moves to a new house every 
game. Then she sends you a telegram 
asking you to visit her. The object of the 
game is to successfully navigate your 
way through the streets of Garbonzo 
City to Gramma's house. See the game 
for more details. A map of Garbonzo 
City is provided for your reference. 

Nomad was written by Steve Trapp 
and first appeared in Creative Com- 
puting, Sep/Oct 1977. 



DO VOU HEED INSTRUCTIONS? VES. 

els ■ 




GRRtKA NOHAD IS R NICE OLD LADV HHO HAS NOT QUITE 
HflDE UP HER HIND HKERE SHE HUNTS TO LIVE. 
SHE HRS NRRROHED IT DOW TO SOKEHKERE IN GRRB0N20 CITV 
RND ON R STREET CORNER. 

AT THE BEGINNING, THE HRILHRN GIVES VOU R TELEGRRH HRITTEN 
BV GRflKHA TELLING VOU HKERE SHE LIVES. 
(I HILL RERD IT TO VOU). 

VOU GET INTO VOUR CAR AT LRRC NILKNRRF NRSGREB LODGE. 
FROH THERE VOU GO TO GRAKHAS HOUSE. 

PRESS RNV KEV TO CONTINUE 

_ els — — 

GRAfflR NOHAD IS fl NICE OLD LRDV HHO HRS HOT SUITE 
HflDE UP HER HIND WHERE SHE HANTS TO LIVE. 
SHE HRS NRRROHED IT DOHN TO SOKEHHERE IN GARBONZO CITV 
AM) ON A STREET CORNER 

AT THE BEGINNING, THE MRILHAH GIVES VOU A TELEGRRH WRITTEN 
BV GRRMHA TELLING VOU HHERE SHE LIVES. 
(I HILL RERD IT TO VOU). 

VOU GET INTO VOUR CRR RT LRRC NILKKARF NRMGREB LODGE. 
FROH THERE VOU GO TO GRAMS HOUSE. 

PRESS RNV KEV TO CONTINUE 

— __ els —— 



VOU TRV TO GET THERE WITHOUT: 

CRRSKUPS 

TICKETS 

aRT TIRES 

RUNNING OUT Of GAS 

DEADENDS 

THERE IS AH 8-HRN POLICE FORCE ENFORCING THE LRttS 
OF GARBONZO CITV. 

PRESS RNV KEV TO CONTINUE 

els 



THERE ARE 2-DRUNKS ON THE STREETS OF GARBONZO 

CITV. 

IF A POLICEMAN CATCHES fl DRUNK, HE HAS TO 

TESTIFY IN COURT 

(WHICH TAKES THE REST OF THE GfiHE) 

IF A DRUNK DRIVER HITS VOU, VOU LOSE. 
RT EACH JUNCTION, 1 HILL TELL VOU: 
THE DIRECTION VOU RRE GOING 
THE ROflD VOU ARE ON 
THE ROAD CROSSING 

PRESS ANV KEV TO CONTINUE 
els 



I URL ASK VOU: 

THE HRV VOU NRNT TO TURN (I.E., LEFT) 

SPEED (IN ffH> 

AN OVERPASS IS NOT fl JUNCTION, SO IT IS 

KERELV SKIPPED OVER. IT IS UNANNOUNCED. 

♦THAT IS ALL* 

HHflT IS VOUR NRHE? CHRIS 

**» GOOD LUCK «** 
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OEfiR CHRIS, 

HON ARE VOU? I LIVE RT THE CORNER 

OFRORD t 16 4 t 9 !!! 

COHE ON OVER. 

LOVE 
GRRHKR 

CCTELEGRRHHR CORP. TELEGRRH CO. )) 

SHOOSR . . BUS FLftTTEte VOUR CRR. 

AGAIN? VES. 



derr chris, 

hoh h£ vou? i live rt the corner 

OF RORD I 14 (18 !!! 

COHE ON OVER 

LOVE, 
GfflfflR 

CCTELEGRRHHR CORP. TELEGRRH CO. )) 

GOING SOUTH ON ROfD « i 

JUNCTION: RORD I 1 4 t 2 

FORHRRD, LEFT, RIGHT 05 U-TURN? F. 

els 

DEftR CHRIS, 

HON ARE VOU? 

OF RORD I 14 

core ON OVER. 



I LIVE RT THE CORNER 
4f 8 !!! 



LOVE, 



CCTELEGRRHHR CORP. TELEGRRH CO. )) 
GOING SOUTH ON POT) # i 
JUNCTION: RORD # 1 4 « 2 
FORHRRD, LEFT, RIOT OR U-TURN? F 
SPEED? 48. 



■ els ■ 



GOING SOUTH ON RORD I 1 
JUNCTION: ROfl) I 1 4 1 4 
PGRHRRD, LEFT, RIGHT OR U-TURN? F 
SPEED? 45. 

els — 

POP. .. BULLDOG RTE VOUR TIRE! 



RGR1N? VES. 



els ■ 



DERR CHRIS, 

HON RRE VOU? I LIVE RT THE CORNER 

OF RORD « 15 4 I 16 ! ! ! 

core ON OVER. 

LOVE, 
GRflKHR 

CCTELEGRRHHR CORP. TELEGRRH CO. )) 

GOING SOUTH ON RORD 8 1 

JUNCTION: RORD « 1 4 12 

FORHRRD, LEFT, RIGHT OR U-TURN? F 

SPEED? 68. 

els 

*** SPEEDING «* 

NOTCRUGHT 



■ els 



GOING SOUTH ON RORD t 1 
JUNCTION: RORD I 1 4 II 4 
FORMRRD, LETT, RIGHT OR U-TURN? F 
SPEED? 55- 

els — 

GOING SOUTH ON RORD f i 
JUNCTION: RORD * 1 4 15 
FORHRRD, LEFT, RIGHT OR U-TURN? F 
SPEED? 70. 

*** SPEEDING *** 

NOTCRUGHT 

*** OUT OF GRS «* 

RGRIN? NO. 



18CLS 

28 PRINT § 413, "HOHRD" 

38 PRINT 

49 PRINT TR8<7)"C0PVRIGHT 1979 

58 PRINT 8 968,"; 

69 IHPUT"DO VOU NEED INSTRUCTIONS"; I* 

78 DIH KIC38), Da 2), R(38, 38), E(38, 

88 DIH HC38) 

98 DIH Nl(38) 

186 REH GOSUB RULES 

118 GOSUB 2278 

128 REH RRNDOH NUN3ERS 

138 REH DEF FNACX)=INTCRHDC8)*X)+1 

148 REH # OF RORDS 

158RERDN 

168 FOR R=i TO N 

178 REH I OF INTERSEC 

188 REH) Q 

198 CCR)=RBSCQ> 

288 IF (K0 THEN 230 

218 H(R)=1 

228 GOTO 248 

238 HCR)=-1 

248 REH DIREC, RORD 

258 FOR J=i TO C(R) 

268 RERD ECR, J), RCR, J) 

276 NEXT J 

288NEXTR 

290 REH WW? 

388 PRINT ■UHRT IS VOUR NflHE"; 

318 INPUT N* 

328 REH OPENING STRTE1CNT 

338 PRINT 

348 PRINT ■«** GOOD LUCK ***" 

358 REH GRRHHRS HOUSE 

368 H1=RNDCN) 

378 H2=RHDCCCHi» 

388 REH DRUNK DRIVERS 

398 REN POLICE 

489 FOR R=l TO 8 

418 PCR, 1)=RND(H> 

428 PCR, 2>=RNDCCCPCR, 1)» 

438 NEXT R 

448 REH LRRC NILKNRRF NRHGREB LODGE 

458 R=l 

468 J=8 

478 1=1 

488 REH GOSUB CHECK 

498 GOSUB 1458 

588 REH GOSUB TELEGRRH 

518 GOSUB 1588 

528 REH RDD INCREHENT 

538 J=J+I 

548 REH NEED REPAIR? 

K9 IF RNDC16)=1 THEN 1888 

569 REH DEftD END? 

578 IF J>C(R) OR J=8 THEN 2888 

588 REH DIRECTION 

598 IF I=-i THEN 628 

688 D=ECR, J) 

616 GOTO 639 

628 D=9-ECR, J) 

638 REH RORD CROSSING 

648 C=RCR, J) 

650 REH SKIP LINE 

668 PRINT 

678 REH GOSUB *DIREC, RORD ON* PRINT 

688 GOSUB 1628 

698 REH RT GRRHHRS? 

798 IF Hi=R AND RCR, J)=RCHi, 

716 IF H1=R(R, J) RND R=RCH1, 

728 REH JUNCTION 

738 PRINT "JUNCTION: ROAD f";Pj" 4 l";C 

748 REH RSK WAT HAV TO TURN 

759 PRINT "FORifflRD, LEFT, RIGHT OR U-TURN' 

768 INPUT 1$ 



CRERTIVE CORPUTING HORRISTOHN, NJ" 



38), P<8, 2), C(38) 



778 IF LEFTKIS, 1)="F" THEN 978 

788 IF LEFT«», 1)="R" THEN 868 

798 IF LEFttCIt, 1)="L" THEN 888 

880 IF LEFttCU, 1)="U" THEN 848 

818 REH GOOFED 

828 PRINT "*** VOU GOOFED ***• 

838 GOTO 758 

848 1=1*1 

858 GOTO 976 

868 I=W(R)*I 

878 GOTO 890 

888 I=-1*H(R)*I 

898 FOR R=l TO C(C) 

988 IF R(C, R)=R THEN 938 

918 NEXT R 

928 GOTO 2388 

938 R=C 

948 J=fl 

958REHDRRE? 

968 IF RMK4)=i THEN 1268 

976 REH SPEED 

988 PRINT "SPEED"; 

998 INPUTS 

1888 CLS 

1019 REH DRNGEROUSITV CRRSH CHECKS 

1820 IF S>190 THEH 2138 

1838 IF S<38 THEN 2168 

1848 REH ILLEGRL? 

1850 IF S>55 THEN 2838 

1868 REH DRUNK DRIVERS DRIVE 

1878 FOR R=l TO 2 

1888 IF DCA 1)=8 THEN 1118 

1098 DCA 1)=RND(N) 

1189 DCA, 2)=RHDCCCDCA, 1))) 

1116 NEXT R 

1128 REH HIT BV DRUNK DRIVER? 

1138 FOR 0=1 TO 2 

1148 IF DCA 1)=8 THEN 1170 

1158 IF DCR, 1)=R AND RCR, J)=RCDCA 1), DCA 2)) THEN 1850 

1160 IF DCR, 1)=R(R, J) AND RCDCA 1), DCR, 2))=R THEN 1858 

1178 NEXT fl 

1188 REH IS DRIVER CRUGHT? 

1198 FOR R=l TO 2 

1288 IF DCR, 1)=8 THEN 1240 

1218 FOR B=i TO 8 

1228 IF DCR, 1>=PCB, 1) RND DCR, 2)=PCB, 2) THEN 1309 

1238NEXTB 

1248 NEXT fl 

1258 GOTO 528 
H2) THEN 1828 1260 REH SPEED DftRE PRINT 
H2) THEN 1828 1278 ON RNDC3) GOTO 1288, 1380, 1328 

1288 PRINT "I DRRE VOU TO SPEED « CDRREDEVID" 

1298 GOTO 1338 

1389 PRINT "*SPEEDIHG* IS FUN CSO DO IT) ! ! " 

1316 GOTO 1338 

1328 PRINT '♦SPEED* I DRRE VOU *SPEED* I DRRE VOU" 



121 



1338 GOTO 978 

1348 REM DRUNK CAUGHT 

1358 PRINT "A DRUNK DRIVER HR5 BEEN OUGHT. THE POLICEMAN HHO" 

1369 PRINT "ARRESTED H1N WILL BE TESTIFYING AT COURT FOR" 

1378 PRINT "THE REST OF THE CUE ■ 

1388 PRINT 

1398 DCA, 1>=8 

I486 OCR. 2>=8 

1416 P(B, 1>=8 

1428 P(B. 2>=8 

1438 GOTO 528 

1448 REH CHECK 

1458 FOR ft=l TO 8 

1468 IF tti=PCA, 1) AND RCHt H2)=RCPCA, 1), PCA, 2) ) THEN 358 

1478 IF W=R(P<fL 1). PCA, 2» AH) RCHt H2)=P(A, 1) THEN 358 

1488 NEXT R 

1498 RETURN 

1588 REH TELEGRAM PRINT-IP 

1518 PRINT 

1528 OS 

1538 PRINT "DEAR MttiV 

1548 PRINT "HON RRE VOU? I LIVE AT THE CORNER' 

1558 PRINT "OF ROAD f";Ht" SI"; RCHt H2)i"!!!" 

1568 PRINT "COME ON OVER. ' 

1578 PRINT " LOVE ■ 

1588 PRINT ' GRRHflA" 

1538 PRINT "((TELEGRRfflffl CORP. TELEGRAM CO. »" 

1688 PRINT 

1618 RETURN 

1628 REM *DIREC, ROAD ON* PRIHHJP 

1638 PRINT "GOING "; 

1648 ON D GOTO 1658, 1678, 1698, 1718, 1738, 1758, 1778, 1798 

1658 PRINT "NORTH") 

1668 GOTO 1888 

1678 PRINT "HEST"; 

1688 GOTO 1883 

1698 PRINT "NORTHEAST"; 

1788 GOTO 1883 

1718 PRINT "SOUTHEAST"; 

1728 GOTO 1888 

1738 PRINT "N0RTHHE5T"; 

1748 GOTO 1888 

1756 PRINT "SOUTHKEST"; 

1768 GOTO 1888 

1778 PRINT "ERST"; 

1788 GOTO 1888 

1798 PRINT "SOUTH"; 

1888 PRINT " ON RORD f";R 

1818 RETURN 

1828 REN AT GRAMMAS *PRINT* 

1838 PRINT "YOUKRDE IT TO GRRHNR'S HOUSE !!!!!!!!!" 

1848 GOTO 2183 

1858 REH DRUNK HIT YOUR CAR *PRINT* 

1866 PRINT "KERSPLRTT-DRUNK DRIVER HIT YOUR CAR. " 

1878 GOTO 2188 

1888 REH CAR NEEDS FIXING •PRIHT-UP* 

1898 ON RNDC5) GOTO 1988, 1928, 1948, 1968, 1S88 

1968 PRINT "POP... FLAT TIRE" 

1918 GOTO 1398 

1928 PRINT "FLIP... YOUR CAR DID R SUHERSALT" 

1938 GOTO 1998 

1948 PRINT "*** OUT OF GRS ***" 

1958 GOTO 1998 

1968 PRINT "SHOOSH... BUS FLATTENED YOUR CAR" 

1578 GOTO 1998 

1388 PRINT "POP... BULLDOG ATE YOUR TIRE!" 

1998 GOTO 2188 

2868 REN DEAD EM) PRINT 

2818 PRINT "*** DEAD END ***" 

2828 GOTO 2188 

2838 REH SPEEDING 

2848 PRINT '«* SPEEDING ***" 

2858 REH CAUGHT BY POLICE? 

2868 FOR X=l TO 8 

2876 IF PCX, 1>=R AND PCX, 1)=J THEN 2118 

2888NEXTX 

2898 PRINT "NOT CAUGHT" 

2168 GOTO 1868 

2U8 PRINT "CAUGHT SPEEDING BY THE POLICE!!" 

2128 GOTO 2188 

2138 REH TOO FRST *CRASH* 

2148 PRINT "KERSHOUSHIIEEEE..HENT TOO FRST !!!!" 

2158 GOTO 2183 

2166 REH TOO SLOW *CRASK* 

2178 PRINT "-*<CKRUNCH»*- TOO aOk . . CAR BEHIND RfiH INTO YOU!" 



2188 REH RGRIN? 

2198 PRINT 

2288 PRINT "AGAIN"; 

2216 INPUT 1$ 

2228 IF LEFTICU, 1>="Y" THEN 298 

2238 REH CLOSING STATEMENT 

2248 PRINT 

2258 PRINT "**» SEE YOU ***" 

2268 GOTO 2988 

2278 REH RULES? 

2288 REH RULES 

2298 IF LEFTJCI*, i)="N" THEN OS: GOTO 2768 

2388 CLS 

2318 PRINT "GRAHHA NOHAD IS A NICE OLD LADY HHO HAS NOT QUITE" 

2328 PRINT "HADE UP HER HIND »£RE SHE HANTS TO LIVE. " 

2338 PRINT "SHE HAS NARROWED IT DOW TO SOMEWHERE IN GARBONZO CITY" 

2348 PRINT "AND ON A STREET CORNER " 

2358 PRINT 

2368 PRINT "AT THE BEGINHING, THE HAILHAN GIVES YOU A TELEGRAM WRITTEN" 

2378 PRINT 'BY GRAHHA TELLING YOU WHERE SHE LIVES. " 

2388 PRINT "CI MILL READ IT TO YOU). " 

2398 PRINT 

2488 PRINT "YOU GET INTO YOUR CAR AT LRflC NILKNARF HRHGREB LODGE. " 

2418 PRINT 'FROH THERE YOU GO TO GRRHHRS HOUSE. " 

2428 GOSUB 2998 

2438 PRINT 'YOU TRY TO GET THERE HITHOUT:" 

2448 PRINT "CRASHUPS" 

2458 PRINT "TICKETS' 

2468 PRINT "FLAT TIRES" 

2476 PRINT "RUNNING OUT OF GAS" 

2488 PRINT "DEAD ENDS" 

2498 PRINT 

2588 PRINT 'THERE IS RN 8-HAN POLICE FORCE ENFORCING THE LANS' 

2518 PRINT "OF 6RRB0N20 CITY. * 

2528 GOSUB 2998 

2538 PRINT "THERE RRE 2-ORUNXS ON THE STREETS OF GRRKNZO" 

2548 PRIHT "CITY. " 

2558 PRIHT 

2568 PRINT "IF R POLICEMAN CATCHES A DRUNK, HE HAS TO" 

2578 PRINT "TESTIFY IN COURT" 

2588 PRINT "CHHICH TAKES THE REST OF THE GAME)" 

2598 PRINT 

2688 PRIHT "IF A DRUNK DRIVER HITS YOU, YOU LOSE. " 

2618 PRINT 

2628 PRINT "AT EACH JUNCTION, I HILL TELL YOU:" 

2638 PRINT "THE DIRECTION YOU ARE GOING" 

2648 PRINT "THE ROAD YOU ARE ON" 

2658 PRINT "THE ROAD CROSSING" 

2668 GOSUB 2998 

2678 PRINT "I HILL ASK YOU:" 

2686 PRINT "THE HAY VOU WANT TO TURN CLE, LEFT)" 

2698 PRINT "SPEED CIN KPH>" 

2788 PRINT 

2718 PRINT "AN OVERPASS IS NOT A JUNCTION, SO IT IS" 

2728 PRINT "HERELY SKIPPED OVER IT IS UNANNOUNCED. " 

2738 PRIHT 

2748 PRINT "*THAT IS ALL*" 

2758 PRINT 

2768 RETURN 

2778 REH DATA LINES 

2788 DATR 18 

2798 DATR -8, 8, 2, 8, 4, 8, 5, 8, 11, 8, 7, 8, 8, 8, 9, 8, 18 

2888 DATR 3, 7, 17, 7, 18, 7, 1 

2818 DATA 2, 7, 17, 7, 18 

2828 DRTR 3, 7, 18, 7, It 7, 1 

2838 DATA 7, 8, 8, 8, 9, 8, 18, 7, 18, 7, It 7, t t 6 

2848 DATA -2, 7, 18, 7, 5 

2858 DATA 2, 7, t 7, 11 

2868 DATA 8, 7, 16, 7, 15, 7, 5, 7, 14, 7, 13, 7, t 7, 12, 7, 11 

2878 DATR 8, 7, 16, 7, 15, 7, 5, 7, 14, 7, 13, 7, t 7, 12, 7, 11 

2888 DATA 8, 7, 16, 7, 15, 7, 5, 7, 14, 7, 13, 7, t 7, 12, 7, 11 

2898 DATA -7, 4, 4, 4, 5, 4, t 4, 7, 8, 8, 8, 9, 8, 18 

2988 DATA -3, 8, 8, 8, 9, 8, 18 

2916 DATA -3, 8, 8, 8, 9, 8, 18 

2928 DATA -3, 8, 8, 8, 9, 8, 18 

2938 DATA -3, 8, 8, 8, 9, 8, 16 

2948 DRTR -3, 8, 8, 8, 9, 8, 18 

2958 DATA -2, 8, 2, 8, 3 

2968 DATR -5, 8, 2, 8, 3, 8, 4, 8, 5, t 6 

2978 DATA 8, 8, 8, 8, 8, 8, 8 

2988 END 

2998 PRINT 8 979, "PRESS ANY KEY TO CDNTINUE"; 

3866 IF INKEY* ="" THEN 3688 

3816 CLS 

3628 RETURN 
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Not One 



The game, Not One, sometimes 
known as Pig, is played with two 
players and a pair of dice. There are ten 
rounds in the game; one round con- 
sisting of one turn for each player. 
Players add the score that they attain 
on each round and the player with the 
highest score after ten rounds is the 
winner. 

On each turn, the player may roll the 
two dice from one to as many times as 
he wishes. If the total of the dice on any 
roll afterthefirst equals the total shown 
on the first roll, his score is then zero 
for that entire turn and the dice pass to 
the other player. On the other hand, if 
the total on his dice is anything 



different from the total on the first turn, 
he continues to roll and adds the totals 
of the dice to his score. After each 
successful roll, the player can decide 
whether to roll again or stop and score 
the number of points already obtained. 

You'll find that the computer plays a 
surprisingly good game of Not One. To 
beat it, you'll need some knowledge of 
probabilities and a little bit of luck on 
your side. 

Not One was written in response to a 
challenge that appeared in the charter 
issue of Creative Computing. The 
game was written by Robert Puopolo 
and first appeared in Creative Com- 
puting, Mar/Apr 1975. 




NOT-ONE 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 

DO VOU NEED INSTRUCTIONS? VES_ 

cis 



PRESS flNV KEV TO CONTINUE 
cis 



NOT-ONE 

THE GAME OF NOT-ONE IS 

PLfiVED NITH TWO PLAVERS AND fl PAIR OP DICE. THERE ARE 

TEN ROUNDS IN THE GAME, EACH ROUND CONSISTING 

OF ONE TURN FOR EACH PLAVER. PLAVERS 

(VOURSELF AND THE COMPUTER) ADD THE SCORE 

THEV ATTAIN ON EACH ROUND, AND THE PLAVER 

HITH THE HIGHEST SCORE AFTER TEN ROUNDS IS THE WINNER 

PRESS ANV KEV TO CONTINUE 



ROUND 1 

4 ROLL AGAIN? V 
6 ROLL AGAIN? V 
18 ROLL AGAIN? V 
6 ROLL AGAIN? V 

4 VOU GET A ZERO FOR THIS ROUND. 
els 



ROUND 1 

COMPUTER'S ROLL * 1: 9 
COMPUTER'S ROLL # 2: 8 
COMPUTER'S ROLL # 3: 7 
COMPUTER'S ROLL # 4: 9 
THE COMPUTER GETS A ZERO FOR THE TURN! 

Cl8 



ROUND 2 



COMPUTER: 



VOU: 



NOT-ONE 

ON EACH TURN THE PLAVER MAV ROLL THE TWO 

DICE FROM 1 TO N TIMES. IF Tl IS THE TOTAL OF DICE ON 

THE ITH ROLL. THEN THE PLAVERS SCORE FOR THE TURN IS 

Ta)+T(2)+T<2)+ +T(N). HOWEVER, 

RWD HERE'S THE CATCH, IF ANV T(I) IS EOUAL TO T(l) THEN 
THE TURN IS OVER AND HIS SCORE FOR THAT ROUND IS ZERO. 
AFTER EACH ROLL THAT DOESN'T E0UAL T<1), THE PLAVER CAN 
DECIDE WHETHER TO ROLL AGAIN OR STOP AND 
SCORE THE NUMBER OF POINTS ALREADV OBTAINED. 



11 ROLL AGAIN? V 

7 ROLL AGAIN? V 

5 ROLL AGAIN? V 

8 ROLL AGAIN? V 

7 ROLL AGAIN? V 

8 ROLL AGAIN? V 

6 ROLL AGAIN? V 
10 ROLL AGAIN? V 
4 ROLL AGAIN? V 

7 ROLL AGAIN? V 
10 ROLL AGAIN? NO. 

cis ■ 



ROUND 



COMPUTER: 



VOU: 



COMPUTER'S ROLL # 1: 6 
COMPUTER'S ROLL # 2: 9 
COMPUTER'S ROLL # 3 
COMPUTER'S ROLL # 4 
COMPUTER'S ROLL # 5 
COMPUTER'S ROLL # 6: IB 



ROUND 3 

7 ROLL AGAIN? V 

8 ROLL AGAIN? V 
6 ROLL AGAIN? V 
3 ROLL AGAIN? V 
11 ROLL AGAIN? V 
6 ROLL AGAIN? V 

5 ROLL AGAIN? V 

6 ROLL AGAIN? V 

8 ROLL AGAIN? NO. 



- els 

VOU: 



84 



COMPUTER: 42 



• els • 



ROUND 2 

COMPUTER'S ROLL 
COMPUTER'S ROLL 
COMPUTER'S ROLL 
COMPUTER'S ROLL 
COMPUTER'S ROLL 
COMPUTER'S ROLL 



VOU: 84 



COMPUTER: 42 



# 1: 

# 2: 
it 2: 

# 4: 
ft 5: 

# 6: 



ROUND 4 



— els 

VOU: 144 



COMPUTER: 77 



11 ROLL AGAIN? V 

3 ROLL AGAIN? V 

8 ROLL AGAIN? V 
10 ROLL AGAIN? V 
10 ROLL AGRIN? V 

4 ROLL AGAIN? V 
6 ROLL AGAIN? V 

6 ROLL AGAIN? V 

7 ROLL AGAIN? V 

9 ROLL AGAIN? V 

9 ROLL AGAIN? NO- 



ROUND 4 



■ els • 



VOU: 144 



COMPUTER: 77 



COMPUTER'S ROLL t 1: 4 

COMPUTER'S ROLL # 2: 6 

COMPUTER'S ROLL # 3: 7 

COMPUTER'S ROLL * 4: 12 

COMPUTER'S ROLL # 5: 8 

COMPUTER'S ROLL # 6: 4 

THE COMPUTER GETS A ZERO FOR THE TURN 



ROUND 6 

5 ROLL AGAIN? V 

10 ROLL AGAIN? Y 

11 ROLL AGAIN? V 
11 ROLL AGAIN? V 

6 ROLL AGAIN? V 

7 ROLL AGAIN? V 
10 ROLL AGAIN? V 
10 ROLL AGAIN? V 

8 ROLL AGAIN? N0_ 



■ els 




VOU: 227 



COMPUTER: 77 



CIS • 



123 



ROUND 



YOU: 



COMPUTER: 77 



COMPUTER'S ROLL it 1: 
COMPUTER'S ROLL # 2: 
COMPUTER'S ROLL it 3: 
COMPUTER'S ROLL it 4: 
COMPUTER'S ROLL # 5: 
COMPUTER'S ROLL it 6. 
COMPUTER'S ROLL # ?• 



10 

9 

4 

7 

5 

8 

18 



THE COMPUTER GETS A ZERO FOR THE TURN! ' 

Ol8 



ROUND 



VOU: 305 



COMPUTER: 77 



6 ROLL AGAIN? V 

6 VOU GET A ZERO FOR THIS ROUND. 



■ els 



ROUND 



VOU: 265 



COMPUTER: 



COMPUTER'S ROLL # 1: 7 
COMPUTER'S ROLL ft 2: 7 
THE COMPUTER GETS A ZERO FOR THE TURN! 



■ els 



ROUND 8 



VOU: 385 



COMPUTER: 77 



8 ROLL AGAIN? V 

7 ROLL AGAIN? V 
11 ROLL AGAIN? V 
5 ROLL AGAIN? V 

8 VOU GET A ZERO FOR THIS ROUND. 



• els 



ROUND 9 



VOU: 305 



COMPUTER: 77 



7 


ROLL 


AGAIN? 


V 


8 


ROLL 


AGAIN? 


V 


Ci 


ROLL 


AGAIN? 


V 


9 


ROLL 


AGAIN? 


V 


2 


ROLL 


AGAIN? 


V 


l: 


2 ROLL AGAIN 


? V 


10 ROLL AGAIN? V 


8 


ROLL 


AGAIN? 


V 


Q 


ROLL 


AGAIN? 


NO. 



els 



ROUND 9 



VOU: 305 



COMPUTER: 77 



COMPUTER'S ROLL # 1: 8 

COMPUTER'S ROLL # 2: 11 

COMPUTER'S ROLL # 3: 12 

COMPUTER'S ROLL # 4: 7 

COMPUTER'S ROLL it 5: 6 

COMPUTER'S ROLL # 6. 8 

THE COMPUTER GETS A ZERO FOR THE TURN! ! 



■ els 



ROUND 18 



VOU: 379 



COMPUTER: 77 



9 ROLL AGAIN? V 
8 ROLL AGAIN? V 

4 ROLL AGAIN? V 
8 ROLL AGAIN? V 
2 ROLL fiGflIN? V 

5 ROLL AGAIN? V 

4 ROLL AGAIN? NO_ 


ROUND 16 



COMPUTER'S ROLL it 1: 
COMPUTER'S ROLL it 2: 
COMPUTER'S ROLL it 3: 
COMPUTER'S ROLL it 4: 
THE COMPUTER GETS A I 



els 



VOU: 379 



COMPUTER: 77 



ERO FOR THE TURN! 



ROUND 
1 



VOU 



COMPUTER 



42 
35 



4 


83 


5 





6 


78 


•7 


B 


8 





9 


74 


10 


48 


=====: 


=== 


TOTALS: 


419 


PLAV AGAIN? 


NO. 



IB OS. PRIHT8413, "NOT-OHE" 

28 PRINT: PRINT TflB<7) "COPVRIGHT 1979 CREATIVE COMPUTING HORRISTDHN, NJ" 

28 PRINT8968, ""; • INPUT "DO VOU HEED INSTRUCTIONS"; If 

48D1I1K58>,R(10>,C(1B>,L<28) 

58 IF LEFT«»,i>="V" THEN 60 ELSE 268 

66 CLS. PRINT TAB(28) "NOT-OHE"' PRINT: PRINT "THE GANE OF NOT-OHE IS" 

78 PRINT "PLflVED WITH TWO POWERS PHD A PAIR OF DICE. THERE ARE" 

88 PRINT "TEN ROUNDS IN THE GAME, EACH ROUND CONSISTING" 

SB PRINT "OF ONE TURN FOR EACH PLAYER. PLBVERS" 

168 PRINT "(VOURSELF AND THE COMPUTER) HDD THE SCORE" 

118 PRINT "THEV ATTAIN ON EACH ROUND, AND THE PLAYER" 

128 PRINT "WITH THE HIGHEST SCORE AFTER TEN ROUNDS IS THE HINDER" 

138 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

148 IF INKEYt="" THEN 148 ELSE PRINT8128, CHR*G1); 

158 PRINT "ON EACH TURN THE PLAVER WW ROLL THE THO" 

166 PRINT "DICE FROM 1 TO N TINES. IF Tl IS THE TOTAL OF DICE ON" 

178 PRINT "THE ITH ROLL, THEN THE PLOVERS SCORE FOR THE TURN IS" 

188 PRINT "T(l)+T(2)+T(2)+ +T(N). HOHEVER, " 

190 PRINT "AND HERE'S THE CATCH, IF ANY KIMS EOUAL TO T(i) THEN" 
288 PRINT "THE TURN IS OYER AND HIS SCORE FOR THAT ROUND IS ZERO " 
218 PRINT "AFTER EACH ROLL THAT DOESN'T EQUAL T(l), THE PLAVER CON" 
228 PRINT "DECIDE HHETHER TO ROLL AGAIN OR STOP AND " 
230 PRINT "SCORE THE NUMBER OF POINTS ALREADY OBTAINED. " 
248 PRINT8979, "PRESS ANV KEY TO CONTINUE"; 
258 IF INKEYt=" THEN 258 

268 CLS. FOR T=l TO 18: PRINT08, "ROUND"; T;- PRINT864, " ";CHR«21> 

278 X=X+1:R1=INT(6*RND<8)H1 

288 R2=INT<6*RND<8»+1 

298 IF PEEK<16416)+PEEK<1641?)*256=16228 THEN PRIHT8192, CHRf (31); 

388 PRINT R1+R2; 

218 IF !0i THEN 2-38 

220 T(1)=R1+R2: GOTO 278 

230 T(X)=R1+R2 

248 IF KDOKX) THEN 278 

250 PRINT "VOU GET A ZERO FOR THIS ROUND. " 

268 X=8: Tl=8: GOTO 418 

278 T1=T1+T(X) 
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288 INPUT "ROLL AGAIN"; B* 

298 IF LEFT«B*,1>="Y" THEN 278 

488 R(T)=T1: X=8: Tl=8: FOR A=l TO 58: KB)=B: NEXT: GOTO 418 

416 FOR TPtt TO 1880: NEXT Til: PRIHT6128, CHR$<31); 

428 RESTORE 

438 Ri=INK6*RND<e»+i: R2=INT(6*RHD(8»+1 

448 F8R D=2 TO R1+R2: READ L(D): NEXT: D=RltR2 

458 FOR Ol TO L(D>: IF C=i THEN 488 

460 Ri=INT(6*RND(0»+i: R2=INT(6*RND(8»+1 

478 IF PEEK(16416)+PEEK(16417)*256=16220 THEN PRINTM92, CHRJG1); 

488 PRINT "COMPUTER'S ROLL «";C;CHR«8>;"";Ri+R2 

498 IF Ol THEN 518 

588 T(1)=R1+R2: GOTO 558 

518 T(C)=R1+R2 

528 IF KOOK1) GOTO 558 

528 PRINT "THE COMPUTER GETS A ZERO FOR THE TURN!!" 

548 Tl=8: GOTO 568 

558TM1+KD: NEXT C 

568 FOR TH=1 TO 1888: NEXT TH: C(T)=T1: Tl=8: X=8 

578 C2=C2+C<T): C1=C1+R(T) 

588 PRINT: FOR B=l TO 58: T<B>=8: NEXT 

598 REN 

688 IF C2<C1 THEN 628 

618PRIHT832, "C0HPUTER:";C2,"V0U:";C1;CHR$G8>; GOTO 638 

628 PRIHT822, "YOU:"; CI, "COMPUTER: ";C2;CHR«38); 

638 NEXT T 

648 DATA 18, 18, 9, 9, 6, 6, 6, 9, 9, 18, 18 

658 CLS 

668 PRINT "ROUND"; TAB<15); "YOU"; TABC25); "COMPUTER" 

678 PRINT " ";TAB(15>;"— ";TAB<25>;" " 

688 FOR E=i TO 18: PRINT USING " ittt «« Mtl";E;R(E);C<E> 

698 NEXT E: PRINT"==";TAB(14);"==";TAB<27);"==" 

788 PRINT "TOTALS. ";TAB(14);C1;TAB(26);C2: PRINT 

718 INPUT "PLAV AGAIN"; ANS* 

728 IF LEFT«ANS*,1)="Y" THEN CLEAR: I$="N"- GOTO 48 

720 END 



Obstacle 



The game OBSTACLE is an obsta- 
cle course game played on a 9x40 
grid. 

A car is represented by the 
character '*', the obstacles are the 
walls (represented by exclamation 
points and hyphens) and spaces are 
where the car may travel. The car may 
not pass over or occupy a wall or 
obstacle. The character 'S' at the 
upper left corner, indicates where the 
car starts from, and the character in 
the lower right corner, the 'F', is the 
space the car must occupy at the 
finish to win. If the car tries to 
occupy or pass through a wall the 
game is lost. When the car lands on 
the space occupied by the character 
'F', the car has finished the course, 
and the game is over, and a time is 
calculated. 

Line-by-line, here's how the pro- 
gram works: 

Line 480 dimensions the matrix M 
for 15 rows by 50 columns (allowing 
an adequate margin for modifica- 
tion). 

Line 490-550 initializes all neces- 
sary variables. 

Line 570-650, through the use of a 
random number generator, generates 
the obstacle course, where I is the 
row matrix index and J is the column 
matrix index and R1 is the random 
number. Line 590 generates a ran- 
dom number between and 1, 
multiplies it by a density of 1.2 (to 
increase density factor by a few 
decimal points) and removes every- 
thing right of the decimal point. R1 is 
now either or 1 . If it is the matrix 
memory location M (I, J) inside the 
For-Next Loop is assigned the value 
of a space, if it is 1 , it is assigned the 
value of an exclamation point. 

Lines 710 and 720 assign the walls 
to the course. 

Line 760 stores the values of I and 
J into K and L, these act as value 
holders. 

After the print routine has been 
executed, I and J are reassigned their 
old values stored in K and L at line 
840. 

Lines 780-830, through use of a 
For-Next Loop (as in the initialization 
course set up routine), print out the 
characters represented by values in 
matrix M, Line 800, the CHR$ 



Function turns the values of the 
memory location into their ASCII 
character equivalent. 

Line 860 checks if the car has 
moved yet, by checking D1. If D1 
then it skips the query option and 
continues with the main body. If 
D1=0 then it executes the option 
query, asking whether a new course, 
or this course or end the game and 
then executes the respective option. 

Line 1010 checks if D1 is not equal 
to 1 and if so continues with the 
movement routine. If not then it 
starts the car at matrix position 2.2 
and continues with the movement 
routine. 

Line 950 starts the main program 
body, 970 queries the direction and 
980 checks the input D if it is a valid 
direction. Line 1000 inputs the speed 
'S' and Line 1010 initializes the 
counters S1 and D1. Lines 1040-1060 
direct control to the proper move- 
ment routine (1 is up, 2 is right to 
left, 3 is down). 

Line 1070-1110 is the movement 
routine for direction 1. Line 1070 
erases the car from the previous 
position keeping track of I and J. 
Line 1080 and 1090 check each 
character position between matrix 
position I, J, and l-S,J for a wall 
(exclamation or hyphen); if one is 
encountered the game is over. If no 
walls are encountered, the move is 
legal and Line 11 10 assigns the car to 
matrix position 1-1, J and jumps to 
1220 to check matrix position 10,41 if 
it contains a car. If so, the game is 
won and the End of Run routine is 
executed. If matrix position 10,41 is 
not occupied the game is not over 
and control jumps to 740, the matrix 
print routine. The Loop can only be 
exited by losing (crashing into an 
obstacle) or by getting the car to 
matrix position 10,41 where it exe- 
cutes the End of Run routine. 

Line 1290 calculates the time by 
dividing total number of turns by 
total number of character spaces 
covered by the car and multiplies it 
by 100. Line 1300 prints the time and 
Line 1310 and 1320 query as to 
whether to play the game again. 

The program and these notes were 
written by Eric Erickson. 



OBSTACLE 

C0PVRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 

DO V0U MEED INSTRUCTIONS? VES_ 

OBSTACLE 

THE OBJECT OF THIS GAME IS TO MOVE VOUR CAR '*' 
BEGINNING AT 'S' AND NAVIGATE THROUGH THE OBSTACLES 
' ' WALLS TO THE SPACE MARKED '¥' V0U MUST LAND 
ON THE SPACE MARKED 'F' ON THE EXACT AMOUNT OF SPACES. 

THERE ARE NO DIAGONAL MOVES. 
THERE ARE NO RIGHT TO LEFT MOVES. 

DIRECTION NO. 1 IS UP. ft) 

DIRECTION NO. 2 IS LEFT TO RIGHT. < -" ) 

DIRECTION NO. 2 IS DOWN. < X > 

SPEED IS THE NUMBER OF SPACES IN A GIVEN DIRECTION. 
els 



OPTION: (A = CONTINUE, B = NEW COURSE, C = STOP)' fi. 

Ci8 



DIRECTION? 3. 



■ els ■ 



DIRECTION? J 
SPEED? 5_ 



Cls ■ 
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DIRECTION? 2 
SPEED? 9_ 



els ■ 



DIRECTION? 3 
SPEED? 3. 



■ els ■ 



DIRECTION? 
SPEED? IB. 



ILLEGAL MOVE VOU LOSE!! 

DO VOU WISH TO PLAV flOflIN? NO. 



16 CLS. PRINT0412, "OBSTACLE" 

90 PRINT PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING 

38 PRINT0960, ""; INPUT "DO VOU NEED INSTRUCTIONS",- 1* 

40 REM VARIABLES USAGE 

50 REM 



60 REM 
70 REM 
80 REM 
99 REM 
163 REM 
110 REM 
120 REM 
136 REM 
140 REM 
150 REM 
168 REM 
170 REM 
186 REM 
190 REM 
200 REM 
210 REM 
226 REM 

239 REM 

240 REM 
250 REM 
26S REM 
278 REM 
280 REM 
290 REM 
300 CLS. 



Al 
R2 
A3 
A4 

A5 

A6 

D 

Dl 

I 

J 

K 

L 

M 

N$ 

Rl 

S 

SI 

T 



DECIMAL VALUE FOR THE CHARACTER'* 

DECIMAL VALUE FOR THE CHARACTER ' 

DECIMAL VALUE FOR THE CHARACTER ' 

DECIMAL VALUE FOR THE CHARACTER ' 

DECIMAL VALUE FOR THE CHARACTER ' 

DECIMAL VALUE FOR THE CHARACTER ' 

DIRECTION 

TOTAL NO. OF TURNS TAKEN 

ROW MATRIX 

COLUMN MATRIX INDEX 

PLACE HOLDER FOR THE VARIABLE I 

PLACE HOLDER FOR THE VARIABLE J 

MATRIX VARIBLE 

INPUT TO VES-NO QUESTIONS 

RANDOM NUMBER GENERATOR VARIABLE 

SPEED 

TOTAL SPEED COUNTER 

'TIME' RATIO (D1/S1)*100 



68B M<10,41)=A5 
MORRISTOWN, NJ" 690 M<2,3)=A3 
780 M<3, 2)=A3 

710 FOR 1=1 TO 10: :M(I,1)=A2: M(I,42)=A2: NEXT I 
720 FOR J=i TO 42: M<1,J)=A6: M<U,J)=A6: NEXT J 
730 GOSUB 760: GOTO 850 
740 REM ** PRINTING ROUTINE ** 



START PROGRAM 



INSTRUCTIONS 



IF LEFT* CIS, 1X>"Y" THEN 480 
318 PRINT TAB<28) "OBSTACLE" ■ PRINT 

320 PRINT "THE OBJECT OF THIS GAME IS TO MOVE VOUR CAR '*"' 
310 PRINT " BEGINNING AT '%' AND NAVIGATE THROUGH THE OBSTACLES" 

'"CHR*<191>"' WALLS TO THE SPACE MARKED 'F' VOU MUST LAND" 
ON THE SPACE MARKED 'F' ON THE EXACT AMOUNT OF SPACES. " 



'THERE ARE NO DIAGONAL MOVES. " 
'THERE ARE NO RIGHT TO LEFT MOVES. " 

"DIRECTION NO. 1 IS UP. < "; CHR$<91); " )" 
"DIRECTION NO. 2 IS LEFT TO RIGHT. < -". 
"DIRECTION NO. 3 IS DOWN. < "; CHR*<92); 



SPEED IS THE NUMBER OF SPACES IN A GIVEN DIRECTION. 
INITIALHTION 



340 PRINT 
350 PRINT 
360 PRINT 
370 PRINT 
380 PRINT 
398 PRINT 
400 PRINT 
410 PRINT 

420 PRINT 
430 PRINT 

440 PRINT 

450 REM 

460 REM 

470 REM 

480 DIM M<15, 50) 

490 A1=ASC<"*"> 
500 R2=191 

510 A3=ASC<" ") 
529 A4=ASC<"S") 

536 A5=fiSC<"F") 
540 A6=191 

550 D1=0: S1=0 

5S0 REM *** NOTE - COURSE SET UP ROUTINE 

570 FOR 1=1 TO 10 

580 FOR J=l TO 42 

590 R1=INT(RND<0)*1. 2) 

606 IF R1=0 THEN 636 

610 M<I,J)=A2 

620 GOTO 640 

638 M(I,J)=A3 

640 NEXT J 

650 NEXT I 

660 MC2,2)=R4 

670 M<10,40)=A3 



CHR«94);" )"" 

1 )" 



PRINT TAB<11); 
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750 GOTO S50 
760 K=I : L=J 
770 CLS 

7S0 FOR 1=1 TO 11 
790 FOR J=l TO 42 

809 PRINT CHR*<M(IjJ»; 

810 NEXT J 
820 PRINT 
830 NEXT I 

840 I=K: J=L. RETURN 

850 REM 88 NOTE- NEW COURSE OPTION** 

860 IF D1>0 THEN 950 

870 PRINT"OPTION: (A = CONTINUE, B = NEW COURSE, C = STOP)"; 

880 INPUT N$ 

896 IF N$="A" THEN 950 

900 IF N$="B" THEN 540 

910 IF N$="C" THEN END 

920 PRINT "INVALID OPTION. " 

930 GOTO 870 

940 REM 

956 REM ** MAIN PROGRAM BODV ** 

960 REM 

970 PRINT0704, "DIRECTION"; CHRK31); INPUT D: D=INKABS(D)) 

986 IF D<1 THEN 970 

999 IF D>3 THEN 970 

1600 PRINT'SPEED"; INPUT S: S=INT<ABS(S)) 

1010 D1=D1+1: S1=S1+S: IF DIOl THEN 1040 

1020 REM ** NOTE - CAR STARTS AT POSITION 2, 2 

1030 J=2: 1=2 

1040 IF D=l THEN 1070 

1050 IF D=2 THEN 1120 

I860 IF D=3 THEN 1170 

1079 M(I,J)=A3: REM 

1080 FOR C=l TO S. GOSUB 1330: 
1090 IF M(I,J)=A6 THEN 1250 
1106 GOSUB 1340: NEXT C 
1110 na,J)=Hl: GOTO 1220 
1120 M(I,J)=A3 

1130 FOR C=l TO S. GOSUB 1330: 
1140 IF M(I,J)=A6 THEN 1250 
1150 GOSUB 1346: NEXT C 
1160 M<LJ)=A1: GOTO 1220 
1176 M<I,J)=R3 

1186 FOR C=l TO S: GOSUB 1330: 
1190 IF M<I,J)=A6 THEN 1250 
1200 GOSUB 1340: NEXT C 
1210 M<I,J)=A1 

1220 REM ** NOTE - WINNING CHECK** 
1236 IF M<10, 4DOA1 THEN 740 
1240 GOTO 1276 

1250 PRINT0704, "ILLEGAL MOVE VOU LOSE 

1260 REM 

1270 REM ** END OF RUN ROUTINE ** 

1280 REM 

1290 T=<D1/S1)*100 

1300 PRINT8704, "VOU WON!! AND VOUR TIME IS"; T; CHR$<31) 

1310 PRINT: PRINT'TO VOU WISH TO PLAV AGAIN"; INPUT N* 

1320 IF LEFT$<N$, 1)="V" THEN 540 ELSE END 

1330 PRINT@I*64-54+J, " "; RETURN 

1346 PRINT0I*64-54+J, "*"; . RETURN 



** WIPES OUT PREVIOUS CHARACTER ** 

I=ABS(I-1)' IF M<I,J)=A2 THEN 1250 



J=J+1: IF M(I,J)=A2 THEN 1250 



1=1+1: IF M<I,J)=A2 THEN 1250 



;CHR*<31): GOTO 1310 



Octrix 



OCTRIX 



COPYRIGHT 1979 CREATIVE CONFUTING M0RRI5T0HN, NJ 
00 VOO NEED INSTRUCTIONS VES. 

els 

THIS IS A GAME CULLED OCTRIX. ERCH PLAYER IS DEALT 8 
CORDS RANGING FROM ACE THROUGH EIGHT. THE CRRDS ARE 
RANKED ACCORDING TO BRIDGE SUITS WITH THE ACE Of CLUBS THE 
LOWEST AND THE EIGHT OF SPADES HIGHEST. THE OBJECT IS TO 
MIN AS MANY OF THE EIGHT TRICKS AS POSSIBLE EACH TRICK 
PLAVED DETERMINES THE PLAY OF THE NEXT TRICK. IF THE HIGH 
AND LOW CARDS PLAVED HATCH COLOR THE NEXT TRICK WILL BE 
HIGH AND IF THEY DO NOT MATCH IT WILL BE LOU. IT IS IM- 
PORTANT TO SET STRATEGY TO WIN CONSECUTIVE TRICKS IN THAT 
SCORING IS 1 POINT PER TRICK, 4 FOR TWO IN fl ROW, 9 FOR 2, 
UP TO 64 FOR ALL EIGHT. 

RESPOND TO THE INPUT PROHPT WITH THE CARD YOU WANT TO 
PLAY IN A TWO CHARACTER FORMAT WITH THE VALUE <A-8) AS THE 
FIRST CHARACTER, AND SUIT (C,0,H,S) AS THE SECOND CHARACTER. 

PRESS ANY KEY TO CONTINUE 
els 



HOW MANY POINTS (8 ENTRY GIVES STANDARD 88)? 8 

HOW MANY PLAYERS? 3 

ENTER NAME OF PLAYER It 1 ' CHRIS 

ENTER NAME OF PLAYER f 2 "> ERIC 

ENTER NAHE OF PLAYER i 2 '' STEVE 

SHOULD I PLAY TOO <Y OR N>? Y. 



■ Cl3 ■ 



This is a card game for up to four 
players, or three players plus the 
computer. A deck of 32 cards is used 
with ace through eight in each of the 
four suits. All 32 of the cards are dealt 
out at the beginning of the game, eight 
to each player. On each hand, each 
player discards one card depending on 
the rules of the game (see the rules at 
the beginning of the sample game) 
either the high card discard or the low 
card discard wins that trick. After eight 
tricks a new hand is dealt and play 
proceeds as before. Perhaps the 
easiest way to learn Octrix is to play a 
few games with you and the computer 
or with several people and the com- 
puter. Observe what happens and 
before long you'll be able to work out a 
reasonable strategy for playing the 
game. 

Octrix was written by Rogers 
Hamilton. 



CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 

A * . . R . . A. *. . ft * * . ft . 



. . 2. *. . 2. 

. . 1 *. . 2 

. . 4. * * *. . 4. 

* ..5. *..5. 

■*-..&.* . . 6. 

. *. . 7. . . 7. 



* * 


2. 


* . 2. . 


.* * 


.1 


.3.. 




.4. 


* 4.. 


* 


.5. 


* 5.. 




.6. 


*i.. 


* 


.?. 


* ?.. 


* 


.8. 


*.8.. 



TRICK t 1 (HIGH CARD HIHS) 
►MAT CARD, CHRIS 



■ els ■ 



CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 
A. * . . ft . . ft . *. . a * * . ft . 

2. - . Z * . 2. ♦ * 



* *. . 4. 
*. . 5. * 
..6. 



*6.. 



TRICK It 1 (HIGH CARD WINS) 
WHAT CARD, ERICS 



Ols ■ 



CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 

ft * . . a. . . A. *. . a. * * . a . 

2. . . 2. *. . 2. * * . . 2. * . 2. , 

2. * . . 3. *. . 3. * * . . 2. 2. 

4. . . 4. * t *. . 4. . . 4. * 4. . 

5. * . . 5. * . 5. + . . 5. * 5. 
E. * * . - (■■ * . . 6. ..(,. * e. . 
7* *■■?. ■ ..?. *...?. * 7.. 
8- + . . 8. * . . 8. * . . 8. . * 8. . 



TRICK II 1 (HIGH CARD HIHS) 
WHAT CARD, STEVE 



CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 



..a * . 


.ft 




a *. 


,ft« 


* 


.ft. 


.2. 


. z. 


*. 


2. * * . 


. 2. 


. *. 


.2. 


. . 2. + 


2 


* 


3. * * . 


3. 




. 3 


.4. 


.4.* 


* *. 


4. 


.4. 


* 


4.. 


..5. .* . 


.5. 


+. 


5.* 


.5. 


* 


5.. 


. . 6. * * . 


.6.* 




6. 


. 6. 




*6.. 


. .7.* . *. 


7 




7. * 


.7. 


* 


.?.. 


. . 8. * 


.9. ♦ 




8. * . 


.3. 




t!.. 


CHRIS PLAYED THE EIGHT OF CLUBS. 








ERIC PLAVED THE EIGHT OF DIAMONDS. 








STEVE PLAYED THE EIGHT OF HEARTS. 








I PLAVED THE EIGHT OF SPADE. 








I HON TRICK ft 1 











CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 

a * . . a. . . a *. . a » + . i 
* * 



TRICK t 2 (HIGH CARD WINS) 
WHAT CARD, CHRIS 



* * 



4. '* 

5. t 



els ■ 



CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 
A. * . . ft . . ft t. . A. * * . f 

2. * * 



TRICK II 2 (HIGH CARD WINS) 
WHAT CARD, ERICS 



CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 

p. * . . a . . a . «. . a * * .a 

* .2. 

* 4. 
t . .5. 

* 6. 

* ?. 

8. 



. . 2- * 




7 




+. . 2. 


..4. 




..4 


* 


* *. . 4. 


. . 5. 


* 


..5 




*. . 5. 


..6. 


* * 


..6 


*. 


..6. 


..7* 




*..7 




7 


..8. 




..8 




..8. 


TRICK 


t 2 (HIGH CARD WINS) 


WHAT CARD, 


STEVE 




I 









CHRIS ERIC- STEVE COMPUTER 

CDHS CDHS CDHS CDHS 
. . ft * . . A. . . A. t. . A. * * .A. 

. . 2. . . 2. *. . 2. * . * 

. . 2. * . . 2. *. . 2. + * 

.4. . . 4. * * *. . 4 4. * 4. 

..5. * ..5. *. .5. * 

. . 6. * * . . 6. * . . 6. . . 6. * 6. 

..7* *..?. ..7. * 



CHRIS PLAYED THE SEVEN OF CLUBS. 
ERIC PLAYED THE SIX OF CLUBS. 
STEVE PLAYED THE SEVEN OF DIAMONDS. 
I PLAVED THE FIVE OF DIAMONDS. 
STEVE HON TRICK It 2 



■ els • 



CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 

-A. * . . ft . . A. ». . ft * * .ft 



. . 2. * . . . 2. *. . 2. 

. . 4. . . 4. * * *. . 4. 

..5. + ..5. .«..St 

. . 6. * * . . i. . . . 6. 



TRICK f 2 (HIGH CARD WINS) 
WHAT CARD, CHRIS 



els • 



els ■ 



• els 
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CHRIS ERIC STEVE 


COMPUTER 


C D H S C D H S C 


DHS 


CD HS 


..ft * ..a . ..a 


*. 


a* * .ft 


. . 2 . . 2. *. . 2 * 


+ . 


2. * .2. 


..!*.. . . 2. ..*..! 


* * . 


1 .3. 


4 4***4 




4. * 4. 


..5. * ..5. *..5. * 




5. 5. 


. . 6. * * . . 6. . . 6. 




6. * 6. 


..?. *..7. ..7. 




7. * .7. 


..8. ..8. ..8. 




8. .8. 


TRICK « 2 (HIGH CARD WINS) 






WAT CARD, ERICS 






» 







CHRIS 
CDHS 



ERIC 
CDHS 



STEVE 
CDH! 

.a 

. 2*. 



COMPUTER 
CDHS 



.4. 

.5.* 

.6. 



*. .ft * * 



CHRIS 


ERIC STEVE 


COMPUTER 


CDHS 


CDHS CDHS 


CDHS 


.ft * 


.a ..ft *. 


.a** .ft 


.2 


.2. *..2*. * ■ 


. 2. * .2 


.1* 


. 1 . ■ *. . 3. * * . 


.3. .3. 


.4. 


. 4. * * *. . 4. 


. 4. * 4. 


.5. * 


.5. ..5. 


.5. 5. 


.6 * * 


.6 6. 


.6. * 6. 


.7. 


.7. ..7. 


.7. .7. 


O 


.8. . . 8. 


.8. 8. 



CHRIS PLOYED THE SEVEN OF SPADES. 
ERIC PLfiVED THE FIVE OF SPADES. 
STEVE PLAVED THE FIVE OF CLUBS. 
I PLAVED THE SEVEN OF HEARTS. 
CHRIS HON TRICK « 1 



TRICK » 4 (HIGH CARD UINS) 
HHHT CARD, ERICS 



CHRIS ERIC STEVE COMPUTER 

CDHS CDHS CDHS CDHS 

. . A. * . . ft . . ft *. . ft * * .ft 

. . 2. . . 2. *. . 2. * * 

. . 2. * . . 2. *. . 2. * * 

. . 4. . . 4. * * *. . 4. 

. . 5. * . . 5. *. . 5. * 

. . 6. * * . . 6. . . 6. 

..8. ..8. ..8. 

TRICK « 2 (HIGH CARD KINS) 
MAT CARD, STEVE 



4. * 4. 

5. 5. 

6. *. 6 



- els • 



CHRIS ERIC STEVE 


COMPUTER 


CDHS CDHS CDHS 




CDHS 


..a * ..a. ..a *. 


.a 


* * .a 


..2. 2 . *. . 2. * *. 


.2. 


* .2. 


. . 2. * . . 2. . . *. . 2. * * . 


.3. 


.3, 


. . 4. . . 4. * * *. . 4. 


.4. 


* 4. 


..5. * ..5. ..5. 


.5. 


5. 


. . b. * * . . 6. . . 6. 


.6. 


*.6. 


..7 7. ..7. 


.7. 


.7. 


. . 8. . . 8. . . 8. 


.8. 


.8. 


TRICK » 4 (HIGH CARD UINS) 






UHAT CARD, CHRIS 







CHRIS 


ERIC 


STEVE 


COMPUTER 


CDHS 


CDHS CDHS 


CDHS 


..A. * . 


.ft 


. . a *. 


.a * * . a . 


..2 


.2 


* 


.2* * . 


.2 * .2. 


..3.* 


7 


* 


.3. * * . 


.3. .1. 


..4. 


.4.*. 


* * 


.4. 


. 4. * 4. . 


. . 5. . * 


.5. 




.5. 


.5. .5.. 


6 * * 


.6. 




.6. 


.6. * 6. . 


..7. 


.7. 




.7. 


.7. 7. . 


..8. 


.8. 




.8. . . 


.8. - 8. . 



TRICK I 4 (HIGH CARD UINS) 

HHAT CARD, STEVE 

ft 

els - 



• els • 



18 CLEAR 1688 

28 OS 

38 PRINT 8 413, "OCTRIX" 

48 PRINT 

58 PRINT TAB<7>"C0PYRIGHT 1979 CREATIVE COMPUTINO HORRISTOHN, NJ" 

68 PRINT i 968, "; 

78 INPUT'DO YOU NEE' INSTRUCTIONS"; I* 

88 DIM A(22), P(4, 9), C«255>, Q(4, 11), T«72> 

98 DIM NK72), V(72) 

188 RESTORE 

118 FOR X=8 TO 7 

128 READ YKX) 

128 NEXT X 

148 FOR X=B TO 3 

158 READ Xt(X) 

168 NEXT S 

178 DATA'ACE", "TWO", "THREE", "FOUR", "FIVE", "SIX", "SEVEN", "EIGHT" 

188 DATA«CLUBS", "DIAMONDS", "HEARTS", "SPADES" 

198 FOR X=8 TO 9 

288 READ T«X> 

218 DATfl'A", "2", "3", "4", "5", "6", "7", "8", "LOU'S "HIGH" 

228 NEXT X 

228 IF LEFWK, 1>="N" THEH 418 

248 as 

258 PRINT" THIS IS A GAME CALLED OCTRIX. EACH PLAYER IS DEALT 8" 

268 PRINT-CARDS RANGING FROM ACE THROUGH EIGHT. THE CARDS ARE" 

278 PRIHTRANKED ACCORDING TO BRIDGE SUITS WITH THE ACE OF CLUBS THE" 

288 PRIHT'LOHEST AND THE EIGHT OF SPADES HIGHEST. THE OBJECT IS TO" 

298 PRINT"HIN AS MANY OF THE EIGHT TRICKS AS POSSIBLE EACH TRICK " 

388 PRIHT'PLAYED DETERMINES THE PLAY Of THE NEXT TRICK. IF THE HIGH " 

218 PRINPAND LOH CARDS PLAYED MATCH COLOR THE NEXT TRICK HILL BE " 

228 PRINTHIGH AND IF THEY DO NOT MATCH IT HILL BE LOR IT IS IM-" 

228 PRINT'PORTANT TO SET STRATEGY TO HIN CONSECUTIVE TRICKS IN THAT " 

248 PRINT'SCORIHG IS i POINT PER TRICK, 4 FOR TOO IN A RON, 9 FOR 3, " 

358 PRIHTUP T8 64 FOR ALL EIGHT. " 

368 PRINT" RESPOND TO THE INPUT PROMPT WITH THE CARD YOU HANT TO" 

376 PRIHFPLAY IN B TOO CHARACTER FORMAT WITH THE VALUE (H-8) AS THE * 

388 PRINTT1RST CHARACTER, AND SUIT (C,D,H,S) AS THE SECOND CHARACTER. " 

390 PRINT C« 979, "PRESS ANY KEY TO CONTINUE"; 

488 IF IHKEYS ="" THEN 488 

418 CIS 

428 FOR X=l TO 15 

438 READ Z 

448 M$=Mt+C««Z) 

458 NEXT X 

468 DATA 25, 25, 35, 25, 13, 72, 72, 72, 

478 29=88 

488 PRINT"HQH MANY POINTS (8 ENTRY GIVES STANDARD 88)"; 

498 INPUT Z 

588 IF 2=8 THEN 528 

518 Z9=Z 



CHRIS 
CDHS 
.ft 
.2 
.3.* 
.4. 
.5. 

.6. * 
.7. 
.8. 



ERIC STEVE COMPUTER 

CDHS CDHS CDHS 



..ft 


*. . ft * * 


.ft. 


*..2.» 


.*. ..2 


* 


? 


*..2. 


*. *. ..3. 




.3.. 


* *. . 4. 


..4. 


* 


.4.. 


..5. 


..5. 




.5.. 


..6. 


..6. 




*.6.. 


..7. 


..7. 




. .7.. 


..8. 


. ..8. 




8.. 



CHRIS PLAYED THE SIX OF DIAMONDS. 
ERIC PLAYED THE FOUR OF CLUBS. 
STEVE PLAYED THE THREE OF DIAMONDS. 
I PLAYED THE SIX OF SPADES. 
I HON TRICK * 4. 



72, 13, 72, 73, 72, 72, 13 



528 FOR X=8 TO 31 

538 A(X)=X " 

548 NEXT X 

558 PRINT'HOH MANY PLAYERS"; 

568 INPUT N 

578 IMHT(N) 

588 IF NX THEN 688 

598 IF N>8 THEN 628 

689 PRINT"ONLY ONE TO FOUR PLAYERS ALLOHED, RE-ENTER. " 

618 GOTO 558 

628 FOR X=8 TO N-l 

628fl(X, 8)=8 

648 PRINTEHTER NAME OF PLAYER #";X+1; 

658 INPUT HKX) 

668 Y=LEN(N*(X» 

678 FOR Z=l TO Y 

688 T$=MIM(I»(X), i, Z-l) 

698 IF T$=" " THEH 718 

788NEXTZ 

718 IF. Z>1 THEH 748 

720 PRINT'DOH'T START NAME WITH SPACE, RE-"; 

738 GOTO 648 

748 S$(X)=MID$(N«X), 1, Z-l) 

758 NEXT X 

768 FOR J=8 TO 127 

778 «U)=" * 

788 NEXT J 

798 IF H=4 THEH 896 

888 IF N=l THEN 858 

818 PRINT'SHOULD I PLAY TOO (Y OR ID"; 

828 INPUT 1% 

B38 Z$=LEFT$(Z«, 1) 

848 IF ZtO'Y" THEH 898 

858 5«H)="C0HPUTER" 

868 N«N)="I" 

878 Q(N, 0)=8 

888 N=N+1 

898 FOR 1=8 TO 31 

988 X=A(I) 

918 Y=IMT(RND(8)*(32-I)+I> 

928 A(I)=H(Y) 

928 A(Y)=X 

948 NEXT I 1 28 



• els • 



950 FOR Y=8 TO 7 
968 FOR X=8 TO N-l 
978 P(X, Y)=A(Y*4+X) 
988 C«X*32+P(X, Y))=' 
998 NEXT X 
1886 NEXT Y 
1018 H=l 



1620 FOR R=i TO 7 

1628 GOSUB 1798 

1846 PRINT 764, "TRICK «";Pj"C T«8*H>" CARD H1NS)° CHR«21> 

1856 FOR X=6 TO N-i 

1868 IF 5«X>="COI1PUTER" THEN 2226 

1076 Z=Z*Z 

1688 PRINT 6 768, "WHAT CRRD, " £$«» 

1656 Q1*=IMKEW 

1168 IF 01*="" THEN 1698 

1118 PRINT"*"; 

1126 Q2*=INKEY* 

1128 IF 02*="" THEN 1126 

1148 PRIMT"tf"; 

1156 Et=8l*+Q2l 

U68 IF E$C"P" THEN 1196 

1178 GOSUB 1796 

1188 GOTO 1688 

1196 V=LENCE*> 

1268 IF V=2 THEN 1228 

1216 PRINT'BBD INPUT, RE-ENTER. " 

1228 GOTO 1688 

1226 V*=MD$CEt, i. 1) 

1246 ZJ=HIM(B, 2, 1) 

1258 IF VRL(VJ»0 THEN 1286 

1268 IF WO"B" THEN 1216 

1278 W="l" 

1286 V=VflLCY« 

1298 IF V=8 THEN 1216 

1368 IF V>8 THEN 1218 

1316 2=6 

1326 acx, 19)=8 

1338 IF Z$="C" THEN 1418 

1348 Z=2 

1258 IF Zt="S" THEN 1418 

1268 OS IBM 

1278 Z=l 

1358 IF 2$="D" THEN 1418 

1296 Z=2 

I486 IF ZtO"H" THEN 1218 

1416 V=(V-1)*4+Z 

1428 IF C«X*22+V>0"*" THEN 1218 

1426 OCX, 9)=V 

1446 NEXT S 

1456 GOSUB 1988 

1466 NEXT R 

1476 FOR X=0 TO 11-1 

1488 FOR Z=8 TO 21 

1498 IF «C22*X+Z>="*" THEN 1528 

1566 NEXT 2 

1516 PRINT'TO SCAN. " 

1528 MC22*X+2>=" " 

1538 OCX, 9>=2 

1548 NEXT X 

1558 R=8 

1568 GOSUB 1980 

1575 Hl=8 

1588 CIS 

1598 PRINT"THRT HAND "; 

1666 FOR X=8 TO N-l 

1618 OCX, 9>=6 

1626 V=« 

1638 z=e 

1646 FOR R=i TO 8 

1656 Z=Z+BCX, R> 

1668 OCX, R)=6 

1678 IF OCX, R+DOB THEN 1766 

1686 Y=V+Z*Z 

1698 Z=8 

1768 NEXT R 

i7ie ecx, e>=ea e>+v 

1728 PRINT mm" SCORED"; Vi "POINTS FOR A"; OCX, 0); "TOTAL " 

1730 if 0ch1 8)>0(x, 6when 1758 
1748 hi=x 

1758 NEXT X 

1766 IF Q(H1, 8»=Z9 THEN 2628 

1776 PRINT 979, "PRESS ANY KEY TO CONTINUE"; 

1786 IF INKEY* ="" THEN 1786 ELSE 890 

1798 CLS 

1886 FOR S=6 TO N-l 

1816 PRINT TRB(S*ii+3>S«S>; 

1828 NEXT S 

1826 PRINT 

1846 FOR S=8 TO N-l 

1858 PRINT" C D H S", 

1868 NEXT S 



1870 PRINT 

1886 FOR 5=6 TO 7 

1890 FOR V=6 TO N-l 

1908 Z=Y*22+S*4 

L918 PRINT STRINMC2, 19i>T*CS>CHR«i9i>MCZ>CHR«191)C*CZ+i>i 

1928 PRINT CHX*<191)C$(Z+2)CW.*(191)B<Z+2); 

1938 NEXT V 

1948 PRINT CHRf C19i>T«S>STRIHG«2, 1S1) 

1956 NEXT S 

1966 PRINT 

1978 RETURN 

1980 U=8 

1998 Hl=8 

2008 PRINT 8 784, "; 

2818 FOR X=8 TO M-l 

2026 V=MTCQCX, 9V4> 

2628 Z=QCX, 9)-V*4 

2646 PRINT NJCX)" PLAYED THE " YSCY)" OF ■ X*CZ>" " 

2056 CKX*22+0(X, 9»=" " 

2068 IF OCX, 9)>Q(U, 9)THEN 2880 

2876 L1=X 

2888 IF QCX, 9XQCHL. 9>THEN 2166 

2898 H1=X 

2iae next x 

2118 IF H=l THEN 2156 

2128 8CLL R)=l 

2128 PRINT N«Li>" HON TRICK l";R; CHR«8);" "; 

2146 GOTO 2176 

2158 (KM, R)=l 

2160 PRINT N«K1>" HON TRICK ii";R; CHR«8);" "; 

2178 H=8 

2188 IF QCLi, 16)OQ(M, 18)THEN 2268 

2196 H=l 

22Ei6 FOR A=l TO 1668 

2216 NEXT A 

2226 RETURN 

2228 Ll=8 

2240 L2=8 

2258 Hl=8 

2268 H2=0 

2270 FOR S=8 TO N-2 

2286 FOR S1=0 TO 7 

2298 IF PCS, S1»P(L1, L2)TH£N 2338 

2268 IF CJCS*42+PCS, Sl))=" ■ THEN 2326 

2216 L1=S 

2228 L2=S1 

2238 IF PCS, S1XPCH1, H2)THEN 2378 

2348 IF CICS*32tPCS, Si»=" " THEN 2378 

2356 H1=S 

2368 H2=S1 

2376 IEXT SI 

2388 NEXT S 

2390 FOR S=R-1 TO 7 

2480 IF H=l THEN 2458 

2418 IF PCH-1, SXPCL1, L2)THEN 2438 

2428 GOTO 2468 

2438 IF RHDC0». 2 THEN 2558 

2448 GOTO 2478 

2450 IF PCN-1, S»P(H1, H2)THEH 2436 

2468 NEXT S 

2478 Hl=32 

2486 Y=INT(RNDC6)*lb+H*16> 

2490 FOR S1=R-1 TO 7 

2588 Li=A8SCP(N-l, SD-V; 

2518 IF HKL1 THEN 2540 

2526 H1=L1 

2520 S=S1 

2548 NEXT Si 

2558 OCX, 9)=PCN-1, S) 

2568 PCN-1, S)=PCN-1, R-l) 

2578 Z=Q(X, 9)-C INTCQCX, 3>/4)*4> 

2586 IF Z<2 THEN 2668 

2596 2=ABS(Z-2) 

2686 OCX, 18)=Z 

2616 GOTO 1458 

2628 IF HDN-2 THEN 2688 

2628 FOR X=H1+1 TO N-l 

2648 IF SCH1, 0»OCX, 0)THEN 2670 

2658 PRIHT"GANE TIED AFTER REGULATION, ENTERING SUDDEN DEATH " 

2660 GOTO 890 

2678 NEXT X 

2686 PRINT tttCHi)" HON THE GAME CONGRATULATIONS, " StCM)" " 

2698 PRINT 

2788 PRINT 

2716 END 
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art 



Description: 

This program generates artistic patterns based 
on Pascal's triangle. 

Comments: 

Pascal's triangle is one of the most famous 
number patterns in mathematics. The triangle is 
very easy to construct. The first two rows consist 
of only 1's. Each of the subsequent have a 1 at 
either end of the row, but all other numbers in the 
pattern are the sum of the two numbers to the right 
and left in the row above. An example, illustrating 
the first 6 rows of the triangle, is shown below: 

1 

1 1 

1 2 1 

13 3 1 

14 6 4 1 

1 5 1010 5 1 

The program provides the user with three options 
during the course of a RUN. 
They are: 

1. A single "Pascal's triangle" 

2. Two "Pascal's triangles" 

3. Four "Pascal's triangles" 

A user may also specify the size of the array and 
the multiples of the number to be eliminated. 

Option 1 simply allows a user to examine an 
artistic picture of the relative positions of the mul- 
tiples of any number in the array. The apex of the 
array will appear in the upper left corner of the page. 

An example of how the machine uses a "triangle" 
to create a design based on eliminating the multiples 
of two is shown below. 

1111 . . . . 

12 3 4 * * 

1 3 6 10 

1 4 10 20 

Before Printing After Printing 

Option 2 allows a user to create a picture based 
on two Pascal's triangles in opposite corners of a 
square array. An example of how the machine uses 
two Pascal's triangles in the corners of a square to 
create a design based on eliminating the multiples 
of 2 is shown below: 
11110 ...» 

12 3 1 ... 

13 3 1 .... 
10 3 2 1 ... 
1111 .... 



Before Printing 



After Printing 



Option 3 creates a design based on Pascal's 
triangles in the four corners of a square. An ex- 
ample of how the machine uses four Pascal's tri- 
angles in the corners of an 8x8 array to create an 
artistic design based on eliminating the multiples 
of 2 is shown below. 



11111111 

12 3 3 2 1 

13 3 1 
1 1 
13 3 1 
12 3 3 2 1 
11111111 


A ft ft ft A A 
ft A A 
ft A 

ft ft 

A ft ft ft ft A 


Before Printing 


After Printing 



PASART and this description written by Charles A. 
Lund. They first appeared in Creative Computing, 
Mar/Apr 1977. 

Because PASART was run on a line printer, the 
sample runs are not representative of the true output. 
The only way to appreciate the graphics output is to 
run the program. 



PASART 
COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 



DO V0U NEED INSTRUCTIONS? YES- 



cls - 



PftSRRT 

THIS PROGRAM CREATES ARTIST DESIGNS BASED ON PASCAL'S TRIANGLE. 

V0U HAVE 3 BASIC TVPES OF DESIGNS TO SELECT FROM: 
1 A SINGLE PASCAL'S TRIANGLE (PLAVED WITH AN ARTISTIC FLARE) 
2. TWO 'ARTSY' PASCAL'S TRIANGLES PRINTED BACK TO BACK 
1 FOUR 'ARTSY' TRIANGLES IN THE CORNER OF 
A SQUARE ARRAY. 

HffiT'S YOUR PLEASURE <1, 2 OR 3)? 2 

HHICH MULTIPLES DO YOU WANT REPRESENTED WITH BLANKS? 2 

HOW MANY ROWS AND C0LUMS IN THE ARRAY (45 IS MAXIMUM)? 36 



ARTIST AT WORK .... 

THIS WILL TAKE SOME TIME 



els • 



■ Cl8 ■ 
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WHAT'S TOUR PLEASURE CI, 2 OR 3)? 1 

WHICH MULTIPLES DO VOU WANT REPRESENTED WITH BLANKS? 2 

HOW MANY ROWS AND COLUMS IN THE ARRHV (45 IS MAXIMUM)? 45 



ARTIST AT WORK 

THIS WILL TAKE SOME TIME 



• els ■ 



• * • 
• • • 



10 CLS: PRINT0413, "PASART" 

20 PRINT: PRINT TAB<7> "COPVRIOHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 CLEAR 1000: PRINTg968, ""; : INPUT "DO VOU NEED INSTRUCTIONS"; I* 

48 DIM PA*<15),P<45,45>: IF LEFT*<I*,i)="Y" THEN 60 

56 CLS: GOTO 170 

68 CLS: PRINT TABC29); "PASART": PRINT 

78 PRINT "THIS PROGRAM CREATES ARTIST DESIGNS BASED ON PASCAL'S TRIAN"; 

80 PRINT "GLE. » 

98 PRINT 

100 PRINT "VOU HAVE 3 BASIC TVPES OF DESIGNS TO SELECT FROM:" 

110 PRINT "1. A SINGLE PASCAL'S TRIRNGLE (PLBVED WITH AN ARTISTIC aAR"; 

120 PRINT "E>" 

130 PRINT "2. TWO 'ARTSY' PASCAL'S TRIANGLES PRINTED BACK TO BACK" 

140 PRINT "3. FOUR 'ARTSV TRIANGLES IN THE CORNER OF" 

158 PRINT " A SOUARE ARRAY. " 

160 PRINT 

178 PRINT "WHAT'S YOUR PLEASURE (1, 2 OR 3>»; 

180 INPUT 

190 IF <0-l)*<0-2)*<0-3) O THEN 170 

200 PRINT "WHICH MULTIPLES DO YOU WANT REPRESENTED WITH BLANKS"; 

210 INPUT Q 

220 PRINT "HOW MANY ROWS AND COLUMS IN THE ARRAY <45 IS MAXIMUM)"; 

230 INPUT T 

240 PRINT: PRINT STRING$<24, 148); • ARTIST AT WORK "; STRING$<24, 140); 

258 PRINT TABC28); "THIS WILL TAKE SOME TIME"; 

260 IF W45-TX0 THEN 228 

278 ON GOTO 320,530,780 

280 REM 

298 REM 

308 REM TIME TO CREATE AND PRINT A SINGLE PIECE OF PASART 

310 REM FIRST BUILD THE PASCALS TRIRNGLE 

320 FOR R=l TO T 

330 FOR C=l TO T 

340 IF <R-1)*<C-1)=0 THEN 370 

350 P<R,C)=P(R,C-l)+P<R-i,C) 

360 GOTO 380 

270 P(R, C)=l 

380 NEXT C 

390 NEXT R 

408 REM TIME TO PLAY BRCK THE TRIANGLE WITH AN ARTISTIC RARE. 

410 FOR R=l TO T STEP 3 

420 FOR C=i TO T 

438 IF CP(R, CYa)=INT<P(R, CVQ) THEN P(R,C)=0 

440 IF (P<R+1, CVQ)=INT(P<R+1, CVQ) THEN PCR+1, C)=0 

450 IF <P<R+2, C)/Q)=INKP<R+2, CVQ) THEN PCR+2, C)=0 

468 RE=<R-1V3 

470 PA*<AE)=PA$<AE)+CHR*<128-3*<P<R, C)O0)-12*<P<R+1, C)O0)-48*<P<R+2, C)O0)) 

480 NEXT C 

490 NEXT R 

500 CLS: FOR A=0 TO 14: PRINT PASCH): NEXT A 

510 GOTO 1340 



528 REM TIME TO CREATE AND PRINT DOUBLE PIECE OF PASART 

530 Z=T 

540 REM BUILD THE UPPER LEFT HAND HALF OF THE ARRAY 

550 LET N=Z 

560 FOR R=l TO N 

570 FOR C=l TO Z-l 

580 IF <R-l)*(C-i)=8 THEN 610 

590 PCR, C)=P<R, C-1)+P<R-1, C) 

680 GOTO 620 

610 P(R,C)=1 

628 NEXT C 

630 Z=Z-1 

648 NEXT R 

650 REM BUILD THE LOWER RIGHT HALF OF THE ARRAY. 

660 Z=N 

670 N=2 

680 FOR R=Z TO 1 STEP -1 

690 FOR C=Z TO N STEP -1 

780 IF <R-Z)*<C-Z)=0 THEN 730 

710 P<R, C)=P<R, C+1HP<R+1, C) 
720 GOTO 740 
730 P<R,C>=1 
740 NEXT C 

750 N=N+1 
760 NEXT R 
7?& GOTO 410 
780 M=Q 

790 REM BUILD THE UPPER LEFT HALF CORNER OF THE ARRAY 
880 V=T 

810 Z=INTW2) 

828 B5=Z*2 

838 Z1=Z 

840 Z2=Zi 

850Z3=Z2 

866 X4=Z3 

870 X5=X4 

880 FOR 1=1 TO Zl 

890 FOR J=i TO Z 

980 IF <J-1)*<I-1)=0 THEN 930 

910 PCI, J)=PU, J-1)+P<I-1, J) 

920 GOTO 940 

930 P<I,J)=1 

940 NEXT J 

950 Z=Z-1 

960 NEXT I 

970 N=Z1 

980 REM BUILD THE UPPER RIGHT HAND CORNER OF THE ARRAY. 

990 FOR 1=1 TO Zl 

1800 FOR J=V TO X5+1 STEP -1 

1010 IF 1=1 THEN 1858 

1020 IF J=Y THEN 1850 

1030 P<I,J)=P(LJ+1)+P(I-1 J J) 

1040 GOTO 1868 

1050 P<I,J)=i 

1860 NEXT J 

1870 X5=X5+1 

1880 NEXT I 

1090 N=Z2 

1100 REM BUILD THE LOWER LEFT CORNER OF THE ARRAY 

1110 FOR I=Y TO X4+1 STEP -1 

1128 FOR J=l TO Z2 

1130 IF J=i THEN 1170 

1140 IF I=Y THEN 1170 

1158 Pa,J)=P<I,J-l)+P<I+i,J) 

1160 GOTO 1180 

1170 P<I,J)=1 

1180 NEXT J 

1190 Z2=Z2-1 

1208 NEXT I 

1210 N=Z3 

1220 REM BUILD THE LOWER RIGHT CORNER OF THE ARRAY. 

1230 FOR I=V TO N+l STEP -1 

1248 FOR J=V TO Z3+1 STEP -1 

1250 IF J=V THEN 1290 

1260 IF I=V THEN 1290 

1270 Pa,J)=P(I+l,J)+P(I,J+l) 

1280 GOTO 1300 

1290 P<I,J)=1 

1300 NEXT J 

1310 Z3=Z3+1 

1320 NEXT I 

1330 GOTO 410 

1340 PRINT0960, "»; : INPUT "WANT ANOTHER »;RN* 

1350 IF LEFWANS*, 1)=»N° THEN END 

1360 CLS: CLEAR 1000: DIM PA*(15), P<45, 45) • GOTO 170 
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•asar- 



This program is a major extension of 
the original Pasart program. It incor- 
porates many new options including 
printing a calendar for any year from 
1600 to 2300. It allows a user to enter 
any desired pair of printing characters. 
The size of the output is expanded to 72 
by 72 with an option to expand it further 
by dividing the final triangle into 72 by 
72 chunks that may be taped together. 
Another option provides the user with 
the opportunity to create a picture 
based on four Pascal's tables (option 
5). 

There wasn't room to show the 
output from all of these options on 
these pages. Try them out yourself and 
we're sure you'll be pleased with the 
rather spectacular results. 

Pasart 2 was also written by Charles 
H. Lund. 

PASART2 

COPYRIGHT 1979 CREATIVE IMPUTING HORRISTONN, NJ 
(PRESS ANY KEY TO CONTINUE) 

— , els 



4. FOR PASCALS TRIANGLES PRINTED IN A SQUARE LIKE THIS: 



FEBRUARY 1682 



THIS PROGRAH CREATES ARTIST DESIGNS BASED ON 

PASCAL'S TRIANGLE. 

DO YOU HANT A LIST Of OPTIONS? YES 

TEAS OFF THE LIST AH) SAVE OR POST FOR FUTURE REFERENCE 

WAT'S YOUR PLEASURE (12,3,4,5 OR 6)? 3. 



■ els • 



BEFORE PRINTING 
111111 
12 21 
1 1 

1 1 

12 21 
111111 



AFTER PRINTING 

****** 



****** 



5. FOUR PASCALS TRIANGLES PRINTED IN A SQUARE LIKE THIS: 



BEFORE PRINTING 
111111 
123321 
136631 
136631 
123 3 21 
111111 



AFTER PRINTING 
****** 

* ** * 
** ** 
** ** 

* ** * 



START PASCALS TRIANGLES IN ANY RON AND COLUM 
SO THAT A USER CAN TAPE TOGETHER SEVERAL PICTURES 
TO HAKE A LARGER DESIGN. THIS OPTION EXTENDS 
PICTURES LIKE THOSE SH0»i IN OPTION 1 IN 36 X 36 
CHARACTER CHUNKS. ENTRIES OF UP TO 1883 RONS AH) C0LUI1S 
ARE ACCEPTED. 



YOUR PICTURE SHOULD HIGHLIGHT THE MULTIPLES OF WAT NUSER? 4 



HOT CHARACTER HOLD YOU LIKE TO PRINT OUT REPRESENTING 
THE MULTIPLES OF 4 (ENTER " ■ FOR A BLANK)? " ■ 



HHAT CHARACTER MOULD YOU LIKE TO PRINT OUT REPRESENTING EACH 
OF THE OTHER NUMBERS IN THE PATTERN (ENTER ■ " FOR A BLANK)? * 



HON WHY RONS AND COLUHS IN THE ARRAY (MAX = 36)? 36- 



■ els ■ 



*********++♦-* ******* f *♦** ******* **** 
*** *** *** *** *** *** *** *** ** * 


****** 


****** 


****** ****** * ** 


* * * 


* * * 


* * * * * * 


*** 
* 
** 


*** * * *** 


*** * * *** 


** ** 


** 


****** 


*** 


* * 


* 


* * * 


**** 
* * * 
****** 


*** *** 


* * * i 


' *** *** 


****** 


** ** 

* * 


****** 


*** *** 






**** 


**** 


**** * 


* * 


*** 


* * 


*** ** 


** ** 


** 


** 


** *** * * *** 


* 


* 


* ***** 


* * * 
****** 


*** *** *** *** * * ****** 


****** 
* * * 


****** 
* * * 


* ************* 
******************* 


*** * * 


*** 


* * 

** ** 


* 
** 


** ** 


** 


*** * * 


*** 


* * 


* 


**** **** 


**** 


******** 


* * * * * 


* * * 


*** *** 


$$**** ** ** 


****** 


****** 
* * * 


*** *** * * * * 


*** *** 


* 


* * * 


* * 


*** 


****** ** 


** ** 


** 


*** * 


* *** *** 


* * *** 



MOULD YOU LIKE A CALENDAR PRINTED WITH YOUR PICTURE? YES 
HHAT YEAR BETWEEN 1688 AND 2888 KOULD YOU LIKE? 1682 



*** *** * * * *** *** 
** * ****** ****** ****** ****** 
*************************** 

Ufr*W4 HS HH «*S* mm *********** 



1 A SINGLE PASCALS TRIANGLE PLAYED BACK LIKE THIS: 

BEFORE PRINTING AFTER PRINTING 
111 *** 

123 ** 

136 ** 

2 A SINGLE PASCALS TRIANGLE PLAYED BACK LIKE THIS: 

BEFORE PRINTING AFTER PRINTING 

I * 

II ** 
121 ** 

3. THO PASCALS TRIANGLE PRINTED BACK TO BACK LIKE THIS: 
BEFORE PRINTING AFTER PRINTING 



1118 
1281 
1821 
Bill 



*** 
* * 









JANUARY 


1 1682 






ISLW 


HON 


TUE 


MED 


THU 


FRI 


SAT! 










1 


2 


3 


4 


5 


6 


? 


8 


9 


18 


11 


12 


13 


14 


15 


16 


1? 


18 


19 


28 


21 


22 


23 


24 


25 


26 


2? 


28 


29 


38 


31 



!SUN HON TUE NED THU FRI SAT! 

12 3 4 5 6 7 

8 9 18 11 12 13 14 

15 16 17 18 19 20 21 

22 23 24 25 26 27 28 









MARCH 


1682 






!SUN 


HON 


TUE 


m 


THU 


FRI 


SAT! 


1 


2 


3 


4 


5 


6 


7 


8 


9 


18 


11 


12 


12 


14 


15 


16 


17 


18 


19 


28 


21 


22 


23 


24 


25 


26 


27 


28 


29 


38 


31 

















APRIL 


1682 






!SUN 


HON 


TUE 


NED 


THU 


FRI 


SAT! 








1 


2 


3 


4 


5 


6 


7 


8 


9 


18 


11 


12 


13 


14 


15 


16 


17 


18 


19 


28 


21 


22 


23 


24 


25 


26 


27 


28 


29 


38 







MAY 1682 



!SUN 


HON 


TUE 


ie 


THU 


FRI 


SAT! 












1 


2 


3 


4 


5 


6 


7 


8 


9 


18 


11 


12 


13 


14 


15 


16 


17 


18 


19 


28 


21 


22 


23 


24 


25 


26 


27 


28 


29 


38 


31 





















Me 


1682 






!5UN 


HON 


TUE 


NED 


THU 


FRI 


SAT! 




1 


2 


3 


4 


5 


6 


7 


8 


9 


18 


11 


12 


13 


14 


15 


16 


17 


18 


19 


28 


21 


22 


22 


24 


25 


26 


27 


28 


29 


38 

















JULY 


1682 






!SUN 


HON 


TUE 


NED 


TKU 


FRI 


SAT! 








1 


2 


3 


4 


5 


6 


7 


8 


9 


16 


11 


12 


13 


14 


15 


16 


17 


18 


19 


28 


21 


22 


23 


24 


25 


26 


27 


28 


29 


38 


31 
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18 clear lee 

28 as 

29 PRINT « 411, *PflSfiR12* 
48 PRINT 

59 PRINT TAB(?)"COPYRIGHT 1979 CREATIVE COWING fttRRISTOBt NJ" 

68G0SUB 3548 

78 REH THIS PROGRAM REQUIRES ABOUT 16K FREE WORK SPACE 

88 REM AND fl LINE PRINTER. 

98 REH TO OBTBIN LARGER PICTURES EXPAND THE ARRAY IN LIKE 

19B REH 1889 TO P<7Z72) 

118 REH OPTION 16 REQUIRES 48K RHD TRKES ABOUT RN HOUR TO RUN 

129 PRINT 8 384, "THIS PROGRAM CREATES ARTIST DESIGNS BRSED ON" 

138 PRINT "PASCAL'S TRIRHGLE • 

148 PRINT "DO YOU RANT fl LIST OF OPTIONS"; 

158 INPUT SI* 

168 IF LEFT*(Sl*,i)0"Y" THEN 598 

178 PRINT "TEAR OFF THE LIST AM) SAVE OR POST FOR FUTURE REFERENCE" 

188 LPRINT STRIHGN58, "-"> 

198 LPRIHT "1 fl SINGLE PASCALS TRIANGLE PLAYED BACK LIKE THIS:" 

288 LPRINT ■ BEFORE PRINTING AFTER PRINTING" 
218 LPRINT " 111 ***■ 

228 LPRINT " 12 3 * *■ 

239 LPRINT " 13 6 *»■ 

249 LPRINT "1 A SINGLE PHSCRLS TRIANGLE PLAYED BACK LIKE THIS:" 

258 LPRINT " BEFORE PRINTING AFTER PRINTING" 

268 LPRINT ' 1 *■ 

279 LPRINT ■ 11 «• 

289 LPRINT " 12 1 * *■ 

298 LPRIHT "1 TNO PASCALS TRIANGLE PRINTED BACK TO BACK LIKE THIS:" 

338 LPRINT " BEFORE PRINTING AFTER PRINTING" 

318 LPRINT ' 1118 ***" 

328 LPRINT " 12 8 1 * *■ 

338 LPRINT " 18 2 1 * *" 

349 LPRINT " Bill ***■ 

358 LPRINT "4. FOUR PASCALS TRIRHGLES PRINTED IN A SQUARE LIKE THIS'" 

368 LPRINT " BEFORE PRINTING AFTER PRINTING" 

378 LPRINT " 111111 ******* 

388 LPRINT " 12 21 * »• 

399 LPRINT " 1 1 * ♦■ 

489 LPRINT " 11**" 

418 LPRINT " 12 2 1 * *■ 

428 LPRINT " 111111 ******* 

438 LPRINT "5. FOUR PASCALS TRIANGLES PRINTED IN A 56UARE LIKE THIS:" 

448 LPRIHT " BEFORE PRINTING AFTER PRINTING" 

458 LPRINT " 111111 ******* 

469 LPRIHT " 12 3 3 2 1 * ** *" 

478 LPRINT " 13 6 6 3 1 ** **" 

488 LPRINT " 136631 ****" 

498 LPRIHT " 12 3 3 2 1 * ** *" 

589 LPRINT " 111111 ******* 

518 LPRINT "6. START PASCALS TRIANGLES IN ANY ROM AND COLUMN" 

528 LPRINT * SO THAT A USER CAN TAPE TOGETHER SEVERAL PICTURES" 

538 LPRINT " TO HAKE A LARGER DESIGN. THIS OPTION EXTENDS" 

548 LPRINT " PICTURES LIKE THOSE SHOWN IN OPTION 1 IN 36 X 36" 

558 LPRINT ■ CHARACTER CHUNKS. ENTRIES OF UP TO 1898 ROUS AND COLUHS" 

569 LPRINT " ARE ACCEPTED. " 

578 LPRINT STRINGK58, "-") 

588 PRINT 

598 PRINT "(HAT'S YOUR PLEASURE (1,2,3,4,5 OR 6)"i 

688 INPUT OX 

616 IF OX<? m 0X>8 THEN 638 

628 PRINT "I'll SUPPOSED TO BE YOUR FRIEND, SO HON ABOUT IT?'- GOTO 598 

638 OS 

648 PRINT "YOUR PICTURE SHOULD HIGHLIGHT THE MULTIPLES OF WHAT NUMBER"; 

658 INPUT 02 

668 PRINT 

678 PRINT "WHAT CHARACTER MOULD YOU LIKE TO PRINT OUT "; 

689 PRINT "REPRESENTING"- PRINT "THE MULTIPLES OF"; 02; 
698 PRINT "(ENTER ";CKR*(34>;" , ;CHR*G4>;" FOR A BLANK)"; 
788 INPUTS* 

718 PRINT 

728 PRINT "HHAT CHARACTER HOULD YOU LIKE TO PRINT OUT REPRESENTING EACH" 

738 PRINT "OF THE OTHER NUHBERS IN THE PATTERN "; 

748 PRINT "(ENTER ";CHR*(34>;" ";CKR*G4);' FOR fl BLRNK)"; 

758 INPUT T* 

768 PRINT 

778 IF 02=6 THEN 828 

788 PRINT "HON HANY ROUS AND COLUHS IN THE ARRAY (MAX = 36)"; 

796 INPUT TX 

888 IF T2>36 PRINT "BE REASONABLE! " • GOTO 798 

SIB OS 

829 PRINT "MOULD YOU LIKE A CALENDRR PRINTED HITH YOUR PICTURE"; 

838 INPUT R5* 

846 IF LEFT*(R5*,DO"Y" THEN 888 

858 PRINT "WHAT YEAR BETWEEN 1688 AND 2888 HOULD YOU LIKE"; 

868 INPUT Y92 

878 IF Y92*(3899-Y2X=8 THEN PRINT "EVEN I HAKE NISTRAKES!"- GOTO 858 

888 IF 02O6 THEN DIH PX(36,36> ELSE DIM Ri(72,72) 

898 ON 02 GOTO 928, 2178, 1198, 1488, 1498, 2318 

999 REH TIME TO CREATE AND PRINT A SINGLE PIECE OF PRSART 
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918 REH FIRST BUILD THE PASCALS TRIANGLE 

928 FOR RX=i TO T2 

938 FOR CM TO TX 

948 IF (RX-i>*(CX-l>=8 THEN 998 

958 PX(RX,C2>=P2(RX-LC2>4P2(R2,C2-i> 

968 IF PXO&CZXQXn THEN 1888 

978 r,mCZ>=P2(RZ,C2>-aKK 

988 GOTO 968 

998P2(R2,C2>=1 

1688 NEXT C2 

1818 NEXT R2 

1928 REH TIHE TO PLAY BACK THE TRIANGLE HITH AN ARTISTIC FLAIR 

1838 IF 02O3 THEN 1858 

1849 T2=TX*2-1 

1858 FOR R2=l TO TX 

1869 FOR CX=i TO TX 

1879 IF P2<R2,C2>=8 THEN 1118 

1888 IF (PX(RX,CZ)AE-INT(PX(RX,C!;)/ffii))*8!!C95 THEN 1118 

1998 LPRINT T*; 

1198 GOTO 1129 

1118 LPRINT S*; 

1129 NEXT a 

1139 LPRINT " " 

1149 NEXT RX 

1158 IF LEFT*(R5*,1)="Y" THEN 3988 

1168 GOTO 3539 

1178 REH OPTION 4: LIMES 1178-1478 

1188 REH TIHE TO CREATE AND PRINT A DOUBLE PIECE OF PASftRT 

1198 Z2=T2 

1288 REH BUILD THE UPPER LEFT HAND CORNER OF THE ARRAY 

1219NX=ZX 

1228 FOR R2=i TO N2 

1238 FOR CM TO ZX-1 

1248 IF (RX-l>*(CZ-i)=8 THEN 1298 

1258 P2(RX,CX>=PX(R2-i,C2>+P2(RX,CZ-l> 

1269 IF PX(RX,CXXQX[3 THEN 1388 

1278 P2(RX,C2>=P2(RX,C2)-aX*Q2 

1288 GOTO 1269 

1298 KKRX, 00=1 

1388 NEXT CX 

1318 Z2=Z2-1 

1328 NEXT RX 

1338 REH BUILD THE LOWER RIGHT HALF OF THE ARRAY 

134BZ2=N2 

1358 NX=2 

1368 FOR R2=ZX TO 1 STEP -1 

1378 FOR CX=ZX TO NX 5TEP -1 

1388 IF (R2-ZX)*(CX-Z2)=8 THEN 1438 

1398 PX(RX,CX)=fX(RX,CX+l)<P!!(RZ+l,CZ) 

1489 IF PX<R2,C2XQXi3 THEN 1448 

1418 P2(R2,C2)=PX(RX,C2MK[2 

1426 GOTO 1488 

1438 P2(RX,C2)=1 

1449 NEXT CX 

1459 NX=N2+i 

1468 NEXT RX 

1479 GOTO 1958 

1488 REH OPTIONS 4 4 5: LINES 1498-2168 

1498HX=Q2 

1599 REH BUILD THE UPPER LEFT CORNER OF THE ARRAY 

1518 Y2=T2 

1529 ZX=INUYX/2> 

1538 B52=ZX*2 

154B zimx 

155BZ2X=Z1X 
1568Z3X=Z2X 
1578 X42=Z32 
1588 X52=X42 
1598 FOR 12=1 TO ZiX 

1698 FOR JX=1 TO ZX 

1616 IF (JX-i)*(IX-i)=8 THEN 1668 
1628 PXOX, JX)=PX(IX, JX-i>*P2(IX-L JX) 
1638 IF PX(IX,JXXQXt3 THEN 1678 
1648 P2(I2,J2)=P2(IX,J2HIXr2 
1658 GOTO 1638 
1668 P2<I2,JX>=1 
1678 NEXT JX 
1688 IF 0X=5 THEN 1788 

1699 Z2=Z2-1 
1788 NEXT IX 
1716 NX=Z1X 

1728 REH BUILD THE UPPER RIGHT CORNER OF THE ARRAY 

1738 FOR 12=1 TO 212 

1748 FOR J2=Y2 TO X52+1 STEP -1 

1758 IF 12=1 THEN 1816 

1766 IF JX=YX THEN 1819 

1778PX(IX,JX)=P2(I2,JX+1)4P2(IZ-LJ2) 

1788 IF P2(I2,J2XQX£3 THEN 1828 

1798 P2(IX,JX)=PX(IX,J2)-aa2 

1886 GOTO 1788 



161BPZ(1Z,JZ)=1 

1828 KEXT JZ 

1828 IF 02=5 THEN 1858 

1848 X5Z=X5X+1 

1858 (OCT IX 

1868KM2Z 

1878 REH EUIU) THE LOBER LEFT CORKER'OF THE RRRRV 

1888 FOR IX=Y2 TO X4X+1 STEP -1 

1838 FOR JZ=1 TO Z2Z 

1988 IF JX=i THEN 1968 

1918 IF IK=VZ THEN 1968 

1928 PZCI& JZ)=PZ(IZ, JX-DtPZdM, JZ) 

1938 IF PX(lZ,JZX9Xn THEN 1978 

1948 K!(1X,JZ>=PZ(IX, JZ)-QXE2 

1958 00T0 1938 

196BIOTJXM 

1978 NEXT JZ 

1988 IF (K=5 THEN 2888 

1998 Z2Z=Z2Z-1 

2888 !EXT 1Z 

281B NX=Z3X 

2828 REH BUILD THE LOO RIGHT CORNER OF THE RRRflV 

2838 FOR IX=YZ TO NX+i STEP -1 

2848 FOR JZ=VZ TO Z2Z+1 STEP -1 

2858 IF JZ=VX THEN 2118 

2868 IF IZ=VX THEN 2118 

2878 PZdZ, JZ)=PZ(IZ+1, JZ>+PZ(I%, JZ+1) 

2888 IF PZ(IZ,JZXQXt3 THEN 2128 

2898 PZ(IZ,JZ)=PZ(IX,JZ)-eXC2 

2188 GOTO 2888 

2U8PZ(IZ,JX)=1 

2128 REXT JZ 

2128 IF 0X=5 THEN 2158 

2148 23Z=Z3Z+1 

2158 NEXT I!! 

2168 GOTO 1858 

2178 REH PfiSFORH C OPTION 2: LINES 2188-2388 

2188 FOR KS=l TO TS! 

2198 FOR CM TO TZ 

228B IF CJOBi THEN 2288 

2218 IF(CZ-1>=8 THEN 2278 

2228 IF RZ=CZ THEN 2278 

2238 PZ(RZ,CX>=PZ(RZ-i,CZ-l>+PZ(RX-i,CZ> 

2248 IF PZ(RX,CZXQZn THEN 2288 

2258 PZ(RX,CX>=PZ(RZ,CZ>-aH2 

2268 GOTO 2248 

2278 PZ(RZ,CX>=1 

2288 REXT CZ 

2298 NEXT RX 

2388 GOTO 1828 

2318 REH OPTION 6 LINES 2348-3878 

2328 REH PUSHES THE BOUNDflRIES HRV OUT 

2338 REH NOTE THE PROTECTION (BfllNST THE TIHE OUT UNIV 1118 

2348 PRINT 

2358 PRINT "HUT HILL BE THE COORDINATES (R,C> OF THE UPPER LEFT 

2368 PRINT "OF THIS SECTION"; 

2378 INPUT R1Z,C1Z 

2388DIHRZ(i888),CZ(i888) 

2398 Pat ***T=THKi> 

2488 FOR L1Z=1 TO 36 

2418 FOR L2Z=1 TO 36 

2428PX(L1X,L2Z)=8 

2438 NEXT L2Z 

2448 NEXT UX 

2458 FOR L2M TO 1888 

2468 RZ(L22)=i 

2478 CX(L2Z)=i 

2488 NEXT L2Z 

2498 IF PdZ=l THEN 2688 

2588 FOR RZ=2 TO R1Z 

2518 FOR CZ=2 TO C1Z+72 

2528 RZ(CZ>=RZ(C!)+RZ(CZ-i> 

2538 IF R/i(CZ)<aZt3 TtfN 2568 

2548 RZ(CZ)=R2(CZ)-flXt2 

2558 GOTO 2538 

2568 NEXT Ci 

2578 REH *** IF TIH(i)-T<6 THEN 2778 

2588 GOSUB 3838 

2598 REXT RZ 

2688 IF C1Z=1 THEN 2728 

2618 FOR CX=2 TO CiX 

2628 CZ(R1Z>=RZ(C2> 

2638 FOR RZ=K1Z+1 TO R1Z+72 

2648 CZ(RZ)=CZ(RZ)*CZ(RZ+1) 

2659 IF C.(RZXQH3 THEN 2688 

2668 Ci(RZ)=Ci(RZ)-flZT.2 

2678 GOTO 2658 

2688 NEXT RZ 

2698 REH «* IF TIH(1)-T<6 THEN 2898 

2788 GOSUB 3838 



WW) CORNER"; 
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2716 KEXT Ci 

2728 FOR CM TO 72 

2738 PX(i,CZ)=RZ(CX*CiZ-l) 

2748PZ(CZ,i)=Ci(CZ4RiX-l> 

2758 KEXT CZ 

2768 FOR RZ=2 TO 72 

2778 FOR Ci=2 TO 72 

2788 PZ(RZ,C!)=PZ(RZ-l,Ci)+PZ(RX,CZ-i> 

2798 IF PZ(RZ,G!XQZr.3 THEN 2828 

2888 PZ(RZ,Ci)=PZ(RX,C.H}Z[2 

2018 GOTO 2798 

2828 NEXT Ci 

2838 REH «* IF TIH(1)-K6 THEN 3838 

2848 GOSUB 3838 

2858IEXT RZ 

2868 GOSUB 3838 

2878 LPRINT " " 

2888 LPRINT " " 

2898 FOR KM. TO 78 

2988 FOR CM TO 76 

2918 IF (PZ(PXC.)/(K-IHT(l>ZCRX,Ci)/ffii»*aXC98 THEN 2948 

2928 LPRINT T$; 
2938 GOTO 2958 

2948 LPRINT S$; 

2958 NEXT Ci 

2968 REH **» IF TIH(1)-T<6 THEN 3168 

2978 GOSUB 3838 

2988 LPRINT " " 

2993 NEXT RZ 

3888 LPRINT " " 

3818 LPRINT * " 

3828 GOTO 1158 

3838 LPRINT ■ "; 

3848 REH »** LIWUT f» 

3858 REH «** T=TIH<1) 

3868 RETURN 

3878 GOTO 1158 

3888 REH CflLERDBR 

2898 LETXX=Y9Z 

3168 REH LINES 3888-3518 PRODUCE fl CHLENDRR 

3118 REH PROGRRH IS R SUBROUTINE THRT USES VRRIflBLE X=VERR 

3128 REH OF CflLENDRR 

3138 Ci=6 

2148 FOR JM688 TO XZ 

3158 IF JK=WJ THEN 3218 

3168 IF JZ/4 O INKJZ/4) THEN 3289 

2178 IF <JX-lW)»<JX-1888)*(J , M938)*(K-21B8)*(JK-2288)*(J!i-2389)=8 THEN 3288 

3188 Ci=CZ+2 

3198 GOTO 3218 

3289Ci=CZ+i 

3218 IF CZ<7 THEN 3238 

3228CZ=CZ-7 

3238 KEXT JZ 

3248 LPRINT " " 

3258 FOR RM TO 12 

3268RERDR* 

3278 LPRINT TflB(17)iR$i" "iffl 

3288 REH) BZ 

3298 IF XZ/4 O lHT(XZ/4> THEN 3328 

3388 IF RSO'FEBRURRV" THEN 3328 

3318 BZ=BZ*1 

3328 REH TIKE TO PRINT THE C&ENDRR FOR THE VERR X 

3338 LPRINT STRINGI(4L"=") 

3348 LPRINT "!SUN HON TUE WED THU FR1 SRT!" 

3358 LPRINT STRIN6K41, "=") 

3368 FOR DZ=4 TO BZ 

3378 LPRINT TRB(6«CZ))07j 

3388 CZ=CZ+1 

3398 IF Ci<7 THEN 3428 

3488 LPRINT " " 

3418 CZ=8 

3428 KEXT DZ 

3438 LPRINT " " 

3448 LPRINT STRING$(4i,"="> 

3458 FOR PM TO 3 

3468 LPRINT " " 

3478 KEXT PZ 

3488REXTRZ 

3493 DflTR "JH«JRRV",31,"FEBRUHW",28,"HRRCH",3L 1 flPRIL",38 

2588 OATH "HftV",31,"JUKE",38,"JULV,31,"ftUGUST",31,"SEPTEK8ER" 

3518 DflTR 31, "OCTOBER", 31, "H0VEHBER",33, "DECEKBER",31 

3528 REH HS PROGRRH ENDS HERE 

3538 END 

3548 PRINT 8 975, "(PRESS RNV KEY TO CONTINUE)"; 

3558 f*=I!KEY* 

3568 IF R$=" THEN 2558 

3578 CLS 

3588 RETURN 

3598 PRINT 8^84, " 

2688 RETURN 



Pinball 



PINBALL is, naturally enough, a 
simulated pinball game— complete 
with bells if yourtermmal has them— in 
which the computer serves as the 
pinball machine. However, you don't 
need any quarters! The program is 
divided up into ten small routines 
contained within the whole. Each 
subprogram performs one task in 
simulating a pinball game. 

Details on each task/subprogram are 
as follows. 

1) Starting and monitoring the game. 

This task is performed by the master 
function PINBAL, which iscontained in 
lines 1-600 of the program. Pinbal asks 
if the user wants instructions or a 
picture at the start of the game, puts 
each new ball into play, moves the ball 
until it comes into contact with an 
object on the table, and tells the user 
when he is finished and if he has 
broken the table record. 

2) Printing instructions. 

This subprogram is on the lines 
numbered 1010-1999, and its major 
task is to print the instructions of the 
pinball game and then to branch to the 
picture program to print a picture of the 
table (see below). After the picture of 
the table is completed, this subroutine 
explains the function of each figure on 
the table. 

3) Registering "hits" and computing 
new scores. 

Lines 2010-3999 are in charge of 
taking action each time the space 
occupied by the ball on the table is not 
blank. These lines also prepare the 
table to take action on the next task, 
namely flipping the table's flippers 
when the ball approaches them. 

4) Flipping the flippers. 

This task is accomplished by the 
lines in the four thousand range. These 
lines also set up indicators for the 
monitor routine (1 above) to put the 
next ball into play if necessary and 
branch to the routine that adds bonus 
points for tags (letters A-J) knocked 
down during that ball's play. 

5) Bonus points at the end of a ball's 
play. 

Lines in the five thousand range 
handle this task and then branch back 
to the monitor routine to put the next 
ball into play. If all ten tabs are knocked 
down in one ball, the program im- 
mediately awards a bonus of 250 points 
and an extra ball to the player and 
resets the tabs for further play. Normal- 
ly, bonus points are awarded at the rate 
of ten per tab at the end of a ball. 



6) Printing pictures of the table. 

Lines in the six thousand range print 
a picture of the pinball table, either at 
the beginning of play or randomly, at 
the rate of one picture for every twenty- 
five "hits." 

7) Bouncing the ball off bumpers and 
the jackpot. 

The ball is "bounced" by the routine 
beginning at line 7850. 

8) Initializing the table. 

The table is initialized at the begin- 
ning of the game by lines in the nine 
thousand range. 



Suggestions for improvement and 
change. 

1) Change the table as you wish by 
inserting or deleting bumpers, 
jackpot(s), gates (numbers, now 1-9 
and 0), etc. You may also move the 
positions of any item on the table 
except the three flippers. 

2) Program in new sorts of table ob- 
jects. 

3) If your system is so equipped, rig in 
the program with some synthesizer 
music to heighten realism! 

Pinball was conceived and written by 
Donald-Bruce Abrams. 

PINBRLL 



COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 



DO YOU NEED INSTRUCTIONS? YES_ 



■ Cls ■ 



PINBRLL 

THE RULES OF COMPUTER PINBALL ARE FAIRLY SIMPLE. YOU GET A TOTAL 
FIVE BALLS. IF YOU SCORE MORE THAN 1688, YOU GET A 6TH BALL. IF 
YOUR SIX BALL SCORE IS MORE THAN 2, 200, YOU GET A SEVENTH BALL. 

THIS TABLE HAS THREE FLIPPERS, EACH OF WHICH PROTECT AN OUT CHUTE 
HOWEVER, THIS SET DIFFERS FROM OTHER SETS, SINCE YOU MAY ONLY FLIP 
TWO OF THE FLIPPERS ANY TIME THE BALL APPROACHES THE CHUTE. 
N0TA BENE: YOU DO NOT! i ! KNOW FOR SURE WHERE THE BALL IS I ! 
SO, IF YOU FLIP THE WRONG TWO FLIPPERS, V0U LOSE THE BALL, AND THE 
NEXT BALL IS PUT INTO PLAY. 



PRESS ANY KEY TO CONTINUE 
cls 



PINBALL 

THERE IS SOME LOGIC TO THE CHOICE OF FLIPPERS 

THE FLIPPERS ARE NUMBERED 1,2,3 FROM LEFT TO RIGHT 

SINCE LUCK PLAYS A SMALL PART IN CHOOSING THE CORRECT FLIPPER, 

YOU WILL DO POORLY IF YOU JUST GUESS WHICH FLIPPER THE BALL IS 

HERDED TOWARD. . . 



PRESS ANY KEY TO CONTINUE 
cls 



PINBALL 

THE CENTER BUMPER(f) IS THE JACKPOT' 
THE BALL IS PUT INTO PLAY IN THE LOWER LEFT CORNER AND GOES UP 
AND AROUND. WHERE IT IS DEPOSITED IN THE UPPER HALF OF THE 
THE TABLE. THE BALL MAY BOUNCE FROM THE SIDE OF THE TABLE, 
AND MAY BOUNCE UP FROM THE LINE ON THE SIDE AND FROM THE 
DIAGONALS (REFER TO PICTURE OF PINBALL TABLE) 
OF THE TABLE. THE BUMPERS ARE INDICATED BY STRRS <*>. 



PRESS ANY KEY TO CONTINUE 
cls 



135 



PINBALL 

THE BALL MAY GO OUT OF PLAY THROUGH ONE OF THE 4 HOLES IN THE 
BOARD IN WHICH CASE A BONUS IS SCORED. 

THE GATES ARE NUMBERED 1-9. AND KNOCK DOWN TABS ARE SHOWN AS 
THE LETTERS A- J. YOU GET A BONUS FOR THESE AT THE END OF EACH 
BALL. KNOCKING DOWN ALL OF THEM SCORES A SPECIAL BONUS 



PRESS ANY KEY TO CONTINUE 

els 



AR 


BB 


CC 


DD 


EE 


FF 


OG 


HH .. . 


01 


82 


03 04 


05 


.. .. 06 07 08 


09 






00 




00 




00 
I J 


00 



BRLL AT: , 

PRESS RNY KEY TO CONTINUE 



THE BALL IS NOW AT < 2 , 7 >. 

TRB B DOWN. . . 

YOU RECEIVE 4 POINTS FROM THE BUMPER AT 7 , 10 

SCORE: 4 

BRLL APPROACHING FLIPPERS. ENTER FLIPPER CHOICE 

IN THE FORM: X,Y •> 2, 3_ 




■ els 



THE BALL IS NOW RT ( 8 , 10 ). 

TRB G DOWN. . . 

TRB I DOWN. . . 

BALL RPPROACHING FLIPPERS. ENTER FLIPPER CHOICE 

IN THE FORM: X, Y ? 4,6_ 

els 



NO, YOU HAVE CHOSEN TO PROTECT THE WRONG FLIPPERS. YOU NOW HAVE 

4 BALLS LEFT. 

YOUR BALL KNOCKED DOWN 3 TAGS! ! 
FOR THIS STELLAR PERFORMANCE, YOU ARE AWARDED 
***** 30 ***** POINTS! ! 
SCORE: 24 

THE BALL IS NOW AT < 3 , 10 ). 
TAB C DOWN. . . 

BALL APPROACHING FLIPPERS. ENTER FLIPPER CHOICE 
IN THE FORM: X, V ? 6,9_ 



OlS ■ 



NO, YOU HAVE CHOSEN TO PROTECT THE WRONG FLIPPERS. YOU NOW HAVE 

3 BALLS LEFT. 

YOUR BRLL KNOCKED DOWN 1 TAGS! ! 
FOR THIS STELLRR PERFORMANCE, YOU ARE AWARDED 
***** 10 ***** POINTS! ! 
SCORE: 44 
THE BALL IS NOW AT < 6 , 8 X 



els ■ 



RA BB CC DD 

O . .. 
. EE FF GG HH . 



PRESS ANY KEY FOR PICTURE 
COMPUTER PINBHLL 



01 02 03 04 05 
06 07 08 89 



I J. 



BALL AT: 6 , 8 

PRESS ANY KEY TO CONTINUE 



YOU HAVE HIT THE JRCKFOT!!!! YOU HAVE JUST WON 147 POINTS! 
YOU NOW HAVE 191 POINTS! 



■ 0l8 ■ 



6 CLEAR 128 

16 OS: PRIHT§413, "P1NBALL" 

20 PRINT: PRINT TAB<?> 'COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOHN, NJ" 

38 PRINT8960, "; : IWUT 'DO YOU NEED INSTRUCTIONS"; 1$ 

48FH$=" Lift " 

58DIMR$(18),P«20),L(2) 

68 GOSUB 2288 

78 A1=0:R8=8:X9=0 

88 IF LEFT*CI*,1)="Y" THEN GOSUB 568:CLS 

98 GOSUB 1828 

100 B=5 

118 S=8:P=8 

128 T*="RBCDEFGHIJ" 

138 FOR Z=i TO 18:Rt(Z>=" ":NEXT Z:Z3=8 

140R1=8 

158 A7=8 

168 IF 8<=8 THEN 380 

178 L<i>=2+INT<RWX8>*6) :l<2>=INT<RND<8)*i4Hl 

i88C=i+INT<RND<8)*7):Al=8 

198 PRINT "THE BALL IS NOD AT <";L(i);V;L<2>;">. " 

288 IF HID$<P$<L<1»,L<2),1>=* "THEN 220 

210 GOSUB 848 

228 IF A7=7 THEN 358 

238 IF A104 THEN 258 

248 GOTO 338 

258 L(i)=L(l)+i 

268Pd=8 

278 L(2)=L(2)tINTCl+RND(0)*3)-2 

280 IF L(2)<2 OR L(2»15 THEN L<i>=L(i>+INT(l+FM>(8)*3)-2 

298 IF L<2)<2 OR L<2»15 THEN L(2)=INT(2+RNO(0)*13) 

388 IF L(i)>=2 AND L(1X=20 THEN GOTO 288 

310 L(1)=INT(1+RHD(8)*7) 

328 GOTO 208 

338 GOSUB 1588 

348 IF A8=l THEN 538 

358 ON X9+1 GOTO 128,458 

368 PRINT'YOU HAVE PLAYED YOUR SEVENTH BALL AND SCORED'; :PRINT USING FH»;P 

378 PRINT'YOU'RE VERY G00D!":G0T0 2438 

388 PRINT "YOU HAVE PLAYED YOUR FIVE BALLS, AND HAVE SCORED" 

398 PRINT "A TOTAL OF"; :PRINT USING FH«;P; :PRINT "POINTS. " 

488 IF P<1688 THEN 2438 

418 PRINT "*** BONUS BALL ***" 

428 B=B*1 

438X9=1 

448 GOTO 128 

458 PRINT 'YOU HAVE PLAYED YOUR SIXTH BALL AND SCORED"; :PRINT USING FW;P 

468X9=2 

478 IF P<2200 THEN 2430 

488 PRINT "*** BONUS BALL **»" 

490 8=B+1:S=3 

580 GOTO 120 



136 



518 GOTO 848 
529 GOTO 228 

538 L<1)=2+INT<RND<8)*7> 

548 U2)=2+INT<RND<8>*13):X=8:Y=8 

K8 SOTO 188 

568 CLS: PRINT TfiB<28) "PlffiftLL"- PRINT 

578 PRINT "THE RULES OF COMPUTER PINBflLL RRE FRIRLV SIMPLE VOU GET fl TOTAL"; 

588 PRINT "FIVE BULLS. IF VOU SCORE {ORE THAN 1688, YOU GET fl 6TH BALL IF" 

598 PRINT "VOUR SIX BRLL SCORE IS HORE THfiH 2,208, VOU GET fl SEVENTH BRLL " 

668 PRINT: PRINT'THIS TABLE HRS THREE FLIPPERS, ERCH OF HHICH PROTECT RN OUT CHUTE"; 

618 PRINT "HOtEVER,THIS SET DIFFERS FRON OTHER SETS, SINCE YOU HflY ONLY FLIP"; 

628 PRINT "TO OF THE FLIPPERS RHY TINE THE BRLL APPROACHES THE CHUTE ■ 

638 PRINT "NOTfi BENE: VOU DO NOT!!! KNOH FOR SURE WERE THE BULL IS!" 

648 PRINT "SO, IF VOU FLIP THE WRONG TWO FLIPPERS, VOU LOSE THE BRLL RND THE"; 

658 PRINT "NEXT BRLL IS PUT INTO PLflV. ":G0SUB2448 

668 PRINT "THERE IS SOME LOGIC TO THE CHOICE OF FLIPPERS" 

676 PRINT "THE FLIPPERS RRE NUMBERED 1, 2, 3 FRON LEFT TO RIGHT" 

688 PRINT "SINCE LUCK PLAYS R SHALL PART IN CHOOSING THE CORRECT aiPPER, " 

699 PRINT'VOU WILL DO POORLV IF YOU JUST GUESS MUCH aiPPER THE BALL IS" 

788 PRINT "HERDED TOWRD... ":PRINT:GOSUB 2448 

718 PRINT " THE CENTER BUHPERt*) IS THE JACKPOT!" 

728 PRINT "THE BRLL IS PUT INTO PLAY IN THE LOUER LEFT CORNER RND GOES UP" 

728 PRINT "RND AROUND. HHERE IT IS DEPOSITED IN THE UPPER HRLF OF THE" 

748 PRINT "THE TABLE THE BALL MAY BOUNCE FROM THE SIDE OF THE TABLE, ■ 

758 PRINT "RND IW BOUNCE UP FROM THE LINE ON THE SIDE AND FROM THE" 

768 PRINT°DIRGONRLS (REFER TO PICTURE OF PINBflLL TABLE)" 

778 PRINT "OF TIE TABLE THE BUMPERS RRE INDICATED BY STARS (*).■■ GOSUB 2448 

788 PRINT "THE BRLL HAY SO OUT OF PLflV THROUGH ONE OF THE 4 HOLES IN THE" 

798 PRINT "BOARD IN HHICH CRSE R BONUS IS SCORED. ■ 

888 PRINT" THE GATES ARE NUMBERED 1-9. RND KNOCK DC* TABS ARE SHOWN RS" 

818 PRINT "THE LETTERS A-J. VOU GET fl BONUS FOR THESE AT THE END OF EACH" 

828 PRINT "BRLL KNOCKING DOHN RLL OF THEM SCORES R SPECIAL BONUS"' GOSUB 2448 

838 RETURN 

848 IF HID*(P*<LCi»,L<2>,l>="8" THEN 928 

858 IF INT<RHD<8>+. 5)=Oi THEN 878 

868 IF NID*(P*<L<l)),L<2),l)=7"0RMID*<P*<LCl)),L(2>,i)="S" THEN 1828 

878 S8=INT<RND<8>*6+1> 

888 FOR S?=l TO S8:PRIHT CKR*<7>; :NEXT S7 

898 IF MID*(P*<L<1)),L<2>,1X="J"RHD NID*<P*<L<1)),U2),1»="A" THEN 1858 

988 GOSUB 1148 

S18 RETURN 

928 REM 

938 PRINT "TO CONSOLE VOU, I HILL GIVE YOU RN EXTRA" 

948 Q=INKRHD(B>*141) 

958P=P+Q 

968 PRINT Q; "POINTS, TO BRING YOUR TOTRL TO"; :PRINT USING FK*;P 

978 PRINT "VOU NOH HAVE HflYE";B-lj "BRLLS LEFT " 

98BB=8-1 

930 fl7=7 

1888 GOSUB 1788 

1818 RETURN 

ie28L(l)=L(i)+(ltINT(RND(B)«4))-(ltINT(RND(8)*4)) 

1838 LC2)=2+INT(RND(B)*14> 

1848 RETURN 

1858 REM 

1868 FOR 0=1 TO 18 

1878 IF R*(Q>=HID*<P*<LCi)),L<2),l) THEN 1138 

1888 NEXT Q 

1698 Z2=Z3+1:R*(Z3>=NID*(P*(L<1)), L(2), 1) 

1188 PRINT "TAB >;R*<23);" DOUR.." 

1118 IF Z3=18 THEN GOSUB 1768 

1128 RETURN 

1138 RETURN 

1148 IF HID*(Pt<L(i»,L(2),i)=CHRt<8) THEN RETURN 

1158 IF HID*(P*<LCi»,L<2>,l)="]" THEN RETURN 

1168 IF BID*<P*<LC1)),LC2>,1>='[" THEN RETURN 

1178 IF HID*<P*<L<l)),L<2>;i>=""" THEN 1288 

1188 Ri=8 

1198 IF HID*<P*(L(1)),L<2>,1)="=" THEN 1558 

1268CC-1 

1216 IF C=8 THEN 1288 

1228 IF MIM(P»(L(l)),L(2),l)="i"0RMID*<P*(L(l»,L(2),l)="S"THEN 1288 

1238 IF HID*<P*(L<l)),L<2),l)=V0RNID*<P*<L<l»,L<2),i)="-"THEN 1288 

1248 IF INT<i*RND(8>*2)=2 THEN GOSUB 1988 

1258 IF NID*(P*(L<i»,L(2),l>="*" THEN 1388 

1268 IF HID*(P*<L<1»,L<2),1>="** THEN 1438 

1276 GOTO 1478 

1288 Rl=4 

1298 GOTO 1538 

1388 IF L<2)<6 THEN GOTO 1348 

1318 IF L(2)<11 THEN 1368 

1328 D=2:IF INT(i*RND<l)*2)=i THEN D=DtCl+INT(RHD(l)*3))-2:IF D>3 THEN D=D-3 

1338 RETURN 

1348 0=1: IF INT<l+RND(8)*2)=i THEN D=INT(RNK8)*3)*D 

1358 RETURN 

1368 D=2:IF INT<i+RNDC8>*2>=l THEN D=D+INT<RMX8)*3):IFD>3THEN D=D-3 

1378 RETURN 

1388 Q=45+lNTCRND<8)*i46> 

1398 PRINT "VOU HAVE HIT THE JACKPOT!!!! YOU HAVE JUST WON"; Qj "POINTS"" 

1488 P=P+Q 

1418 PRINT "YOU NOH HRVE"; :PRINT USING FN*;P; :PRINT "POINTS 1 " 

1428 GOTO 1588 

1438 0=INT<RND(8)*64)tl:P=Ptfi 

1448 PRINT "VOU RECEIVE"; Oj "POINTS FROM THE BUMPER RT ";L(i);",";L<2>;" " 

1458 PRINT "SCORE: "; :PRINT USING FH*;P 

1468 GOTO 1588 

1478 G=i5*(i+INT<RND(6)*6»:P=P+Q 

1488 PRINT "VOU GET"; Cb "POINTS FROM GATE "; MID*<P*<L<1», L<2), 1) 



1498 PRINT "5C0RE: "; -.PRINT USING FH*;P 

1588L(1)=<L<1)-INT(1+RND<6)«3))-INT(1+RND(8)*2) 

1518 L(2)=L(2)-3-HNT(RKD(8)*5)+l 

1528 RETURN 

1538 GOSUB 2178 

1548 GOTO 1388 

1558 L(1)=L(1)-C1+INT(RM)(8)*5)) 

1568 L<2)=L(2>-2+(l+INT<RND<8)*4» 

1578 RETURN 

1588 PRINTBRLL APPROACHING FLIPPERS. ENTER aiPPER CHOICE" 

1596 INPUT "IN THE FORM: X,V ";V,H: CLS 

1688 IF V=D OR «=D THEN 1670 

1618 PRINT "NO, VOU HRVE CHOSEN TO PROTECT THE WMNG aiPPERS. YOU NOW HAVE" 

1628 PRINT B-ii "BULLS LEFT." 

1638 B=B-1 

1648 A8=8 

1658 GOSUB 1788 

1668 RETURN 

1678 R8=l 

1688 C=INT(1*RND<8>*5) 

1698 RETURN 

1788 IF 23=18 THEN 1778 

1718 IF 23=8 THEN RETURN 

1728 PRINT "VOUR BRLL KNOCKED D0MN";23;"TRGS!!" 

1738 PRINT "FOR THIS STELLRR PERFORMANCE, YOU ARE RHRRDED " 

1748 PRINT "***»■; 18*Z3; "***«■; :PRINT" POINTS!!" 

1758 P=P+18*Z3 

1768 GOTO 1818 

1778 P=P+258 

1788 PRINT ****** VOU KNOCKED DOHN aL 18 TRGS! ! ! ***»" 

1798 PRINT "VOU ARE AURRDED 258 POINTS AND AN EXTRR BaU"" 

1888B=Btl 

1818 PRINT "SCORE: "; :PR1NT USING FMt;P:R£TURN 

1828 GOTO 1988 

1838 PRINT:PRINT" PICTURE ": PRINT"****************" 

1848 FOR 0=1 TO L(1)-1:PRINT P*(Q):NEXT Q 

1858 PRINT MID$(P$(L(1)),1,L(2)-1);"«";MID*<P*(L(1»,L(2)+L16-L(2)) 

1868 FOR Q=L<1)+1 TO 28:PRINT P«Q):NEXT 8 

1878 PR!NT:PRINT"THE BaL KflS RT THE 'r«:re!HT:reiHT"*******««*»**" 

1888 GOSUB 2448 

1898 RETURN 

1388 IF L(l)+L(2)=8 THEN 1938 ELSE PRINT6979, "PRESS RNY KEY FOR PICTURE"; 

1918 IF INKEY*="" THEN 1918 

1928 CLS: PRINT842, "COMPUTER PINBaL" 

1938 ft*=STRING*C2,19i>: B*=STRING*<2, 143) : C*=STRING*<2,176> 

1S48 E*=STRING*<2,148): F*=STRING*<2,131): G*=STRING*<2,179> 



1958 PRINTM, " 
1968 PRINT At;" 
1978 PRINT ft*; " 
1988 PRINT At; " 
1998 PRINT AS; " 
2886 PRINT fl*;" 
2818 PRINT ft*;" 
2828 PRINT ft*;" 



C*;STRIN0*(24,148);C* 
";B*;" ";B*;" 
BB CC DD 
";B*;" ";W 

";B*" 
";B*;" 
E FF 



AA 



";B*; 



";B*;" 
";ft* 



";ft* 



« 



GG 



";B*;" 



HH";B*;' 



';ft* 
';ft* 



';ftt 



2838 PRINT ft*;STRING*(6,148);STRIN6*<16,32);STRING*(6,148);ft* 

2848 PRINT A*; " 81 82 83 84 85 ";fl* 

2858 PRINT ft*;" ";B*;" 86 87 88 89 ";B*;" ";ft* 

2868 PRINT ft*; STRING*(6, 148)" 88 "STRING*<6,148);ft* 

2878 PRINT ft*; " 88 88 88 ";ft* 

2888 PRINT ft*;B*;B*;C*;STRING*C16,32);C*;B*;B*;R* 

2898 PRINT ft*; " ";F*;E*;Ct; "I J";C*;E*;F«; " ";ft* 

2188 PRINT B*;STRING*C28,148);8*; 

2118 PRINT8485, "BRLL flT:'L(l);",";L(2); 

2128 IF L<1)=8 OR LC2)=8 THEN 2148 

2138 PRINT§<L<l)-2)*64«L(2>-l>*2+i, "0"; 

2148 PRINT8549, "PRESS ANY KEY TO CONTINUE"; 

2158 IF INKEY*=" THEN 2158 ELSE CLS 

a68 PRINT88, "; : RETURN 

2178 L(2)=A8S(L<2)-2+INT<l+RND<8)*4» 

2188 IF L<2X=15 THEN RETURN 

2198 L<2)=l+INT<RMX8)*i5):RETURN 

2288P*(1)=" ■ 

2218 FOR 0=1 TO 12:P*<i)=P*(l)+"t"+CHR*(8)+"]":NEXT Q 

2228 P*(1)=P*(1)+" " 



2238 P*(2)=" 


" 


2248 Pt(3)="0 


» « * 0" 


2258P*(4)="0 


mil' 


2268 P*(5)="0 


* * 0" 


2278 P*(6)="0 * 


* * * * 0" 


2288 P*(7)="0 


* * 0" 


2298 P*<8)="0* E F G H*0* 


2388 P*(9)="0 


* * * 0" 


2318 P*(18)="0= =0" 


2328 P*(11)="0 


12 3 4 5 0" 


2338 P*(12)="0 


* 6 7 8 9 * 0" 


2348 P*(13)="0= 8 =0" 


2358 P*(14)="0 


8 8 8 0" 


2366P*(15)="!! 


! !!!* 


2378 P*(16)="0 


S / 0" 


2388 P*(17)="0 


S I J I 0" 


2398 P*(18)="0 


S / 0" 


2488 P*(19)="0 


\ / 0" 


2418 P*(?fl)-"V- 




2428 RETURN 




2438 PRINT "COKE PLAY fiSAIN SOMETIME! !":GOSUB 2448:END 


2448 PRINT8979, 


"PRESS ftNY KEV TO CONTINUE"; 


2456 IF INKEY*=' 


'" THEN 2458 ELSE PRINT8128, CHR*(31); ; RETURN 


2468 RETURN 





labbit Chase 



Seemingly, the purpose of this game 
is to chase-down and catch a rabbit. 
Now this rabbit is an elusive little 
devil— it can hop randomly in any 
direction. You can run at least as fast as 
the rabbit, maybe even faster (the 
computer will decide). You must get 
within 20 units of the rabbit to be able to 
catch him. Before each hop, the 
computer will print out your position, 
the rabbit's position, the direction the 
rabbit is going to jump, and your 
closest approach on the last hop. You 
are to tell the computer which direction 
you wish to run. All coordinates and 
directions are as a geometer would 
mark them on a standard Cartesian 
Coordinate System. 



In addition to being good fun, this 
game gives you practice in using and 
visualizing an x-y coordinate plane. 
After each hop, consider the output 
and try to run the right direction. Try to 
do all the figuring in your head. Using 
scratch paper is considered to be 
cheating (except for maybe the first 
time you play). 

Suggested Modifications 

1 . Change the program so that you can 
choose your own speed. 

2. The game is much more challenging 
when the "capture distance" can be 
varied. A distance of 50 units is a 
cinch, 15 units may make you wish 
for scratch paper, 5 units will require 



you to use a protractor and graph 
paper. 

3. See if you can invent a way to extend 
this game to 3 dimensions! 4 dimen- 
sions! etc.! 

4. You might try limiting the total 
number of hops and/or having the 
computer give hints when re- 
quested. 

Rabbit Chase was written by Ted C. 
Park of Pacific Union College. It first 
appeared in Creative Computing, 
Mar/Apr 1975. 



COPYRIGHT 1979 



RABBIT CHASE 
CREATIVE COMPUTING 

CIS - — — — ■ 



MORRISTONN, NJ 



HIT ENTER TO START? . 



- CIS • 



SPEEDS (UNITS/HOP): 

RABBIT - 139 YOU - 398 

HOP*: i DISTANCE TO RABBIT: 382 

RABBIT — POSITION: ( 158, 348) 

YOU POSITION: ( 6, 9) 

CIS 

SPEEDS (UNITS/HOP): 

RABBIT - '138 YOU - 398 

HOPt: 2 DISTANCE TO RABBIT: 326 

RABBIT — POSITION: < 32, 382) 

YOU POSITION: c -276, 276) 

els 

SPEEDS (UNITS/HOP): 

RABBIT - 138 YOU - 398 

HOP*: 3 DISTANCE TO RABBIT: 586 

RABBIT — POSITION: < -36, 271) 

YOU POSITION: < -55.2, 552) 

SPEEDS (UNITS/HOP): 
RABBIT - 138 YOU - 398 
HOPt: 4 DISTANCE TO RABBIT: 
RABBIT — POSITION: < -61 

YOU POSITION: ( -552, 

___ els — 



936 
144) 
942) 



SPEEDS (UNITS/HOP): 

RABBIT - 138 YOU - 390 

HOPS: 5 DISTANCE TO RABBIT: 1214 

RABBIT — POSITION: f -64, 274) 

YOU — — POSITION: ( -827, 1217) 

els 



SPEEDS (UNITS,-'H0P) : 

RABBIT - 138 YOU - 398 

HOPS: 7 DISTANCE TO RABBIT: 885 

RABBIT — POSITION: < -165, 352) 

YOU POSITION: < -713, 942) 

els 



CLOSEST APPROACH: 382 
AND DIRECTION: 165 
AND DIRECTION:? 135 



CLOSEST APPROACH: 318 
AND DIRECTION: 238 
AND DIRECTION:? 135. 



CLOSEST APPROACH: 326 
AND DIRECTION: 259 
AND DIRECTION:? 98 



CLOSEST APPROACH: 
AND DIRECTION: 91 
AND DIRECTION:? 135 



CLOSEST APPROACH: 936 
AND DIRECTION: 283 
AND DIRECTION:? 8 



SPEEDS (UNITS/HOP): 

RABBIT - 130 YOU - 398 

HOPi: 6 DISTANCE TO RABBIT: 1826 

RABBIT — POSITION: ( -183, 223) 

YOU POSITION: ( -437, 1217) 

els 



CLOSEST APPROACH: 1826 
AND DIRECTION: 82 
AND DIRECTION:? 225 



CLOSEST APPROACH: I 
AND DIRECTION: 63 
AND DIRECTION:? 135 



SPEEDS (UNITS/HOP): 

RABBIT - 138 YOU - 398 

HOPI: 8 DISTANCE TO RABBIT: 1158 

RABBIT — POSITION: < -186, 468) 

YOU — — POSITION: ( -989, 1217) 

els 



CLOSEST APPROACH: i 
AND DIRECTION: 62 
AND DIRECTION:? 178 



18 CLS: PRINT8411, "RABBIT CHASE" 


518 PRINT") AND DIRECTION:"; 


28 PRINT: PRINT TAB(7) "COPYRIGHT 1979 


528 INPUT D2 


CREATIVE COMPUTING MORRISTONN, NJ" 


538 IF D2<8 OR D2>=368 THEN 528 


38 PRINTC960, ■"; : INPUT "HIT ENTER TO START"; A* 


548 PRINT 


48 CLS 


558 PRINT 


58 REH CT' IS THE SGIUARE OF THE CAPTURE DISTANCE) 


568 REM - COMPUTE PATHS AND SEE IF THEY INTERSECT 


68 LET T=480 


578 LET X3=Vi*C0S(Dl*Pl>/ie8 


78 REN - INITALIZE VELOCITIES AND POSITIONS 


588 LET Y3=V1*SIN<M*P1V100 


88 LET Yi=INT<RND<8>*i8+ 5MO+50 


598 LET X4=V2*COS<D2*P1)/100 


98 LET V2=<INT<RND<8)*2t 5)+l)*Vl 


608 LET Y4=V2*SIH(D2*P1)/188 


188 LET Xl=(INT(RND<0>*48e)+188)*SGN(RND(8)- 5) 


610 LET C=<X2-X1)[2+<Y2-Y1>[2 


118 LET Yl=(INT(RND<8)*488)+ie8)*SGN(RND<e)- 5) 


628 FOR 1=1 TO 188 


128 IF Yl=8 OR X1=B THEN 108 


638 LET Xl=Xi+X3 


138 LET X2=8 


640 LET Y1=Y1+Y3 


148 LET Y2=0 


658 LET X2=X2+X4 


158 PRINT "SPEEDS (UNITS/HOP):" 


660 LET Y2=Y2+Y4 


160 PRINT "RABBIT - n ;Vl, "YOU -";V2 


670 IF C«X2-Xl)[2+<Y2-Yi)t2 THEN 690 


178 PRINT 


688 C=(X2-Xl)t2+(Y2-Yl)t2 


188 PRINT 


690 NEXT I 


198 PRINT 


700 LET H=H+1 


288 LET C=<X2-X1)[2+<Y2-Y1)[2 


718 IF DT THEN 248 


218 LET Pl=3.141592653589lt/188 


728 CLS. PRINT 


220 LET H=i 


738 PRINT 


238 REH -- PRINT OUT 


746 PRINT "**********" 


248 LET Di=INT(RND<8)*359> 


758 PRINT "* GOT YA *" 


258 PRIHT8256, "HOPi: "; 


768 PRINT "****+****■+" 


268 LET Z=H 


770 PRINT 


270 60SUB 888 


788 PRINT 


288 PRINT " DISTANCE TO RABBIT: "; 


798 END 


298 LET Z=SflR<02-Xl)[2+<Y2-Yl)[2) 


880 REM -CONVERTS NUMBERS TO STRINGS FOR CLEANER OUTPUT 


388G0SUB888 


810 Z=INKZ+ 5) 


318 PRINT " CLOSEST APPROACH: "; 


828 PRINT RIGHTJC "+STR*<2), 5); 


328 LET Z=SQR(C) 


838 RETURN 


338 GOSUB 808 


840 END 



348 PRINT 

358 PRINT "RABBIT — POSITION: <"; 

268 LET Z=X1 

378 GOSUB 818 

280 PRINT ", "; 

390 LET Z=Yi 

400 GOSUB 818 

418 PRINT ") AND DIRECTION:"; 

420 LET Z=D1 

438 GOSUB 888 

448 PRINT 

450 PRINT "YOU POSITION: ("; 

460 LET Z=X2 
470 GOSUB 818 
480 PRINT ", "; 
490 LET Z=Y2 
588 GOSUB 310 
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Roadracc 



You are the driver of a race car on the 
notorious NY Route 20. You'll have to 
drive 5 miles with '/•? gallon of gas, while 
keeping alert for changes in the road 
conditions, other cars, etc. 

At the start you pick your car and 
course. During the race you control 
braking and acceleration. 

Watch out for passing another car! If 
you try to go the same speed he's 
going, you're going to meet a 
Greyhound bus head-on! 

The game is tough to win. I usually 
wipe out in a curve or run out of gas. 
You might want to increase your MPG 
rating. ..look at line 800. 

Good luck! 

This program originally appeared in 
Creative Computing, Jan/Feb 1975. 




ROADRACE 
COPYRIGHT 1379 CREATIVE COKPUTING HORRISTOtb HJ 
HIT ENTER TO START? . 



- els 



THIS IS THE PITTSFIEUHLBflNV ROB) RALLY 
WELCOME TO THE FIRST ANNUAL PITTSFIELD-AL8ANY ROflO RflLLV. 
YOU'LL BE DRIVING ROUTE 28, TRYING TO WIN THE RACE AND 
STAY ALIVE IN THE BARGIN GOOD LUCK!! 

VOV HAVE VOUR CHOICE OF: (1) R Wi <2> TRIUMPH TT» 

(3) DATSUN 288-Z; OR (4) FERRARI 

CHOOSE THE CAR YOU WANT BV THE NUK3ER IN FRONT OF IT. 

REK9EER, THE BETTER THE CAR, THE HORE GAS IT USES 

WHICH CAR? 3. 

— els 



NOW YOU CHOOSE WHICH COURSE YOU WANT TO RACE ON. 
THE EASIEST COURSE IS NUK3ER L AND IS THE STRAIGHTEST 
ROUTE. NURBER 5 CONSISTS KOSTLY OF TURNS AND TWISTS 
WHICH ROUTE DO YOU WANT? 1 

YOU HILL NEED TO TRAVEL 5 HILES WITH .5 GALLONS OF GAS. 
YOUR STATUS HILL BE SHOWN EACH IB SECONDS. AFTER EACH 
STATUS CHECK YOU MILL BE ASKED FOR A NEW RATE OF GAS 
A RATE OF +18 IS HARD ACCELERATION, AND -16 IS HARD BRAKING. 
ANY NUHBER IN BETKEEN IS ALLOWABLE. 

PRESENT VELOCITY = 6 NO. OF GALLONS = .5 
NO. OF HILES = Tilt PASSED = 8 SECONDS 
WHAT IS YOUR HEN RATE OF GAS? 18. 



- els ■ 



ROAD CONDITI0NS:VEHICLE AHEAD 1088 FEET 

PRESENT VELXITY = 78 NO. OF GALLONS = 47 

NO. OF HILES = .152174 THE PASSED = 18 SECONDS 

WAT IS YOUR NEH RATE OF GAS? 2. 

els 



ROAD CONDITIONS :¥EHICLE PASSED BY 21 MPH 

PRESEKT VELOCITY = 55 HO. OF GALLONS = . 464 
NO. OF HILES = .271739 TINE PASSED = 28 SECONDS 
WHAT IS YOUR NEH RATE OF IMS? 18. 



■ els ■ 



ROAD COKDITIONS:VEHICLE AHEAD 1888 FEET 

PRESENT VELOCITY = 162 NO. OF GALLONS = 434 
NO. OF HILES = . 493478 TIKE PASSED = 38 SECONDS 
WHAT IS YOUR HEW RATE OF GAS? 8. 



■ els 



ROAD CONDITIONS:YEHICLE PASSED BY 79 KPH 

PRESEHT VELOCITY = 116 NO. OF GALLONS = 41 
NO. OF HILES = .745652 TItE PASSED = 48 SECONDS 
HHAT IS YOUR NEH RATE OF GAS? 16. 

els 



ROAD CONDITIONS'.YEHICLE AHEAD 1886 FEET 

PRESENT VELOCITY = 138 10. OF GALLONS = .38 
NO. OF HILES = 1 84565 TIKE PASSED = 58 SECONDS 
WHAT IS YOUR NEH RATE OF GAS? 18. 



- els 



ROAD C0ND1TI0NS:VEHICLE PASSED BY 95 KPH 

PRESENT VELOCITY = 151 NO. OF GALLONS = 35 
NO OF HILES = 1 37391 TIKE PASSED = 68 SECONDS 
WHAT IS YOUR NEH RATE OF GAS? 18. 



• els ■ 



ROAD CONDITIONSiVEWCLE AHEAD 1888 FEET 

PRESENT VELOCITY = 159 NO. OF GALLONS = .32 
NO. OF HILES = 171957 TIRE PASSED = 78 SECONDS 
WHAT IS YOUR NEH RATE OF GAS? 8. 



els ■ 



ROAD CONDITIONS:YEH1CLE PASSED BY 124 HPH 

PRESENT VELOCITY = 149 NO. OF GALONS = .296 
NO. OF HILES = 2 84348 TIKE PASSED = 88 SECONDS 
WHAT IS YOUR NEH RATE OF GAS? 28. 



NOT VALID. NEH RATE? 18. 



els ■ 



els 



ROAD COWDITIONS:CLEAR AM) STRAIGHT 

PRESENT VELOCITY = 157 HO. OF GALLONS = 266 
NO. OF HILES = 2 38478 TIKE PASSED = 98 SECONDS 
WHAT IS YOUR NEH RATE OF GAS? 18. 

els 



ROAD COKDITIONS:VEHICLE AHEAD 1888 FEET 

PRESENT VELOCITY = 162 NO. OF GALLONS = 236 
NO. OF HILES = 2 73696 TIKE PASSED = 188 SECONDS 
WHAT IS YOUR NEH RATE OF GAS? 8. 



■ els • 



ROAD C0NDITIONS:VEHICLE PASSED BV 182 KPH 

PRESENT VELOCITY = 151 NO. OF GALLONS = . 212 
NO. OF HILES = 3.86522 TIKE PASSED = 118 SECONDS 
WHAT IS YOUR NEH RATE OF GAS? 18. 



■ els ■ 



ROAD COKDITIOHS:VEHICLE AHEAD 1868 FEET 

PRESENT VELOCITY = 159 NO. OF GALLONS = . 182 
NO. OF HILES = 3.41887 TIKE PASSED = 128 SECONDS 
HHAT IS YOUR NEH RATE OF GAS? 18. 

■ • els 



ROAD CONDITI0NS:YEHICL£ PASSED BY 133 HPH 

PRESENT VELXITY = 163 NO. OF GALLONS = .152 
NO OF HILES = 3.76522 TIKE PASSED = 138 SECONDS 
WHAT IS YOUR NEH RATE OF GAS? 18- 



- els 



ROAD CONDITIONStVEHICLE AHEAD 1888 FEET 

PRESENT VELOCITY = 166 NO. OF GALLONS = 122 
NO. OF HILES = 4.12689 TIKE PASSED = 146 SECONDS 
HHAT IS YOUR NEH RATE OF GAS? 18. 



- els 



ROAD CONDITIONS:VEHICLE PASSED BY 138 KPH 

PRESENT VELOCITY = 167 NO. OF GALLONS = .892 
NO. OF HILES = 4. 48913 TIKE PASSED = 159 SECONDS 
WHAT IS YOUR NEH RATE OF GAS? 18. 



- els 



YOUR ENGINE BLEW. YOU GOT HIT BV A PISTON. 
HHERE IS YOUR FUNERAL BEING HELD? 

YOU WANT TO TRY AGAIN, RIGHT? WRONG. 

els 
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teas 

20 PRINT §412, "ROADRACE" 

38 PRINT 

48 PRINT TAB<7)"C0PYRI6HT 1979 CREATIVE COMPUTING MORRISTOWH, NJ" 

58 PRINT 8 968, "i 

68 INPUT-HIT ENTER TO START"; A* 

78 OS 

88 PRINT' THIS IS THE PITTSFIELD-ftLBftNY ROAD RRU-V" 

98 PRIHTWELCOHE TO THE FIRST RNHUAL PITTSFIELD-ftLBANY ROAD RALLY. " 

186 PRINTYOU'LL BE DRIVING ROUTE 28, TRYING TO HIN THE RRCE AND" 

118 PRINT'STRV ALIVE IN THE BARG1N. GOOD LUCK! !" 

128 PRINT 

138 PRINT'YOY HAVE YOUR CHOICE OF: (1) ft VHi (2) TRIUWH TR3; ■ 

148 PRINT'G) DATSUN 288-Z; OR (4) FERRARI* 

158 PRINT-CHOOSE THE CAR VOU HANT BY THE NUfBER IN FRONT OF IT. " 

168 PRINT-ROBBER, THE BETTER THE CAR, THE HORE GAS IT USES. " 

178 PRIHT'HHICH CAR"; 

188 INPUT CI 

198 C1=INT(C1) 

288 IF Cl>4 THEN 228 

218 IF CK1 THEN 228 ELSE 248 

228 PRINT-INVALID CAR NWSER. NEH CAR ■; 

238 GOTO 188 

248 CIS 

258 IF N2=l THEN 298 

268 PRINT-NOH YOU CHOOSE HHICH COURSE YOU HANT TO RACE ON. " 

278 PRINT-THE EASIEST COURSE IS NUffiER 1, AJ® IS THE STRAIGHTEST" 

288 PRINT-ROUTE. NUTBER 5 CONSISTS HOSTLY OF TURNS AND THISTS. ■ 

298 PRINT'HHICH ROUTE DO YOU RANT"; 

388 INPUT C2 

318 C2=INT(C2) 

328 IF C2<1 THEN 348 

338 IF C2>5 THEN 348 ELSE 368 

348 PRINT-INVALID COURSE NUMER NEH CHOICE "; 

358 GOTO 388 

368 IF N2=l THEN 438 

378 PRINT 

388 PRINT-YOU HILL HEED TO TRAVEL 5 HILES UITH .5 GALLONS OF GAS.' 

398 PRIHT-YOUR STATUS HILL BE SHOHN EACH 18 SECONDS. AFTER EACH" 

488 PRINT-STATUS CHECK YOU HILL BE ASKED FOR A KEH RATE OF GAS" 

418 PRINT-A RATE OF +18 IS HARD ACCELERATION, AND -18 IS HARD BRAKING. ' 

428 PRINT-ANY NUHBER IN BETHEEN IS ALLOWABLE ■ 

438 FOR 1=1 TO CI 

448 READ B, H, S 

45BB=B/18 

468 NEXT I 

478 Pd=5 

488 Hl=8 

498 Cl=Cl/2 

588 V=8 

518 PRINT 

528P4=8 

538 T=8 

548 D=8 

550 01=8 

566 PRINT-PRESENT VELOCITY =-;V;" NO. OF GALLONS =';A1 

578 PRINT-NO. OF HILES =-;KL'" TIRE PASSED =";T; "SECONDS" 

5S8 IF Hl>=5 THEN 1398 

598 PRINT-HHAT IS YOUR NEH RATE OF GAS"; 

688 INPUT G 

618 CLS 

628 IF G<-18 THEN 648 

638 IF (D10 THEN 640 ELSE 668 

640 PRINT-NOT VALID. K3) RATE"; 

658 GOTO 688 

668 IF G<9 THEN 718 

678 Z=Z+1 

688 IF Z>4 THEN 698 ELSE 728 

698 PRINT-YOUR ENGINE BLEU YOU GOT HIT BY R PISTON. • 

780 GOTO 1288 

718 Z=8 

728 V=INT(B*G-H*W> 

738 T=T+18 

748 PRINT 

758 PRINT-ROAD CONDITIONS:"; 

760 IF V>8 THEN 788 

778 V=8 

788 ttt=Ml+V/468 

798 IF G<8 THEN 828 

888 Al=fti-<G*S)/5BB8 

818 IF Al<8 THEN 1318 

828 IF Rl=l THEN 988 



838 IF 01=1 THEN 918 

848 Q=!NT«C2+1)*RWK0» 

85BR=INK(3.75-C2>*RI<XB» 

868 IF R>8 THEN 1228 

878 IF 0>8 THEH 1278 

888 PRINT-CLEAR AM) STRAIGHT- 

898 PRINT 

908 GOTO 568 

918 H=INT<15+35*RKK8)> 

920H=H*5*C1 

930 IF Y>H THEN 1438 

940 PRINT-THROUGH CURVE" 

958 PRINT 

968 01=8 

978 GOTO 568 

988 E=E-(V-D>*3! 

998 IF E<8 THEN 1838 

1688 PRINT-VEHICLE"; E; "FEET AHEAD- 

1810 PRINT 

1828 GOTO 568 

1838 IF V-D<5 THEN 1118 

1840 PRINT-VEHICLE PASSED BY 1 ; 

1050D=V-D 

1868 PRINT D; 

1878 PRINT'tFH" 

1888 PRINT 

1898 Pd=8 

1188 GOTO 568 

1110 PRINT-VEHICLE BEING PASSED ■ 

1120 D=INT<25+48*RM><8» 

1138 PRINT-GREYHOUND BUS IN OTHER LANE "; 

1148 PRINT"DOING"; 

1158 PRINT D; 

1168 PRINT'HPH ■; 

1178D=V+D 

1188 PRINTCRASH VELOCITY =";D 

1198 PRINT 

1288 PR1NT"WERE IS YOUR FUNERAL BEING HELD?" 

1210 GOTO 1498 

1228 PRINT-VEHICLE AHEAD 1688 FEET' 

1238 PRINT 

1240 D=INT<25+35*RND<0» 

1258 Rl=l 

1268 GOTO 568 

1278 PRINT- HASHING: CURVE AHEAD " 

1288 01=1 

1298 PRINT 

1388 GOTO 568 

1218 PRINT-EXCELLENT, BUT HAITI" 

1320 PRINT 

1338 PRINT'YOU RAN OUT OF GAS" 

1348 GOTO 1488 

1358 PRINT'BUT SOHE HON YOU HADE IT" 

1368 PRINT 

1378 Rl=8 

1388 GOTO 568 

1398 PRINT 

1488 PRINT 

1418 PRINT'YOU HADE IT (LUCKY) !!!!!!!" 

1428 GOTO 1496 

1438 PRINT-ARE TERRIBLE" 

1440 H=H-5*€1 

1458 PRINT Hi "HAS THE SPEED THROUGH THE CURVE - 

1460 PRINT Vi-HftS YOUR SPEED, BY THE HAY ■; 

1478 GOTO 1288 

1488 PRINT'YOU LEAD FOOTED «»"Xtt«ll«t«* / «(«(«'i»XH!K!" 

1498 PRINT 

1588 PRINT'YOU HANT TO TRY AGAIN, RIGHT"; 

1518 INPUT Y* 

1528 IF LEFT$<«, 1)="N- THEN 1558 

1538 N2=4 

1548 GOTO 1598 

1558 PRINT 

1568 PRINT-CHICKEN" 

1578 PRINT 

1588 GOTO 1658 

1598 RESTORE 

1688 GOTO 178 

1610 DATA 45,. 53, 18 

1628 DATA 68,. 5, 13 

1638 DATA 78,. 41, 15 

1648 DATA 88,. 39, 18 

1658 END 
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Rotate 



The game of Rotate is played on a 
four-by-four board filled randomly with 
the letters A through P. In a sense it is 
like the little plastic games with sliding 
pieces bearing the numbers 1-15 or 
letters A-0. 

The object of the game is to put the 
letters in alphabetical order. This is 
done by rotating groups of four letters 
clockwise one position. The group to be 
rotated is specified by the positional 
number of the letter in the upper left- 
hand corner of the group. You are also 
given one special move which permits 
you to exchange any two adjacent 



letters. You probably don't want to use 
this move too early in the game; indeed, 
sometimes it's not necessary at all, and 
since you get it only one time, once you 
use it you can't recover. Your only move 
then is to type a zero to give up. 

Typically, a game will take from 20 to 
30 moves to win. I haven't figured out 
the worst possible case (assuming an 
intelligent method of play); I'd be happy 
to hear from a reader on this. Have funl 

Rotate was written by me, David Ahl, 
and first appeared in Creative Com- 
puting, Sep/Oct 1977. 



ROTATE 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



DO VOU HEED INSTRUCTIONS? YES. 



ROTRTE 

VOU ALSO GET ONE 'SPECIAL' HOVE PER GAME WHICH VOU MAY OR 
MRV NOT NEED. TO SPECIAL MOVE ALLOWS VOU TO EXCHANGE 
ANY TO ADJACENT LETTERS IN A ROM. TO HAKE THIS HOVE, 
INPUT A '-i' AS YOUR HOVE AND VOU HILL BE ASKED FOR THE 
POSITIONS OF TO TO LETTERS TO EXCHANGE. 
ONLY ONE SPECIAL MOVE PER GAME! 

TO GIVE UP AT ANY TIME, TYPE A '8' 



ROTATE 

IN THIS GAME THE BOARD IS LAID OUT AS FOLLOWS: 

12 2 4 

5 6 7 8 

9 19 1112 

13 14 15 16 

BOARD POSITIONS ARE OCCUPIED RANDOMLY BY TO LETTERS A TO P. 
THE OBJECT OF TO GAME IS TO ORDER TO LETTERS BY ROTATING 
ANY FOUR LETTERS CLQCKHISE ONE POSITION YOU SPECIFY TO 
UPPER LEFT POSITION OF TO FOUR YOU WISH TO ROTATE I. E , 
VALID MOVES ARE h 2, 3, 5, 6, 7, 9, 18 AND li 

PRESS ANY KEY TO CONTINUE 



PRESS ANY KEY TO CONTINUE. 



J H D G 

C L H P 

N A K 

F I B E 

POSITION TO ROTATE? L. 



■ els 



CONSEQUENTLY, IF TO I 
A C G D 
E B F H 
I J K L 
M N P 



Cls 



ROTATE 
' LOOKED LIKE: 



C J D G 

L H M P 

N A K 

F I B E 

POSITION TO ROTATE? 4. 



■ cls ■ 



AD VOU ROTATED POSITION 2, TO BOARD WOULD BE: 
A B C D 
E F G H 
I J K L 
H N P 



AND VOU WOULD WIN! 



PRESS ANY KEY TO CONTINUE. 



L C D G 

H J M P 

N A K 

F I B E 

POSITION TO ROTATE? 3. 
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L C H D 

H J P G 

N R K 

F I B E 

POSITION TO ROTATE? 2- 



L J C D 

H P M G 

N fl K 

F I B E 

POSITION TO ROTATE? 7. 



L J C D 

H P K H 

N R G 

F I B E 

POSITION TO ROTRTE? 3- 



■ els ■ 



L J 

H P 

N R 

F I 



K C 

H D 

G 

B E 



POSITION TO ROTATE? 6. 



L J K C 

H A P D 

N H G 

F I B E 

POSITION TO ROTATE? 2. 



L J P K 

H A D C 

N H G 

F I B E 

POSITION TO ROTATE? 7. 



• els ■ 



L 


J 


P 


K 


H 


A 


H 


D 


N 





G 


C 


F 


I 


B 


E 



19 as. PRINT8413, "ROTATE" 

20 PRINT- PRINT TAB(7) "COPVRIGHT 1379 CREATIVE COMPUTING HORRISTOW, NJ' 
39 PRIHT8968, "i : INPUT *00 YOU REED INSTRUCTIONS": I* 

48 DItt B(16),B$<16) 

59 IF LEFT*<H,i>="H" THEN CLS: GOTO 368 
68 CLS: PRINT TR8(29>; "ROTATE" • PRINT 
79 PRINT "IN THIS GfiJE THE BOARD IS LAID OUT AS FQLLOHS:" 
88 FOR 1=1 TO 16: B(I)=I: NEXT 
98 PRINT: FOR 1=1 TO 13 STEP 4 
189 PRINT USING "H "iB(I),B(I+l),B(I+2),B(I+3) 
118 NEXT I: PRINT 

128 PRINT "BOARD POSITIONS ARE OCCUPIED RRNDOKLY BV THE LETTERS A TO P. " 
139 PRINT "THE OBJECT OF THE GRHE IS TO ORDER THE LETTERS BV ROTATING" 
148 PRINT "RNV FOUR LETTERS CLOCKWISE ONE POSITION VOU SPEC1FV THE" 
159 PRINT "UPPER LEFT POSITION OF THE FOUR VOU HISH TO ROTATE, I. E , ' 
168 PRINT "VRLID HOVES ARE i, 2> 3, 5, 6, 7, 9, 19 AND It " 
178 PRINTI979, "PRESS ANY KEY TO CONTINUE"; 
188 IF INKEY$=" THEN 188 ELSE PRINTM28, CHR*Gi); 
198 PRINT "CONSEQUENTLY, IF THE BOARD LOOKED LIKE:" 
228 PRINT "AND VOU ROTATED POSITION 2, THE BOARD WOULD BE: ' 
218 Bt(6)="B": B*(7)="F": GOSUB 598 
228 PRINT "AD VOU ROTATED POSITION 2, THE BOARD MOULD BE:" 
238 FOR 1=2 TO 7: B*U>=CHR$<I+64>: NEXT I: GOSUB 598 
248 PRINT "ANDYOUNOULDHIN!" 
259 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 
268 IF INK£Y$=" THEN 268 ELSE PRINT8128, CHR*<31>; 
278 PRINT "YOU ALSO GET ONE 'SPECIAL' HOVE PER GAffi HH1CH VOU WAV OR" 
288 PRINT "HAY NOT NEED. THE SPECIAL HOVE RLLOHS YOU TO EXCHANGE" 
"RNV TWO ADJACENT LETTERS IN A ROk TO HAKE THIS HOVE, " 
"INPUT A '-1' AS YOUR HOVE AND YOU HILL BE ASKED FOR THE" 
■POSITIONS OF THE TWO LETTERS TO EXCHANGE. REKEHBER -" 
"ONLY ONE SPECIAL HOVE PER GAKE!":PRIHT 
"TO GIVE UP AT ANY TIKE, TYPE R '8' ■• 

348 PRINT8979, "PRESS RNV KEY TO CONTINUE"; 

358 IF INKEVt=" THEN 359 ELSE CLS 

369 FOR 1=1 TO 16: B*<1)="8": NEXT I 

379 FOR 1=1 TO 16 

389 T*=CHRtaNT(16*RND<8>+65» 

398 FOR J=l TO I 

488 IF B*(J)=T* THEN 388 

416 NEXT J 

428 B$CD=T$: NEXT I 

438 H=8- S=8: CLS: PRINT 'HERE'S THE STARTING BORRD. .. "; GOSUB 599 

449 INPUT "POSITION TO ROTRTE"; I: CLS: IF 1=8 THEN PRINT: PRINT: GOTO 559 

459 IF I=-l THEN 628 

468 IF 1=4 OR 1=8 OR D12 THEN 448 

479 N=H+1:T*=B$(I> 

488 B*(I)=B$(I+4>: B»CI+4)=B$(I+5): 

498 GOSUB 599 

598 FOR 1=1 TO 16 

518 IF CHR*<H64)OBKD THEN 448 

528 NEXT I 

539 PRINT: PRINT "YOU ORDERED THE BOARD IN"; Hi "HOVES. " : H1=H1+H: G=G+1 

549 PRINT CHRK7) 

558 PRINT: INPUT "PLRY AGAIN'; AJ: IF LEFWAI, 1)="V THEN 368 

566 PRINT: PRINT "YOU PLRYED'; Gi "GRHES AND ORDERED THE BOARD IN AN AVERAGE" 

578 IF 6=8 THEN 0=1 

589 PRINT "OF"; Ht/Gi "HOVES PER GRHE. ": PRINT: GOTO 668 

599 FOR 1=1 TO 13 STEP 4 

688 PRINT USING " ' ";B$(D,B«I+l),B*(I+2),B$<I+3) 

618 NEXT I: PRINT: RETURN 

629 INPUT "EXCHANGE WHICH TO POSITIONS"; X, Y 

638 IF XOY+i AND XOV-1 THEN PRINT "ILLEGAL AGRIN . . * : GOTO 628 

648 S=S+1: IF SM THEN PRINT "ONLY ONE SPECIAL HOVE PER (WE. ": GOTO 449 

658 T*=B$«>: B*(X)=B*(Y): B*<Y)=T$: GOTO 498 

666 END 



299 PRINT ' 
399 PRINT ' 
318 PRINT 
328 PRINT ' 
338 PRINT ' 



B»(1+5)=8$(I+1): B$(I+1)=T* 



POSITION TO ROTATE? 6. 



L J P K 
H A D 

ItIC 
F I B E 

POSITION TO ROTATE? 2- 



■ c/s ■ 
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Safe 



SAFE 



In asense.thisisanothergameinthe 
"guess a mystery number" family. 
However, it has quite a different "twist." 
In this game, you are trying to open a 
safe by turning or twisting a dial back 
and forth between one and ninety-nine 
or ninety-nine and one. 

The instructions shown in the sam- 
ple run are very complete. However, 
one hint that will help you when you 
start playing is that it is usually best to 
start at ninety-nine when going to the 
right because if you get a click, the 
number must be close. If not, you can 
step it down by eights or tens until you 
get the first click and then judge from 
there. 

Safe was created and written by 
Keviii Ashley. 



Turning Right 




NOTE: There Is no spot (zero) and It spins 
back past the last number automati- 
cally as In most locks. 



COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOUN, NJ 



DO VOU NEED INSTRUCTIONS? YES. 



■ CIS • 



SRFE 

YOU RRE A BURGULfiR AND HAVE ENCOUNTERED A SAFE YOU MUST 
OPEN THE SAFE TO GET THE SECRET PLANS THAT YOU CAME FOR. 

TO DO THIS, YOU MUST ENTER THE NUMBER OF WHAT YOU WANT THE 
DIAL TURNED TO. THE COMPUTER MILL ACT AS THE SAFE AND MILL 
KELP YOU BY GIVING A SORT OF CLUE: YOU WILL 'HEAR' 
A CLICK AT EVENLY SPACED NOTCHES AS YOU MOVE TO THE PROPER 
NUMBER. THERE ARE FOUR OF THEM BEFORE THE FINAL CLICK IS 
'HEARD', AFTER THE FINAL ONE IS HEARD, YOU WILL GO ON TO 
THE NEXT NUMBER. THE COMPUTER MILL 'SAY' 'CLICK' FOR EACH 
NOTCH THAT YOU PASS AND '**CLICK**' WHEN YOU REACH THE 
PROPER NUMBER IF YOU PASS IT OR TAKE LONGER THAN TEN TRIES 
ON ANY ONE NUMBER, YOU HILL ACTIVATE THE ALARM. 



PRESS ANY KEY TO CONTINUE 



Ol8 ■ 



SAFE 

REMEMBER THAT WHEN YOU TURN THE DIAL TO THE LEFT, THE 
NUMBERS GO FROM i-99 ,AND WHEN YOU GO TO THE RIGHT, THE 
NUMBERS GO FROM 99-1. 
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PRESS ANY KEY TO CONTINUE 



OKRY, STRRT TO THE RIGHT, SHHHHHH!! !! !!! !!!!!! ! 
? 98- 



OKRY, STRRT TO THE RIGHT, SHHHHHHH!!!!!!!!!!!! 

CLICK 

CLICK 

CLICK 

CLICK 

? 78- 



OKflY, STRRT TO THE RIGHT, SHHHHHH!! !!!!!!!!!!! ! 
THE SEHSOR HflS BEEN TRIGGERED! 
LERVE WHILE YOU CRN BEFORE THE 
POLICE GET HERE. 

WANT TO TRY THE SAME SAFE? YES. 



• CIS ■ 



OKflY, STRRT TO THE RIGHT, SHHHHHH!!!!!!!!!!!!!! 

CLICK 

CLICK 

CLICK 

■> 73- 



• els ■ 



OKRY, STRRT TO THE RIGHT, SHHHHHH!!!!!!!!!!!!!! 

CLICK 

CLICK 

CLICK 

? 72- 



Cls ■ 



OKRY, STRRT TO THE RIGHT, SHHHHHH!!!!!!!!!!!!!! 

CLICK 

CLICK 

CLICK 

? 78- 



Cl8 ■ 



OKRY, START TO THE RIGHT, SHHHHHH! !!!!!!!!!!!! ! 

aloe 

CLICK 
CLICK 
CLICK 
? 58. 



Cl8 



OKRY, STRRT TO THE RIGHT, SHHHHHH!!!!!!!!!!!!!! 
THE SENSOR HfiS BEEN TRIGGERED! 
LERVE WHILE YOU CRN BEFORE THE 
POLICE GET HERE. 

WANT TO TRY THE SRME SRFE? NO- 

els 
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28 PRINT- PRINT TRB(7) "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

28 PRINT0968, ""; . INPUT "DO YOU NEED INSTRUCTIONS"; 1$ 

48 DIM RK4) 

58 IF LEFT«I*,i>="Y" THEN 68 ELSE 278 

68 CLS- PR1NT038, "SRFE": PRINT 

78 PRINT "YOU RRE R BURGULAR RND HAVE ENCOUNTERED A SRFE. YOU MUST" 

88 PRINT "OPEN THE SAFE TO GET THE SECRET PLANS THAT YOU CRME FOR. " 

98 PRINT 

188 PRINT "TO DO THIS, YOU MUST ENTER THE NUMBER OF HHRT YOU HANT THE" 

118 PRINT 'DIAL TURNED TO. THE COMPUTER WILL RCT AS THE SRFE AND HILL 

128 PRINT "HELP YOU BY GIVING A SORT OF CLUE: YOU MILL 'HERR'" 

138 PRINT "A CLICK AT EVENLY SPRCED NOTCHES RS YOU MOVE TO THE PROPER 

148 PRINT "NUMBER. THERE ARE FOUR OF THEM BEFORE THE FINAL CLICK IS" 

158 PRINT "'HERRD' AFTER THE FINAL ONE IS HEARD, YOU WILL GO ON TO" 

168 PRINT "THE NEXT NUMBER. THE COMPUTER WILL 'SAY' 'CLICK' FOR EACH" 

178 PRINT "NOTCH THAT YOU PASS RND '**CL1CK**' WHEN YOU REACH THE 

188 PRINT "PROPER NUMBER. IF YOU PASS IT OR TAKE LONGER THAN TEN TRIES" 

198 PRINT "ON ANY ONE NUMBER, YOU WILL ACTIVATE THE ALARM. " 

280 PRINT8979, "PRESS RNY KEY TO CONTINUE"; 

218 IF 1NKEY*=°" THEN 218 RSE PRINT8128, CHR*<31>; 

228 PRINT "REMEHBER THAT WHEN YOU TURN THE DIRL TO THE LEFT, THE 

230 PRINT "NUMBERS GO FROM 1-99 , RND WHEN YOU GO TO THE RIGHT, THE 

248 PRINT "NUMBERS GO FROM 99-1. ": PRINT: PRINT 

258 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

268 IF INKEY*=" THEN 268 

278 CLS: PRINT'OKRY, STRRT TO THE RIGHT, SHHHHHH! !!!!!!!!!!!!! 

288 A=INKRMX8>*81>+ie 

298 B=INKRND<0>*81H10 

380 C=INT(RND<0>*81)+10 

310 L=100-fl 

328 FOR H=i TO 4 

330 Al(M>=<5-M)*L/5+A 

340 NEXT M 

350 J=i 

360 INPUT M: PRINTC64, CHR$<31>; 

378 ON SGN<M-H)+2 GOTO 458,520,388 

380 FOR K=l TO 4 

398 IF M>AKK> THEN 418 

400 PRINT "CLICK" 

416 NEXT K 

428 IF J>=10 THEN 458 

438 J=J+1 

448 GOTO 360 

458 PRINT "THE SENSOR HAS BEEN TRIGGERED!" 

460 PRINT "LERVE WHILE YOU CAN BEFORE THE" 

470 PRINT "POLICE GET HERE " 

480 PRINT: PRINT "WRNT TO TRY THE SRME SAFE"; 

498 INPUT R* 

588 IF LEFT$(R$,1)="Y" THEN 316 

510 GOTO 270 ^ 

528 PRINT "** CLICK **": AA=M: FOR A=i TO 588: NEXT 

538 L=L+B 

540 FOR K=l TO 4 

558 RKK>=K*L/5+B 

568 NEXT K 

570 CLS: PRINT "RND NOW TO THE LEFT. " 

588 J=l 

598 INPUT M: PRINT864, CHR*<31>; 

600 PRINTC968, "CORRECT NUMBERS:"; Aft PRINT064, ""; 

610 ON SGN<M-A>+2 GOTO 620,458,640 

620 ON SGNCM-BH2 GOTO 638,728,458 

638 M=M+180 

640 FOR K=l TO 4 

658 IF M<A1<K) THEN 688 

668 PRINT "CLICK" 

678 AKK)=288 

688 NEXT K 

698 IF J>=18 THEN 458 

768 J=J+1 

718 GOTO 598 

720 PRINT "** CLICK **"■ BB=M: FOR ft=i TO 588: NEXT 

738 L=<188-C)+B 

748 FOR K=l TO 4 

750 Al<K)=B+lB0-K*L/5 

768 NEXT K 

778 CLS: PRINT "RND NOW TO THE RIGHT AGAIN. 

788 J=i 

790 INPUT M: PRINT864, CHRJGi); 

888 PRINT8960, "CORRECT NUMBERS:"; Aft BB; : PRINT664, ""; 

818 ON SGN(M-B)+2 GOTO 838,458,828 

828 ON SGN(M-C)+2 GOTO 458,920,848 

838 H=M+108 

846 FOR K=l TO 4 

858 IF M>Ai(K> THEN 888 

868 PRINT "CLICK" 

878 Rl(K)=-200 

888 NEXT K 

898 IF J>=18 THEN 458 

900 J=J+1 

910 GOTO 790 

920 PRINT: PRINT "** CLICK **. . . YOU OPENED IT!" 

930 PRINT "BUT UH,OH, HE MUST HRVE MOVED IT. " 

940 INPUT "TRY THE ONE OVER THERE ";A* 

950 IF LEFT*<A*,1)="V" THEN 270 ELSE END 



Scales 




SCALES 
COPVRIGHT 1979 CRERTIVE COMPUTING MORRISTOWN, NJ 



DO VOU NEED INSTRUCTIONS? VES_ 



els 

SCALES 

ELEVEN SCALE TVPES — MAJOR, MINOR, MODAL, AND WHOLE TONE 

THIS PROGRAM PRINTS IN LETTER NAMES ONE OCTAVE UPWARD, THE MAJOR, 
THE NATURAL, HARMONIC, MELODIC, AND HUNGARIAN MINORS, THE 
DORIAN, PHRVGIflN, LVDIAN, MIXOLVDIRN, AND LOCRIAN MODES, AND 
THE WHOLE TONE SCALES. 

USE A 3- OR 4-CHARACTER INPUT: THE FIRST 2 CHAR'S ARE THE SCALE 
TYPE, AND THE 3RD CHAR'R IS THE SINGLE LETTER TONIC, OR THE 
LAST TWO CHAR'S ARE THE TONIC DEGREE OR THE KEY SIGNATURE. 
SCALE TVPES— MA NA HA ME DO PH LV MI LO HU AND WH 
INPUT EITHER A TONIC OR A SIGNATURE. 

PRESS ANV KEV TO CONTINUE 
els 



SCALES 
EXAMPLES: MflCB LVDB MIEB WHGB NAF# HAG# MEfiS L0C# DOC PHD HUE 

WHICH TVPE OF SCALE IS WANTED? WHF#_ 
els 



SCALE ASKED WHOLE TONE SCALE ON F# 

ANSWER (IN LETTER NAMES) 



This program tests your knowledge of 
different types of musical scales. It 
generates 11 types of scales: major, 
natural minor, harmonic minor, 
Hungarian minor, dorian, phygian, 
lydian, mixolydian, locrian, and whole 
tone. 

Prior to running the program, test 
yourself off line on a sheet of paper by 
writing down several types of scales 
and 8 notes starting at a note chosen by 
you. Then run the program to check 
your answers. 

When you run this program, you will 
be asked, "Which type of scale is 
wanted?" Respond by typing the first 
two letters of the name of the desired 
scale followed immediately by the 
desired key. Use a B for the flat and 
use '#' for the sharp. Sample inputs 
would be PHE for Phrygian starting 
on E, MAF# for major on F-sharp, 
and WHG for whole tone on G. 

The author, Marvin S. Thostenson, is 
at the School of Music, University of 
Iowa. Scales first appeared in Creative 
Computing, Mar/Apr 1977. 



F# G# A# B# D E F# 

WHICH TVPE OF SCALE IS WANTED? NAE_ 

els 



SCALE ASKED NAT'L MINOR SCALE ON E 

ANSWER (IN LETTER NAMES) 

EF#GABCDE 

WHICH TVPE OF SCALE IS WANTED? WHO. 
cis 



SCALE ASKED WHOLE TONE SCALE ON C 

ANSWER (IN LETTER NAMES) 

C D E F# RB BB C 

WHICH TVPE OF SCALE IS WANTED? HU28- 

Cl3 



SCALE ASKED HUNG'N MINOR SCALE ON I 

ANSWER (IN LETTER NAMES) 

B C# D E# F# G R« B 

WHICH TVPE OF SCALE IS WANTED? STOP. 
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10 CLERR 580: CLS: PRINT9413, "SCALES" 

98 PRINT PRINT TR6C7) "COPVRIGHT 1979 CREfiTIVE COMPUTING MORRISTOWN, NJ" 

-«S PRINT0960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; 1$: CLS 

46 A=0: B=0: C=0: D=0: E=0: H=0: K=0: L=0: M=0: N=S: 0=0 

58 W=4 

66 IF LEFT*<I$,1>="N" THEN 230 

70 CLS: PRINT TfiB<29> "SCALES": PRINT 

80 PRINT "ELEVEN SCRLE TVPES — MAJOR, MINOR, MODAL, AND WHOLE TONE" 

38 PRINT 

100 PRINT "THIS PROGRAM PRINTS IN LETTER NAMES ONE OCTAVE UPWARD, "; 

118 PRINT "THE MAJOR, "; 

120 PRINT "THE NATURAL, HARMONIC, MELODIC, AND HUNGARIAN MINORS, THE" 

120 PRINT "DORIAN, PHRVGIAN, LVDIAN, MIXOLVDIAN, AND LOCRIAN MODES, AND" 

140 PRINT "THE WHOLE TONE SCRLES. ": PRINT 

158 PRINT "USE A 3- OR 4-CHARRCTER INPUT: THE FIRST 2 CHAR'S ARE THE SCALE' 

160 PRINT "TVPE, AND THE 3RD CHAR'R IS THE SINGLE LETTER TONIC, OR THE" 

170 PRINT "LAST TWO CHAR'S ARE THE TONIC DEGREE OR THE KEV SIGNATURE. » 

180 PRINT "SCALE TVPES- MR.NA Hfl ME DO PH LV MI LO HU AND WH» 

190 PRINT "INPUT EITHER A TONIC OR A SIGNATURE. " 

286 PRINT6979, "PRESS ANV KEV TO CONTINUE"; 

210 IF INKEW="" THEN 210 ELSE PRINT0128, CHRSOl); 

220 PRINT "EXAMPLES: MACB LVDB I1IEB WHGB NAFS HHG# MEAS LOC# DOC PHD HUE" 

230 B*="SCALE ASKED " 

246 C*="RNSWER (IN LETTER NAMES) " 

250 0*="STRUCTURE " 

260 Kt=" TETRACHORDS" 

278 U=l 

280 PRINT: PRINT: PRINT TAB<8>; "WHICH TVPE OF SCALE IS WANTED"; 

290 INPUT A*: CLS 
300 N=LEN<A*> 

310 IF A*="STOP» THEN 1290 
320 E$="MANAHAHED0PHLVMILOHUWH" 
330 FOR X=l TO 22 STEP 2 
340 IF LEFT«R*, 2>=MID*<E$, X, 2) THEN 360 
350 NEXT X 
360 S=<X+1V2 
378 A8*=A$ 

380 X=RSCaEFT«R0S,l»-32 
390 A8*=CHR$CX)+MID«A8$, 2, N) 
400 READ D$ 
418 R0$=fl$ 

420 X=ASC<LEFT*<AB*,1>> 
430 A8*=CHR*<X)+MID*<A8$, 2, N) 
440 IF LEFTKD*, 2>=LEFT*(AB$, 2) THEN 460 
450 GOTO 408 
469 J*=D$ 
47@ RESTORE 
436 IF N03 THEN 500 
490 R$=LEFT*(R$, 3)+" " 
560 IF 0=1 OR 8=7 OR 0=11 THEN 520 
510 IF 8>=2 AND 0<=6 OR 0=9 OR Q=10 THEN 540 
520 V=l 
530 GOTO 550 
540 V=2 

550 F$="BXEXBXDXGXCXFXB#E#A#D#GftC«F#B E A D G C F " 
560 F*=F*+ " BBEBABDBGBCBFBBDEDRDDDGDCD " 
570 G*="BXEXAXDXGXCXFXB#EitB#DttGitC#F#B EflDGCF" 
580 G$=G*+ " BBEBRBDBGBCBFBBDEDHDDDGDCD " 

590 ON V GOTO 6B0, 628 

680 H$="5T4T3T2TlT7X6X5X4X3X2XlX7*6#5#4#3#2#l»8#lB2B3B4B5B6B7BlD2DiD4D 

618 H$=Hf+"5D6D7D" 

62R GOTO 650 

630 H*="2T1T7X6X5X4X3X2X1X7#6#5#4#3#2#1#6#1B2B3B4B5B6B7B1D2D2D4D" 

640 H#=H*+"5D6D7D8D9D " -| 4g 

658 FOR V=l TO 68 STEP 2 



660 IF MID«A$, 2, 2>=MID*<F$, V, 2) THEN 690 

670 IF MID$(A$, 3, 2>=MID*(H$, V, 2) THEN 698 

680 NEXT V 

698 C1*=MID$<GS, V, 2> 

700 T=T+1 

710 IF T=9 THEN 1178 

728 ON T GOTO 738, 750, 800, 850, 900, 950, 1088, 1058 

720 R=0 

74S GOTO 1060 

750 IF 8=6 OR 0=9 THEN 780 

760 R=-4 

770 GOTO 1060 

78S R=10 

798 GOTO 1060 

808 IF Q=l OR Q=7 OR Q=8 OR Q=ll THEN 830 

810 R=6 

828 GOTO 1068 

836 R=-8 

840 GOTO 1060 

850 IF 8=7 OR Q=10 OR Q=ll THEN 880 

860 R=2 

87B GOTO I860 

880 R=-12 

89@ GOTO 1068 

900 IF 0=9 OR 8=11 THEN 938 

918 R=-2 

928 GOTO 1060 

930 R=12 

940 GOTO 1060 

950 IF 8=1 OR Q=4 OR 0=5 OR 0=7 OR Q=8 THEN 980 

960 R=8 

978 GOTO 1068 

980 R=-6 

990 GOTO 1060 

1880 IF Q=l OR (3=3 OR 0=4 OR 0=7 OR Q=10 THEN 1030 

1810 R=4 

1820 GOTO I860 

1638 R=-18 

1948 GOTO 1868 

1858 R=0 

1068 IF 0=11 RND T=5 THEN 1108 

1078 IF U=l THEN I*=MID«G*, V+R, 2) ' GOTO 1110 

1086 I$=LEFT«I*, U-1)+MID«G*, V+R, 2) 

1698 GOTO 1110 

1100 GOTO 700 

1110 I*=LEFT«I*,U+1>+" " 

1128 IF MID*a*,U+l,l)="D" THEN 1140 

1138 GOTO 1150 

1140 I$=LEFT$<I*,U>+"BB" 

1150 U=U+4 

1168 GOTO 706 

1178 PRINT: PRINT TAB<3>,6$; J*;Clf :PRINT 

1188 PRINT TAB(3);C*: PRINT 

1190 PRINT: PRINT TAB<8>; I* 

1200 Clf=""' »=""■ G*="" 

1210 Q=0: T=0: R=0 

1228 PRINT 

1238 GOTO 278 

1248 DATA "MAJOR SCRLE ON ", "NAT'L MINOR SCALE ON " 

1258 DATA "HRRM'C MINOR SCALE ON ", "MEL'C MINOR SCALE ON " 

1260 DATA "DORIAN MODE ON ", "PHRVGIAN MODE ON " 

1270 DATA "LVDIAN MODE ON ", "MIXOLVDIAN MODE ON ", "LOCRIAN MODE ON 

1280 DATA "HUNG'N MINOR SCALE ON ", "WHOLE TONE SCALE ON " 

1298 END 



Schmoo 



Schmoos are imaginary creatures 
who love being splattered with juicy 
mudballs. You, being a schmoo lover, 
try to make schmoos happy by tossing 
mudballs at them. It will help you in 
playing this game to know a little bit 
about grids and angles like in the X,Y 
coordinate system 2,-3 means right 2 
and down 3. If degrees is the angle 
coinciding with the positive X axis, then 
2,-3 would be in the fourth quadrant 
and would correspond to angles 
between 270 and 360 degrees. 

If you're pretty good, you can "splat 
the schmoo" in about eight tries; but 
don't cheat and use the formula. And 
don't expect me to tell you where it's 
hidden in the program! 

If you want to extend the Schmoo 
game, you might want to add a third 
dimension with flying schmoos. The 
program shouldn't be too hard and it 
would be a really neat game. If you 
want to try something easier, fix 
Schmoo so that it requires initial 
velocities as well as angles. You could 
even make a low-gravity (lunar version) 
of Schmoo. 

Schmoo was conceived and written 
by Frederick H. Bell at the University of 
Pittsburgh. It first appeared in Creative 
Computing, Sep/Oct 1975. 



SCHHOO 

copvright 1979 creative computing horristohn, hj 
do you heed instructions? ye5. 

schhoo 

THIS IS A NEH SCBHOO 6AH£ SCHHOOS ARE IMAGINARY CREATURES 
MHO LOVE BEING SPLATTED HITH JUICV HUD BALLS. V0U, BEING A 
SCHHOO LOVER, TRY TO WS<E SCHHOOS HAPPY BY TOSSING HUD BALLS 
AT TKEH. YOU HAVE A MECHANICAL HUD SLINGER THAT HILL SLING 
MUD TO A HAXIHUH DISTANCE Of 46, 580 INCHES. VOUR JOB IS TO 
SET THE MUD SLINGER AT THE CORRECT ELEVATION (8-98) AND THE 
CORRECT DIRECTIONAL ANGLE (0-368) TO SPLAT THE SCHHOO. A HIT 
HITHIN 166 INCHES OF THE SCHHOO HILL SPLATTER HIM. 
PRESS RNY KEY TO CONTINUE 

els 

SCHMOO 
COORDINATES Of THE SCHHOO ARE (-29184 ,-14571 ). 

HUD SLINGER ELEVATION? 28 
DIRECTIONAL ANGLE OF HUD SLINGER? 34. 

— els 

YOU HISSED THE SCHHOO AT (-29184 , 
YOUR HUD HIT ( 24779 , 16713 >. 



-14571 ). 



HUD SLINGER ELEVATION? 26 
DIRECTIONAL ANGLE OF HUD SLINGER? 276. 

els 

YOU HISSED THE SCHHOO AT (-29184 , 
YOUR HUD HIT (3124 ,-29726). 



-14571 ). 



HUD SLINGER ELEVATION? 15 
DIRECTIONAL ANGLE OF HUD SLINGER? 295. 

els 

YOU HISSED THE SCHHOO AT (-29184 
VOUR HUD HIT ( 9825 ,-21872 ). 



-14571 ). 



HUD SLINGER ELEVATION? 276 
DIRECTIONAL ANGLE OF HUD SLINGER? 278. 

Cl8 

THE ELEVATION HUST BE BETWEEN 1 AND 98. 
HUD SLINGER ELEVATION? 98 
DIRECTIONAL ANGLE Of HUD SLIHGER? 368. 

— els 

YOU DOPE! YOU SPLATTED YOURSELF. 



COORDINATES OF THE SCHMOO ARE ( 18597 , 5696 ). 

HUD SLINGER ELEVATION? 24 
DIRECTIONRL ANGLE Of MUD SLINGER? 45. 

— els 



YOU HISSED THE SCKHOO AT ( 18597 , 56% ). 
YOUR HUD HIT ( 24434 , 24434 ). 

HUD SLINGER aEYATION? 38 
DIRECTIONAL ANGLE OF MUD SLINGER? 45. 

_ CIS 
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YOU HISSED THE SCH100 AT ( 18597 , 5696 ). 
YOUR MUD HIT ( 28475 , 28475 ). 

KUD aiNGER aEVATION? 27 
DIRECTIONS. ANGLE OF MUD SLINGER? 17. 
els 



YOU HISSED THE SCHMOO AT ( 18597 , 5696 ) 
YOUR HUD HIT ( 35975 , 16998 ). 

MUD aiNGER ELEVATION? 13 
DIRECTIONAL ANGLE OF MUD aiNGER? 13. 

ols 

VOU MISSED THE SCH10O AT ( 18597 , 5696 ). 
YOUR MUD HIT ( 19861 , 4585 ). 

MUD aiNGER aEVATION? 13 
DIRECTIONAL ANGLE OF KUD aiNGER? 12. 
els 



VOU HISSED THE SCKHOO AT ( 18597 , 5696 ). 
YOUR KUD HIT ( 19938 , 4238 ). 

HUD aiNGER ELEVATION? 11 
DIRECTIONS. ANGLE OF KUD aiNGER? 15. 

els 

YOU MISSED THE SCtMO AT ( 18597 , 5696 ) 
YOUR HUB HIT ( 16825 , 4588 ). 

HUD aiNGER ELEVATION? 12 
DIRECTIONAL ANGLE OF HUD aiNGER? 14. 

— els 



YOU HISSED THE SCHMOO AT ( 18597 , 5696 ). 
YOUR KUD HIT ( 18351 , 4575 ). 

MUD aiHGER ELEVATION? 12. 5 
DIRECTIONRL ANGLE OF MUD aiNGER? 14. 5. 

els 



„YOU MISSED THE SCH100 AT ( 18597 , 5636 ) 
YOUR KUD HIT ( 19825 , 4928 ). 

MUD aiNGER ELEVATION? 12 

DIRECTIONAL ANGLE OF MUD aiHGER? 14. 67. 

els 



YOU MISSED THE SCtMO AT ( 18597 , 5696 ) 
YOUR HUD HIT < 18296 , 4789 ). 

KUD aiNGER ELEVATION? 12 23 
DIRECTIONAL ANGLE OF HUD aiNGER? 14. 89. 

els 



YOU HISSED THE SCtflOO AT ( 18597 , 5696 ) 
YOUR HUD HIT ( 18686 , 4947 ). 

HUD aiNGER aEVATION? 12. 2 
DIRECTIONAL ANGLE OF HUD aiNGER? 14. 99. 
- els 



YOU HISSED THE SCHMOO AT ( 18597 , 5696 ). 
YOUR HUD HIT ( 18555 , 4968 ). 

KUD aiNGER ELEVATION? 12. 2 
DIRECTIONAL ANGLE OF MUD aiNGER? 15. 19. 

— els 



YOU HISSED THE SCHWO AT ( 18597 , 5696 ) 
YOUR HUD HIT ( 18537 , 5633 ). 

HUD aiNGER ELEVATION? 12 24 
DIRECTIONAL ANGLE OF HUO aiNGER? 15. 27. 
- els 



YOU MISSED THE SCfflOO AT ( 1859? , 5696 ). 
YOUR MUD HIT ( 18587 , 5674 ). 

KUD aiNGER ELEVATION? 1224 
DIRECTIONAL ANGLE OF KUD aiNGER? 15.7. 



■ els ■ 



VOU HISSED THE SCHHOO AT < 1859? 
VOUR HUD HIT < 18549 , 5213 ). 



5696 ). 



HUD SLINGER ELEVATION? 12. 26 
DIRECTUM. ANGLE OF HUD SLINQER? 16.2. 



■ els ■ 



VOU HISSED THE SCHHOO AT ( 1859? 
VOUR HUD HIT ( 18539 , 5383 ). 



56% ). 



HUD SLINGER ELEVATION? 12. 28 
DIRECTIONAL ANGLE OF MUD SLINGER? 16.67- 



VOU HISSED THE SCHHOO AT ( 18597 
YOUR KUD HIT ( 18514 , 5544 ). 



5696 ). 



HUD SLINGER ELEVATION? 12. 3 
DIRECTIONAL ANGLE OF HUD SL1NGER? 16. 79- 



VOU HISSED THE SCHHOO AT C 1859? 
VOUR HUD HIT ( 18531 , 5591 ). 



5696 ). 



HUD SLINGER ELEVATION? 12. 43 
DIRECTIONAL ANGLE OF HUD SLINGER? 16.84- 



■ Cl8 



VOU HISSED THE SCHHOO AT C 1859? , 5696 ). 
VOUR HUD HIT ( 18789 , 5663 ). 

HUD SLINGER REVATION? 12. 4 
DIRECTIONAL ANGLE OF HUD SLINGER? 16.85. 



Cl8 - 



♦SCHHOO SPLATTED* 19 HUD BALLS TOSSED. 

I SEE MOTHER SCHHOO. TO SPLAT 
HIH, TYPE HID. TO QUIT, TYPE QUIT. 



?6UIT. 



ols • 



28 PRINT 8 413, "SCHHOO 1 

to ppint 

48 PRINT TAB(7)"C0PYRIGHT 1979 CREATIVE COHPUTING HORRISTOHN, NJ" 

58 PRINT 8 968, "; 

68 IHPUTDO VOU NEED INSTRUCTIONS"; U 

78 IF LEFTKI*, 1)="N" THEN CLS: GOTO 228 

88CLS 

98 PRINT THB(38);"SCKH00" 

jgo PRINT 

116 PRINT' THIS IS fi NEH SCHHOO GAKE. SCHHOOS ARE IHAGINARV CREATURES" 

128 PRINT'HHO LOVE BEING SPLATTED HITH JUICV HUD BALLS. YOU, BEING A" 



PRINT-SCHHOO LOVER, TRY TO RAKE SCHHOOS HAPPY BY TOSSING HUO BALLS" 

PRINTAT TKEH YOU HAVE A HECHANICfiL HUO SLINGER THAT HILL SLING" 

PRINT'HUD TO A HAXIHUH DISTANCE OF 46,589 INCHES. YOUR JOB IS TO" 

PRINPSET THE HUD SLINGER AT THE CORRECT ELEVATION (8-98) AND THE" 

PRINT'CORRECT DIRECTIONAL ANGLE (8-368) TO SPLAT THE SCHHOO. A HIT" 

PRINT'HITHIN 188 INCHES Of THE SCHHOO HILL SPLATTER HIH. " 

G0SUB948 

PRINT 

PRINT 

Kl=8 

Z=INT(l+RND<0)*4-iE-88) 

ON Z GOTO 258, 288, 318, 348 

P=-i 

Q=-l 

GOTO 368 

P=-i 

0=1 

GOTO 368 

P=l 

8=-l 

GOTO 368 

P=l 

8=1 

X=< INT(26688*RND(8)+5088))*P 

Y=( INT(26080*RKO(0>+5888»*S 

S=8 

K1=K1+1 

IF Kl<2 THEN 628 

R=1NT(7*RND(0H5) 

GOTO 628 

PRINT'THE ELEVATION HUST BE BETKN 1 AM) 98. " 

GOTO 698 

PRINT"DIRECTIONfiL ANGLE HUST BE FROH 8 TO 368. " 

GOTO 698 

PRIHT"*SCHKO0 SPLAnED*"; Si "HUD BALLS TOSSED. " 

PRINT 

PRINT'I SEE ANOTHER SCHHOO. TO SPLAT" 

PRINT'HIH, TYPE HUD. TO QUIT, TYPE QUIT. " 

PRINT 

INPUT C$ 

IF C*=*HUD" THEN 238 

END 

PRINT'VOU HISSED THE SCtWO AT (";Xi",';Vi"). " 

PRINT'YOUR HUD HIT ("; IHT<X1>; ", "; INT(Yl); "). " 

PRINT 

IF Kl<2 THEN 698 

IF S>=R THEN 918 

PRINT'SCHHOO HUD HIT"; R2; "INCHES FROH YOU. " 

GOTO 690 

PRINT 

PRIHT'COORDIHATES OF THE SCHHOO ARE ("; X; ", "; V; *). " 

IF Kl<2 THEN 688 

PRIHT'TKE SCHHOO IS HAPPY TO BE SPLATTED. " 

PRINT'TO HAKE YOU HflPPY TOO, " 

PRIHT"KE HILL THROH HUD AT VOU. ■ 

PRINT 

PRINT'HUD SLINGER ELEVATION"; 

INPUT B 

PRINT'DlRECTIONflL ANGLE OF HUD SLINGER"; 

INPUT C 

as 

IF B=98 THEN 898 

IF B>90 THEN 438 

IF B<1 THEN 438 

IF C<8 THEN 458 

IF CX360-(lE-08» THEN 450 

S=S+1 

IF KK2 THEN 828 

R2=INT(ABS(308*RND(e)*(li-2*S))+9O) 

J=3. 14159265358/138 

D=fiSS(INT(93888!*SIN(B*J)*COS(B*J))) 

Xi=D*COS<C*3. 14159265351/188) 

Y1=D*SIN(C*3. 14159265358/188) 

Dl=S6R((i<-Xi)t2+(Y-Yl)t2) 

IF 108>D1 THEN 478 

GOTO 558 

PRINT'VOU DOPE! YOU SPLATTED YOURSELF. ■ 

END 

PRIHT'TKE SCHHOO HAS SPLATTED YOU!" 
928 PRINPCLEAN UP AND GOODBYE!" 
930 END 

940 PRINT 8 979, "PRESS ANY KEY TO CONTINUE"; 
958 IF IHKEY* =" THEN 958 
960 PRINT 8 128, CHR»(31); 
970 RETURN 



130 

140 

150 

168 

178 

188 

198 

288 

218 

228 

238 

240 

258 

268 

278 

288 

298 

388 

318 

328 

330 

348 

358 

360 

378 

388 

393 

400 

418 

428 

438 

440 

458 

468 

4?8 



518 
528 
538 
548 
558 
568 
578 
588 
598 
688 
618 



648 
650 
660 
678 
688 
698 
700 
?18 
728 
738 
748 
758 
768 
778 
788 
798 



818 



840 



898 
908 
918 
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Seabattle 



The object of the game of SEA 
BATTLE is quite simple. You are a 
submarine with a mission to seek out 
and destroy all of the enemy ships in 
your area, using whatever means are 
available. This includes torpedoes, 
Polaris missiles, sabotage, and suicide. 
The enemy, in turn, throws out depth 
charges in an attempt to destroy you. 
There are also some underwater mines 
which have a nasty habit of blowing 
you up when you run into them. Other 
hazards are some very hungry sea 
monsters lurking about who have a 
taste for submarine sandwiches. 

I started writing this program two 
years ago, and just finished my last 
modifications just recently. Of course, 
this doesn't mean I worked on it 
continuously for two years. There were 
some long 4-6 month stretches when I 
didn't do anything to it. It started out as 
a very simple program, and I just kept 
thinking of things to add to it. 

I am currently a senior in Simley 
Senior High School in Inver Grove 



Heights, Minnesota, and am 18 years 
old. I have been working with com- 
puters since the ninth grade, and have 
written many programs, including this 
one. 

This program always draws a crowd 
in our school computer room, even 
from kids who don't even know which 
end of a teletype to type on. I built every 
possible inconvenience into it, to keep 
people from winning too easily. I am 
happy to say that when a person wins 
now, it's headline news. There are 
always muttered oaths to beat the 
computer next time, and this alone 
brings me more enjoyment than play- 
ing the program. 



Note: Program and writeup are by 
Vincent Erickson. The original ver- 
sion of Sea Battle was written in HP 
Basic converted to microsoft basic 
by Steve North. 



o 



• °oo, 






.1 *>■>- - 
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SEA BATTLE 
COPYRIGHT 1979 CREATIVE COfPUTING HORRISTOKfl, NJ 



HHRT ARE YOUR ORDERS, CfiPTAIN DERRIER? 1 

OPTION «? 1 

DIRECTION S OF SHIPS DISTANCES 



UHRT IS TOR NAME? DERRIER- 



■ els ■ 



SETTING IP BOARD... 

YOU MUST DESTROY 21 EKEHY SHIPS TO HIH, CAPTAIN DERRIER. 

MAT ARE YOUR ORDERS, CAPTAIN DERRIER? 1 
OPTION I? 8. 



PRESS ANY KEY TO CONTINUE 
els 



IHAT ARE YOUR ORDERS, CAPTAIN DERRIER? 2. 



■ els ■ 



<S> 



<S> 



-KS> 



<S> 



<S> -1- 



COURSE (1-8)? 2 

..!....!.... 5....!.. OUCH!!! YOU GOT ONE, CAPTAIN DERRIER!! 
DEPTH CHARGES OFF PORT SIDE, CAPTAIN DERRIER!!! 
HEAVY DAHAGE!! REPAIRS IMMEDIATE, CAPTAIN DERRIER!!! 



<S> 



<S> 
. <S> 



t 1IIIIIMMB 

<S> ****** (X) 

<s> ****** *** 
*** t 
<S> <s> 



-t-<s> <s> 
$ 



<s> <s> t 

PRESS ANY KEY TO CONTINUE 
els 



<S> 



t $ 



PRESS ANY KEY TO CONTINUE 



■ els ■ 



— *** RESULTS OF LAST HEW KANUEVER ***- 
RHAT ARE YOUR ORDERS, WTAIN DERRIER? 4. 



• CIS ■ 



KEN DEPTH? 2588 

HANUEYER COKPLETE POER L0SS= 1199 

DEPTH CHARGES OFF PORT SIDE, CAPTAIN DERRIER!!! 

HEAVY DAHAGE!! REPAIRS IHOIATE, CAPTAIN DERRIER!!! 



HOT ARE YOUR ORDERS, CAPTAIN DERRIER? 8 
COURSE (1-8)? 3 

PMER AVAILABLE^ 5958. POO TO USE? 188 
NAVIGATION COMPLETE. PB£R LEFT= 5858. 
DEPTH CHARGES OFF PORT SIDE, CAPTAIN DERRIER! ! 
HODERflTE DAMAGE. REPAIRS NEEDED. 



PRESS ANY KEY TO CONTINUE 

els 



— *** RESULTS OF LAST ENEMY HBNUEVER ***— 
am ARE YOUR ORDERS, CAPTAIN DERRIER? 5. 



PRES5 ANY KEY TO CONTINUE 

els 



— *** RESULTS OF LAST FJEHY HANUEYER ***- 

HHAT ARE YOUR ORDERS, CAPTAIN DERRIER? 1 
OPTION «? 8. 



« OF ENEHY SHIPS LEFT 28 

» OF PG*R UNITS LEFT. 3,861 

« OF TORPEDOS LEFT 9 

t OF MISSILES LEFT 3 

« OF CREKN LEFT 38 

LBS. OFFUELLEFT 2,588 

HflHT DRHAGE REPORT? Y. 



<S>. 



-8- G> <S>4- 



!H! . * 



S <S> <S> 

t -«- 

********* 

<S) ********* ******-s- <s> <s> 

<S>****** (X) 

<s> ****** ****** t 
<5> ****** *** $ 

***<3> . <S> <S> <S> . 

<S> t 

PRESS ANY KEY TO CONTINUE 



ITEM 



DAHAGE 1+ GOOD, 8 NEUTRAL 



ENGINES 4.1432 
SONAR-14.5373 
TORPEDOS 6.7823 
MISSILES 4.7619 
MANEUVERING 13122 
STATUS 8.0888 
HEADQUARTERS 15847 
SABOTAGE 9.6646 
CONVERTER 3.5318 

YOU ARE AT LOCATION i IB , 11 ). 



150 



wat are your oroers, captain derrier? i 

SONAR IS UNDER REPAIR, CAPTAIN DERRIER. 

MAT ARE VOUR ORDERS, CflPTflIN DERRIER? 8 
COURSE (1-8)? 5 

POHER AVAILABLE = 3861 POKER TO USE? 388 
NAVIGATION COMPLETE. POWER LEFT= 3561 
DEPTH CHRRGES OFF PORT SIDE, CflPTflIN DERRIER!!! 
DAHBGE CRITICflL! ! ! ! HE NEED HELP! ! ! 
SEND 'HELP' IN CODE. HERE IS THE CODE:.... 
ENTER CODE? TOW 

FAST HORK, CflPTflIN DERRIER!! HELP ARRIVE IN TINE TO SAVE VOU! 

PRESS ANY KEV TO CONTINUE 

els — ___ 

— *** RESULTS OF LflST ENEMV HRNUEYER «*— 
*** SHIP DESTROYED BV R HIKE, CflPTflIN DERRIER! ! ! 

NHAT ARE VOUR ORDERS, CAPTAIN DERRIER? 5. 

— els 

# OF ENEMY SHIPS LEFT 19 

* OF POWER UNITS LEFT 3,332 

I OF TORPEDOS LEFT. 9 

i OF MISSILES LEFT 3 

» OF CREMCN LEFT 38 

LBS. OFFUELLEFT 2,588 

HfiNT DAMAGE REPORT? V. 

— els 

ITEM DflHAGE (+ GOOD, 8 NEUTRAL, - BAD) 

ENGINES 4.1432 
50NAR-13. 6429 
TORPEDOS 6.7823 
HISSILES 4.7619 
MANEUVERING 4.4177 
STATUS 8.8888 
HEADQUARTERS 3.5847 
SABOTAGE 18. 3188 
CONVERTER 5.9514 

VOU ARE AT LOCATION ( 13 , 11 ). 

WHAT ARE VOUR ORDERS, CflPTAIN DERRIER? 4. 

— - els — 



— *** RESULTS OF LAST B£MV HANUEVER ***- 
NHAT ARE VOUR ORDERS, CAPTAIN DERRIER? 7. 

els ■ 

NO SHIPS IN RANGE, CflPTflIN DERRIER. 
WHAT ARE VOUR ORDERS, CAPTAIN DERRIER? 5. 



* OF ENEMY SHIPS LEFT. 19 

t OF POHER UNITS LEFT. 3,384 

* OF TORPEDOS LEFT. 9 

t OF MISSILES LEFT 3 

i OF CREHMEH LEFT. 38 

LBS. OFFUELLEFT. 1,588 

HANT DAMAGE REPORT? V. 



• els 



ITEM 



DAMAGE (+ GOOD, 8 NEUTRAL, - BAD) 



ENGINES 4.1432 
SONAR 18. 7869 
TORPEDOS -8. 8615 
MISSILES 6.2284 
MANEUVERING 4.4177 
STATUS 8.8886 
HEADQUARTERS 3.5847 
SABOTAGE 18. 3188 
CONVERTER 2 8924 

YOU ARE AT LOCATION ( 13 , 11 ). 



NNAT ARE VOUR ORDERS, CAPTAIN DERRIER? . 

— — Cl8 ■ 



ENGINES 4.1432 
SONAR 18. 7869 
TORPEDOS -8. 8615 
HISSILES 6.2284 
MANEUVERING 4.4177 
STATUS 8.8888 
HEADQUARTERS 3.5847 
SABOTAGE 18. 3188 
CONVERTER 2 8924 



«EH DEPTH? 2575 

HAWJEVER COKPLETE POWER LOSS= 3? 

DEPTH CHARGES OFF STARBOARD SIDE, CAPTAIN DERRIER! ! ! 

LIGHT, SUPERFICia DRNRGE, CflPTAIN DERRIER 

PRESS flNV KEV TO CONTINUE 

— els 



— *** RESULTS OF LAST BOW NANUEVER ***-- 
WHAT ARE YOUR ORDERS, CAPTAIN DERRIER? 8. 



- els 



OPTION? <1=FUEL TO POSCR, 2=PC4ER TO FIE.)? 1 
FIB. AVAILABLE= 2588. CONVERT? 1688 
CONVERSION COMPLETE. POHER= 3578. FUEL= 1588. 
DEPTH CHRRGES OFF PORT SIDE, CAPTAIN DERRIER!!! 
HERVY DRMAGE!! REPAIRS IMMEDIATE, CflPTAIN DERRIER!!! 



PRESS ANY KEV TO CONTINUE 
els 



VOU ARE AT LOCATIOH ( 13 , 11 ). 

HHAT ARE VOUR ORDERS, CflPTAIN DERRIER? 1 
OPTION I? 6. 





* 


. !H! . 


<s> 
-#- 

<s> 
<sxs> 


<S>- 
-!- 
t 


<S> 

-t- 
<S> 


. <s> 
<s> 


$ wtuuwi <S> <S> <S> 
umtw(S)«wi 

****** ****** $ 

<s>****** *** 

<S>«* t (X) 


* <S> 




PRESS RNV KEV TO CONTINUE 

els 
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WHAT ARE VOUR ORDERS, CRPTRIN DERRIER? 8 
COURSE (1-8)? 3 
POKR RVAILRBLE= 3254. POHER TO USE? 388 

NRVIGATION CWLETE FOB LEFT= 2954. 

HO SHIPS IN RRNGE TO DEPTH CHRRGE VOU, CRPTRIN DERRIER! ! 

PRESS RNV KEV TO CONTINUE 

Cl8 



— *** RESULTS OF LRST EHEKV WNUEVER ***- 

tfHRT PRE VOUR ORDERS, CAPTR1N DERRIER? 1 
OPTION 8? L. 



■ els ■ 



— *** RESULTS OF LRST ENEHV HRNUEVER «*- 

HKRT ARE VOUR ORDERS, CRPTRIN DERRIER? 1 

OPTION 1? i 

DIRECTION 8 OF SHIPS DISTANCES 



1 16 

1 6 

PRESS m KEV TO CONTINUE 
ola 



HHRT RRE VOUR ORDERS, CflPTMN DERRIER? 2_ 

els 



PRESSURE IMPLODES SIB UPON FIRING. . . VOU'RE CRUSHED! ! 
THERE RRE STILL 13 ENEHV SHIPS LEFT, CflPTRIN DERRIER 
VOU HILL BE DENOTED TO RANK OF DECK SCRU3BER!!! 
HRHT RNOTBER MC? N 
REfiDV 

y. 




1BCLS 

28 PRINT 8 411 "SER BATTLE' 

38 PRINT TR8(7)"COPVRIGHT 1373 CREATIVE COMPUTING HORRISTOHL NJ' 

48 PRINT § S68, "; iINPUTUHRT IS VOUR NPffi ";N$:ftt="CRP!RIN "+W 

58 IF H*="CRPTA1N CHRIS" THEN 6248 

68 DD*='8888":DIHR(15,28),D(S>:CLS 

78 PRINT -SETTING UP BOARD..." 

88 F0RI=iT015:F0RMT028:R<I,J>=8:fBCTJ,I 

38 IOT0RE:F01WK=iT025:RERDJK$:KEXTJK 

188 F0ffi=7T0i2:F0RY=5T0ie:R£RDflaV>:ICm,X 

118 Sl=18:S2=18:fl<Sl,S2>=2:S=IHT<RH>(i6>H? 

128 RESTORE:FORJK=iT09:REflDJK*:NEXnK 

128 F0RX=iT0<INT<RND(8)*4Hi>*2-i 

148READD8,D3 

158ICXTX 

168 FORMTOS 

178 Xl=INT(RKD<8)*15Hi 

188 X2=1NKRHXB)*28H1 

138 IFR(XLX2>OflTRENl?e 

283 RCXi,X2>=3 

218l€m 

229 PRIHT'YOU BUST DESTROV; S; "ENEHV SHIPS TO HIN, MB;". ' 

238 S3=1HT(RKX8>*15>+1 

248 S4=INT<RND(8)*2B>+1 

258 IFR!S3,S4)08THEH238 

268R<S3,S4)=4 

278 F0RX=iT0INT<RND(8>«8>+8 

288 Xi=INT<RMXB)*15Hl 

238 X2=INT<RMX8>*28H1 

388 IFR0tt.X2)O«THHI288 

218R(X1,X2)=5 

328l£m 

338 FORX4T04 

348 Xl=INKRtS<8)*14H2 

353 X2=INT(RW)(8)*18)t2 

368 IFfl<Xl,X2)OenCN34e 

378 RQSLX2>=6 
388 RESTORE 
338 F0RJMT09 

48BRERDJK» 

418KEXTJK 

428 FORV=iTOINT<RMK8>*8Hi 

438REftDW,H2 

44BNEXTV 

458NEXTX 

468 FORI=1T09 

478 DU>=8 

488NEXTI 

438C=38 

5B8P=6888 

518F=2588 

52BT=18 

538 H=3 

548 0=168 

558D2=2 

568 PRINT 

578 PRINT'kHRT RRE VOUR ORDERS, "iN$; 

588 IUWO 

585 IF 0=1 OR 0=8 THEN 683 

538 CLS 

683 OH INT<0*DG0T0 748, 1358, 1928, 2338, 3888, 3158, 3548, 3718, 4248, 4478 

618 CLS 

628 PRINT'TKE COBWBS RRE:" 



638 PRINT" 88 


NRV1GRTI0N' 


646 PRINT' »1 


SUM!" 


658 PRINT' 82 


TORPEDO CONTROL* 


668 PRINT" #3 


POLRRIS HISSILE CONTROL" 


676 PRINT" 84 


RfflEUVERING" 


688 PRINT" 85 


STRTUS/DAHAGE REPORT" 


638 PRINT' 86 


HERDQURRTERS" 


783 PRINT' 87 


SR80TRGE- 


718 PRINT' 88 


POKER CONVERSION" 


726 PRINT' 89 


SURRENDER' 


738G0T0568 


748 IFD(i»=«THIN778 


758 PRINT-ENGINES RRE UNDER REPAIR, "it»; " ' «= 


768G0T0568 


778 1FD8TKEN886 


788 PRINT'NOT ENOUGH CREH TO NAN THE ENGINES. ";N*;"- ' 


738G0T0568 


888 Di=i-«.23+RND<8>/18)*(-<D<=5e») 


818G0SUB5398 


828 PRINT'Paa RVRILRBLE='iPi CHRK8);", POWER TO USE'; 


838 INPUT PI 


848 IFPK80RPDPT 


HEN826 
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858 IFPi<=18e8THEN988 

868 IFRMX8K 43TKEN988 

878 PRINT'ATOHIC PILE GOES SUPERCRITICAL "; «$;'!!! KEftOOUHRTERS' 

888 PRINT'HILL HARN Ml SUBS TO STAY FROM RADIOACTIVE AREA' ' '• 

898 G0T06U8 

988X=S1 

918 Y=S2 

928 01=1 

938 F0RX2=lT01NT<INT<Fi/188+. 5>*D1+. 5) 

948 IFX+Xl>8ANDX+m6AHDY+Yi)8AI»Y*YK2iTHEN978 

958 PRINT'YOU CAN'T LEAVE THE AREA, ';«;■"■ 

968G0T01638 

978 0NA<X+X1, V+VD+1G0T0 988, 1828, 1388, 1888, 1138, 1168, 1188 

988 X=X+X1 

998Y=Y+Y1 

1888 P=P-168 

1818KT01288 

1828 PRINT'YOU (WET RAN AGROUND, MB;*!!" 

1838 fl(X,V)=2 
1848A<Si,S2>=8 

1858 S1=X 

1868 SM 

1878 00T04498 

1888 IFD>58TKEN988 

1893 PRIHPYOU RfHED SHIP!!! VOO'RE BOTH SUNK, •;}»■,""• 

11B8S=S-1 

1118 IFS=8THEN6188 

1128 G0T06U8 

1138 IFD>58THEN988 

1148 PR!NT'Y0U RAKKED VOUR HEADQUARTERS!! VOU'RE SUNK"" 

1158 60T06118 

1168 PRINT'YOU'VE BEEN BLOW UP BY R NINE, ";N$; ">" 

1178 G0T06U8 

1188 IFTWX8K.21THEK1388 

1198G0T06U8 

1288 F0RX3=X-2T0X+2 

1218 F0RY3=Y-2T0Y+2 

1228 IFX3attRX3>150RY3aORY3>28TKEN1288 

1238 IFA<X,Y)06THENi288 

1248 IFRUX8)C 25THEN1278 

1258 IFQ1=8TKEN1288 

1268 PRIHT'YOU JUST HRD A NARROH ESCAPE HITH A SEA HONSTER, ";ttt; '< 

1278 01=8 

1288HEXTY3 

1298 IEXTX3 

1388NEXTX2 

1318 PRINT'NAVIGATION COHPLETE POCR LEFT=';P;CKR*<8);' " 

1328 IFP)«THENie38 

1338 PRIKT-RTO«C PILE HAS GOE DEAD!!! SUB SINKS, CREH SUFFOCATES" 

1348 GOT06118 

1358 IFD(2)>=8THBtt388 

1368 PRINT'SONflR IS UNDER REPAIR, ';N*;' " 

1378G0T0568 

1388 IFD5TKEW416 

1398 PRINT'tiOT ENOUGH CREH TO HORK SONAR, •;>»;• • 

1488 GOT0568 

1418 PRINT"0PTION #"; 

1428 INPUT 

1438 0NIHT(tM)G0T01458,1668 

1448 G0T0i418 

1458 OS 

1468 FORX=1T015 

1478 F0RMT028 

1488 QHS=" ***<X)<S>!H! * -I-" 

1498 IFA<X,Y)08THEN1538 

1588 IFX01iWX015fHW01flH)Y02eTHENi538 

1518 PRINT" "; 

1528 G0T01578 

1538 At=MM<Qy*,A<X,Y>*3+i,3> 

1548 IFK58AM)RIS)(l)C23ftNDfi(X,Y>01ANDA(X,Y)02THEN1518 

1558 IFRND<8)C15ANDB<X,Y»2THEH15ie 

1568 PR1NTA*; 

1578NEXTY 

1588 PRINT 

1598NEXTX 

1689P=P-58 

1618 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

1628 IFIH<EY*="THENi62e 

1638 CLS 

1648 IFP)8THEN56e 

1658G0TC1338 

1668 F0RMT05 

1678 B(I)=8 

1688HEXTI 

1698 PRIHPDIRECTION I OF SHIPS DISTANCES" 

1788 PRINT" ■ 

1718 RESTORE 
1728 F0RJK=1T09 
1738READJKJ 
1748 NEXTJK 
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1758 F0RX=1T08 
1768 READ XLY1 
1778X3=8 
1788 F0RX4=1T028 

1798IFSl+Xl*X4aORSl+Xl«4>150RS2tYl*X4<10RS2m*X4>2eTREN184e 

1888 IF A(S1+X1*X4, S2+Y1*X4)03 THEN 1838 

1818 X3=X3+1 

1828 B(X3)=X4 

1838NEXTX4 

1848 IFX3=8TKEH1988 

1858 PRINT" ";X, X3, 

1868 F0RX4=1T0X3 

1878 PR!NTB<X4>; 

1888NEXTX4 

1898 PRINT 

1988KEXTX 

1918 G0TC1688 

1928 IFD(3»=8TKEN1958 

1938 PRINT"TORPEDO TUBES ARE UNDER REPAIR, •;»;•• 

1948G0T0568 

1958 IFCM8THEN1988 

1968 PRINT'NOT ENOUGH CREH TO FIRE TORPEDO, "Mi' " 

1978G0T0568 

1988 IFTTHEN2818 

1998 PRINT"NO TORPEDOS LEFT, ";N*i" " 

2888GOT05S8 

2818 IFD<2B88THEN2858 

2828 IFRND<8».5THEN285B 

2838 PRINT'PRESSURE ItfLODES SUB UPON FIRING. . . YOU'RE CRUSHED 1 ' " 

2848 00T06118 

2858 COSUB5998 

2868 X=S1 

2878 Y=S2 

2888 F0RX2=lT0INT<7t5*C-<D>5e»-RHD<8>*4+.5> 

2898 IR+Xl)8AM+Xia6AHWYDeANDY+YimTHEK2i58 

2188 PRINT'TORPEDO OUT OF SONAR RANGE ... INEFFECTUAL ";»;■ ■ 

2118 T=T-1 

2128P=P-158 

2138 IFP>BTKEN4498 

2148 G0TM338 

2158 0NA(X+Xl,Ym>+lG0T02i68, 2288, 2368, 2238, 2278, 2328, 2348 

2168 X=X+X1 

2178 Y=Vm 

2188 PRINT".. !.."; 

2198 GOTO 2368 

2288 PRINT'YOU TOOK OUT SOME ISLAM), ";N*;"" 

2218 A(X+X1,Y+Y1>=8 

2228G0T02118 

2238PRINT"0UCH!!! YOU GOT ONE, •;Uti""' 

2248S=S-1 

2258 IFSOBTKEN2218 

2268 G0T06188 

2278 PRINT'YOU BLEH UP YOUR HEADQUARTERS, MB;""" 

2288 S3=8 

2298 S4=8 

2388 D2=8 

2318 G0T02218 

2328 PRINT'BLAN! ! SHOT WSTHS ON R HIRE, MB;"" 

2338G0T0221B 

2348 PRINT'A SEA HONSTER HAD A TORPEDO FOR LUNCH, Mto ■"■ 

2358G0T02U8 

2368NEXTX2 

2378 PRINT'DUD. " 

2388 60T02118 

2398 IF D(4»=8 THEN 2428 

2488 PRINT'MSSILE SILOS ARE UNDER REPAIR, ";Nti" " 

2418 GOT056B 

2428 IFD23TKEN2458 

2438 PRINT"NOT ENOUGH CREH TO LAUNCH R HISSILE, MB," " 

2448GOT0568 

2458 IFH08THEN2488 

2468 PRIHT'NO MISSILES LEFT, ';«;'" 

2478 G0T056B 

2488 IFD>58ANDD<2888THEN255e 

2498 PRINT'RECOHHEND THAT YOU DO NOT FIRE AT THIS DEPTH . PROCEED"; 

2588 IKPUTAJ 

2518 IFLEFT$(M,1)="N"THEN568 

2528 IFRHD(8)C5THEN2558 

2538 PRINT'HISSILE EXPLODES UPON FIRING, ■;»;"!! YOU'RE DEAD"" 

2548GOT06U8 

2558 G0SUB5998 

2568 PRINT"FUEL (LBS. )"; 

2578 INPUT Fl 

2588 IFFD8HNDFK=FTHEN2618 

2598 PRINT'YOU HAVE"; F; "LBS. LEFT, ";(«;■" 

2688 G0T02568 

2618 F2=INT(FV75t. 5) 

2628 IFSl+XHF2>8RNDSl+Xl»F2a6AM)S2+Yl»F258flNDS2tYl*F2C21THEN 2688 

2638 PRINT'HISSILE OUT OF SONAR TRACKING, ";W;" HISSILE LOST " 

2648H=H-1 



2658 F=f-Fl 

2668P=P-388 
2578 GOTO 2138 

2688 03=8 

2698 04=8 

2788 D5=8 

2716 06=8 

2728 FBK=Sl+Xl*F2-lT0Si+Xl*F2+i 

2738 F0RY=S2+Yl*F2-lT0S2+Yi*F2+i 

2748 IFX<10RX>150RYaORY>28TBEN2898 

2758 D3=D3-<A<X,Y>=3> 

2768 D4=D4-(A<X,Y>=6> 

2778 D5=D5-<A(X,Y>=5) 

2788 D6=D6-(A<X,Y>=i> 

2798 IFR<X,Y)04TKEN2858 

2888 PRIMT'WW'VE DESTROYED VOUR HEADeUARTERS, MB;"!!! - 

2818 03=8 

2828 54=8 

2838 02=8 

2848G0T02888 

2858 IFA(X,Y>02THEH2888 

2868 PRINT'VOU JUST DESTROYED YOURSELF, "; Nfc"!!! DUKHY!'.- 

2878 G0T06118 

2888 ACX,Y>=8 

2898NEXTY 

2988 NEXTX 

2918 IFD6=8TI€N2938 

2928 PRIHT'YOU BLEU OUT SOKE ISLAND, ";Nfc". • 

2938 IFD5=0THEN2956 

2948 PRIHT'YOU DESTROYS)'; D5;'MHES, MB;' " 

2958 IFD4=8TI€H2978 

2968 PRINT'VOU G0T"iD4i °SEfl HOHSTHS, ";R*;"!!! GOODHORK!!" 

2978 PRIHT'YOU DESTROVED'i D3; "BEHV SHIPS, MB;"!!!" 

2988S=S-03 

2998G0TO2648 

3888 IFD<5»=8TK£H3838 

3818 PRIHT'BftLLAST CONTROLS ARE BEING REPAIRED, MB;' " 

3828G0T0568 

3838 IFD12THEN3868 

3848 PRINT-THERE flRE NOT ENOUGH CREH TO WORK TIE CONTROLS, MBi". " 

3858G0T0568 

3868 PRINT'NFJI DEPTH*; 

3878 IWUM 

3888 IFD0=aW)Di<3888THEN3118 

3898 PRINT-HULL CRUSHED BY PRESSURE M*"!!* 

3180 G0T06118 

3118 P=P-IHT(fiBS«D-Dl)/2t.5» 

3128 PRIHT'RANUEVER COtfLETE PO«ER L0SS='iIHT<ft8S((D-M)/2+.5)) 

3138 0=01 

3148 G0T04498 

3158 IFD<6»=8THEH3188 

3168 PRINT'IB REPORTS RRE ABLE TO GET THROUGH, MB; ". " 

3178 G0T0568 

3188 IF03TBEN32ie 

3198 PRINT*!* ONE LEFT TO GIVE THE REPORT, MS;'. ' 

3288G0T0568 

3218 PRINT 

3228 PRINT 

3238 PRINT") OF EKE* 1 SHIPS LEFT '; 

3248PR1NTUSIKS>M;S 

3258 PRINT! OF POSER UNITS LEFT "; 

3268PRIKTUSING"S«,«l , iP 

3278 PRINT"! OF TORPEDOS LEFT. '; 

3288 PRINTUSING DOliT 

3298 PRINT"* OF HISSILES LEFT "; 

3368 PRINTUSINGDOtiH 

3318 PRIHT"! OF CRFJKN LEFT "i 

3328 PRINTUSINGDOiiC 

3338 PRINT-LBS. OF FUEL LEFT "; 

3348 PRINTUSING"tt»,8t#"iF 

3358 PRINT 

3368 PR!NT"HANT DAHAGE REPORT'; 

3378 INPUT AS 

3388 IFLEFT$<A$,i>="N-THEH3518 

3398 CLS 

3483 PRINT" ITEM DAHflGE (+ GOOD, 8 NEUTRAL - BAD) - 

3418 PRINT" " 

3428 DATA-ENGINES', "SONPS', "TORPEDOS", "HISSILES", 'HANEUVERING' 

3438 DATA'STATUS", 'HEADQUARTERS', "SABOTAGE', "CONVERTER" 

3448 RESTORE 

3458 F0RX=1T09 

3468R£RDRi 

3478 PRIHTR4; 

3488 PRINTUSING'M. Mtt';D(X) 

3498 NEXTX 

3568 PRINT 

3518 PRIHT'YOU RRE AT LOCATION C; SI; ', "> S2i "). " 

3520 PRINT 

3538G0T0568 

3548 IFD(7)>=8THEH3578 
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3558 PRIHT'HEftDQURRTERS IS DAHAGED. UNABLE TO HELP, MB; ". ' 

3568G0T0568 

3578 IF02O8TREK3688 

3588 PRINT-HEADQUARTERS IS DESERTED, MB;" " 

3598G0T0568 

3688 IFSQR«Sl-S3H2+<S2-S4H2X=2flM>IX51THEN3638 

3618 PRINT"UNABLE TO COfLY WITH DOCKING ORDERS, MB." * 

3628G0T0568 

2639 PRINT'DIVERS FRON HEADQUARTERS BRING OUT SUPPLIES AND BEN " 

3648P=4888 

3658 T=8 

3668 H=2 

3678F=1588 

3688 C=25 

3698 02=02-1 

3788G0T04498 

3718 IF0(8»=8THFJG748 

3728 PRINT-HATCHES INACCESSIBLE, MB; « RO SABOTAGES POSSIBLE " 

3738G0T0568 

3748 IFD18TBEK3778 

3758 PRINT-NOT ENOUGH CREH TO GO ON A HI5SI0N, ";N$; *. " 

3766 G0T0568 

3778 03=8 

3788 04=8 

3798 F0RX=Sl-2T0Sl+2 

3888 F0RV=S2-2T0S2+2 

3818 IFXa0RX>150RY<10RY>28THEN3848 

3828 D3=D3-(A<X,Y>=3) 

3838 04=D4-(A(X,Y>=6) 

3848KEXTY 

3858IEXTX 

3868 IF03O8TKEN3898 

3878 PRIHTNO SHIPS IN RANGE, ";N$i ". " 

3888GOT0558 

3898 PRINT'THERE ARE"; D3; "SHIPS IN RANGE, Mtti" " 

3988 PRINT-HOH HBNY KEN ARE GOING, MB; 

3918 INPUT 01 

3928 IFC-Q1>=16TH£N3958 

3938 PRIHT-YOU HUST LEAVE AT LEW 18 KEN ON BOARD, MB; ". " 

3948GOT03988 

3958D5=lNT(D3/Ql+.5> 

3968 D6=8 

3978 FOR X=Sl-2 TO S142 

3988 FOR Y=S2-2 TO S2+2 

3998 IFD3/0I>1-RHX8>AM> RKD(8)+03/QK. 9TKEN485B 

4888 IFR(X,Y)03TBEN4858 

4818 06=06+1 

4028A<X,Y>=8 

4838S=S-1 

4848 IF S=8 THEN GOTO 6188 

4856KEXTY 

4868 NEXTX 

4878 PR1NTD6; -SHIPS WERE DESTROYED, MB;" " 

4888 06=8 

4898 07=8 

4168 FORX=iTOffl. 

4ilBD7=D7-(RMX8».6> 

4128 NEXTX 

4136 FORMT0Q1-O7 

4146D6=D6-(RN0(8)C15) 

4158 NEXTX 

4168 IFD4=8THEH4288 

4178 PRIHT'A SEA ROISTER SfELLS THE BEN ON THE HRY BOCK!!!" 

4188 PRINT 07; "(EN HERE EATEN, "; NS; " ! '." 

4198 C=C-07 

4268 PRINT 06;'KEH HERE LOST THROUGH ACCIDENTS, MB;" ' 

4218 C=C-D6 

4228 P=P-IHT<18*ai+RH0<8>*18) 

4238 G0T04498 

4248 IFDC9»=flTHEN4278 

4258 PRINT'POER CONVERTER IS DAHAGED, MB; '. " 

4268G0T0568 

4278 IFD5THEN4368 

4288 PRINT-HOT ENOUGH HEN TO HORK THE CONVERTER, MB;" " 

4298G0T0568 

4380 PRIHT'OPTIOH? <i=FUEL TO POKER, 2=PO€R TO FUEL)'; 

4318 INPUT 

4328 0N0G0T04348, 4488 

4338 G0T04388 

4348 PRINT'FUEL AVAILft8LE=";F; CKR$(8);" CONVERT"; 

4358 INPUT CI 

4366 IF (CDF>0R(C1<8)THEN4348 

4378 F=F-C1 

4388 P=P+INT(Cl/3) 

4398G0TO4458 

4468 PRIHTTOER AVAILABLE'"; P-Jj CHRK8);" CONVERT-; 

4418 INPUT CI 

4428 IFCDP-10RCKBTHEN4488 

4438P=P-Ci 

4448 F=F+INT(C1*3> 



4458 PRINT"C0NVB5I0N COKPLETE. POER="iPi CHRK8);-. FUEL=";F; CKRt<8);". 

4468 GOTO 4498 

4478 PRIHT"COHftRD! ! YOU'RE NOT VERY PATRIOTIC, ";N*;"!!!" 

4488 00T06118 

4498 0=8 

4588 F0RX=Sl-4T0Sl+4 

4518 F0RY=S2-4T0S2+4 

4528 iraaOR)M50RY<10RY>28Tl£N4558 

4538 IFB(X,Y)03THEN4558 

4548 Q=Qt<RHKBVS««a-X>[2*<S2-Y)[2» 

4558NEXTY 

456BNEXTX 

4578 IFQTKEK466B 

4588 PRIHT"NO SHIPS IN RflNGE TO DEPTH CHARGE YOU, Mtti"!!" 

4598G0T05B48 

4688 PRINT-DEPTH CHARGES OFF •; 

461BIFRW)<6)>.5THEN464B 

4628 PRINT-PORT SIDE, ■;«;•!!!■ 

4638G0T04656 

4648 PRINT-STARBOARD SIDE, MB;"!!'.- 

4658 1F8>.130RRND(8>>.92THEN4688 

4668 PRINT-NO REAL DAMAGE SUSTAINED, MBi". • 

4678G0T05848 

4688 IFQ>.360RRND(8».96THEN4738 

4698 PRINT-LIGHT, SUPERFICIAL DAMAGE, ■;«;-.- 

478BP=P-58 

4718 LETDaNT<RHXe>*9>+l>=-RND(8)*2 

4728G0T05848 

4738 IF(D.60RRHX8».975THEH4818 

4748 PRINT-MODERATE DflHHGE. REPAIRS NEEDED. ■ 

4758 P=P-75+INT(RND(8)*38) 

4768 FCRY=1T02 

4778 X=INKRHX8>*9>tl 

4788 D<X>=D<X>-RND<8>*8 

479BNEXTY 

4888G0T05848 

4818 IFa>.90RRHX6».983THEN4898 

4828 PRINT-HEBVY DAMME!! REPAIRS IMMEDIATE, -JIB;-!!! 1 

4838 P=P-(2B8+INT(RH)(e)*76» 

4848 F0RX=lTO4+INT<RND<e>*2> 

4858 Y=INT<RND<6)*9>+1 

4868 D<Y>=D<Y)-RHD(8>*11 

4878 NEXTX 

4888G0T05848 

4898 PRINT-DAHAGE CRITICAL!!!! HE NEED HELP!!!' 

4986 At=-VRBWKXCNVHSHFW1SAXQUT19T^^ 

4918 X=INT<RND<8)*16)+1 

4928 PRINT-SEH) 'HELP' IN CODE. HERE IS THE CODE:-;MID«At, X, 4); 

4938 REM 

4948 F0RI=1T01588 

4958NEXTI 

4968 PRINTSTRIN6*<4,8>jSTRING$<4,143> 

4978 INPUT-ENTER CODE-;B* 

4988 PRINT 

4938 IF BtOHIDKAt, X, 4)THEN 5828 

5888 PRINT-FAST DORK, MB; 1 !! HELP ARRIVES IN TINE TO SAVE YOU!!!' 

5818 GOTO 4838 

5828 PRINT-MESSAGE GARBLED, ";Ht;-.. .NO HELP ARRIVES!!!" 

5838 GOTO 6118 

584B IF D<1»=8 OR D<3»=8 OR D<4»=8 OR D<5»=8 OR D<7»=8 THEN 5888 

5858 IFD<8»=80RD<9»=8THEN5888 

5868 PRINT-DAMAGE TOO MUCH, MB;"!!! YOU'RE SUNK 11 " 

5878 G0T06118 

5888 PRINTS979, "PRESS ANY KEY TO CONTINUE'; 

5898 IFINKEY$="TH£N5898 

5188 CLS 

5118 PRINT'—*** RESITS OF LAST ENEHY HBNUEVER ***— ■ 

5128 F0RMT015 

5138 FORMT028 

5148 IFA<X,Y>03THEN5588 

5158 H=D8 

5168 Y=D9 

5178 IFX+*MANDXm6AHDY+V>8ANDY+V<21TI€H5268 

5188 F0RX8=19T0iSTEP-l 

5198 IFA<X-K*X8*i4/19,Y-V*X8>08THEN5248 

5288 LETA<X-H*X8*14/19,Y-V*X8>=3 

5218 REM n n m n H t******* 

5228 A<X,Y>=8 

5238GOT05928 

5248HEXTX8 

5258 SOTO 578 

5266 ONAttrtL Y+VH1GOT05278, 5388, 5398, 5388, 5428, 5498, 5548 

5278 A(X+H,Y+Y>=3 

5288A(X,Y>=8 

5298G0T05928 

5388 RESTORE 

5318 F0RJMT03 

5328READJ13 

5338IEXTJK 

5348 F0RX8=1T0INT<RHX8>*8)+1 
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5358R£BDH,V 

5368NEXTX8 

537B IFX*H<10RX+IO150RY+Va0RYtY>28THEN538e 

5388G0T05268 

5396 IFD>58TBEH5388 

5488 PRINT'*** YOU'VE BEEN RAWED BY A SHIP, -,!B; "!!!" 

5418 G0T06118 

5428 IFRND(8)C 15THEN5388 

5438 PRINT"*** YOUR HEADQUARTERS HAS RAWED, ■;«;">"" 

544BS3=8 

5458 S4=8 

5468 02=8 

5478 B(X+H,Y+V>=8 

5488GOT05518 

5498 IFRHD(8)C7THEH5388 

5588 PRINT-*** SHIP DESTROYED BY A HIKE, ";N*;"!!!- 

5518S=S-1 

5528 IFSOBTHEN5288 

553BG0T06188 

5548 IFRHX8X.8THEH5388 

5558 PRINT"*** SHIP EATEN BY A SEA MONSTER, "iNt;"!!" 

5568 S=S-1 

5578G0T0552B 

5588 IFB(X,Y)06TKEN5928 

5598 ire+ma0f«*Ml>150RY*M2a0RY4»l2>28T!£H5648 

5688 0NB<X*«l,Y+K2>*lfiOT05616, 5648, 5738, 5758, 5888, 5618, 5858 

561B B<X*M1,Y«C)=6 

5628 B(X,Y)=8 

563BG0T0592B 

5548 RESTORE 
5658 F0RJK=1T09 

5668READJKt 

5678HEXTJK 

5688 F0RX8=iT0IHT<RH><B>*8M 

5698 READ ML M2 

5788NEXTX8 

5718 IFX*Mia0RX+HDi50RY+M2<10RY*«2>28TKEN564B 

5728G0T05688 

5738 PRIHT-*** YOU'VE BEEN EATEN BY A SEA MONSTER, MB;'!!' 

5748 G0T06118 

5758 IFRND<8». 2THEN5648 

5768 PRINT"*** SHIP EATEN BY A SEA MONSTER, MB;"!!' 

577BS=S-i 

5788 IFSOBTHEN5618 

5798 G0T06188 

5888 PRIHT-*** A SEA MONSTER ATE YOUR HEADQUARTERS, "; «*;"»■ 

5818 S3=8 

5828 54=8 

5838 D2=8 

5848 G0T05618 

5858 IFRHX8K75THEN5648 

5868 PRINT"*** A SEA MONSTER FIGHT, ";Nt;"!!! "; 

5878 IFRND(8)C 8TKEN5988 

5888 PRINT'fW) ONE DIES!!" 

5898 G0T05618 

5988 PRINT-IT'S A TIE!!' 

5916 G0TO564B 

5928KEXTY 

5938KEXTX 

5946 FORMT09 

5958 X=INT<RHK8)*9)+1 

5966D(X)=D(X)+<RHD(l)*(2*r«»(l)*2»*(l+(-(D<51)0R-(D>2888)»*<-(D(X>a)) 

5978KEXTY 

5988G0T0568 

5998DBTA-1, 8,-1, 1, 8, 1, 1, 1, 1, 8, 1,-i, 8,-1-L-l 

6838 PRINT- COURSE (i-8) 1 ; 

6818 INPUT CI 

6826 IFCK10RCD8TKEN6B86 

6838 RESTORE 

6848 F0RJK=1T09 

6858READJK* 

6868NEXTJK 

6B78FORX9=lT0INT(Cl+.5> 

6888R£ADX1,Y1 

6B98HEXTX9 

6188 RETURN 

6118 PRINT-THERE ARE STILL-; Si "ENEMY SHIPS LEFT, MB;". ■ 

6128 PRINT-YOU HILL BE DEMOTED TO RANK OF DECK SCRUBBER!!!- 

6138 PRINT-HAHT ANOTHER GAME"; 

6148 INPUT At 

6158 IFLEFT*(At,l)0-V-THFJKi78 

6168 OS: GOTO 78 

6178 END 

6188 PRINT-GOOD IORK, ";N»;"!!! YOU GOT THEM ALL!!!" 

6198 PRINT-PROMOTION A® COHKEKDATIONS HILL BE GIVEN MEDIATELY" 1 " 

6288G0T06138 

6216 DATA B, L 1, 1, 8, 6, 8, L 1, L 1, 8, 1, 1, 1, 8, i, L L 1, 8, 8, B, 1 

6228 DATA i, L 8, 8, L 1, 8, 1, i, 8, 1, 8, 8, B, i, 8, 8, 8 

6238 END 

6248 CLS:PRINTM11, "YOU LOSE- 
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SEAHAR 
COPVRIGHT 1979 CREATIVE COMPUTING HORRISTOW, NJ 



You are the commander of a fleet of 
ships operating in enemy territory. 
Your task force consists of 9 ships, and 
the enemy has 9 ships. Whoever sinks 
all of the opponent's ships first wins the 
campaign. 

You, as the commander, must 
provide the angle of elevation at which 
the guns will be fired, neglecting air 
resistance. Your instruments will read 
the range to the target, and the initial 
velocity is held constant at about 675 
meters per second. 

SEAWAR will help you learn about 
the paths of projectiles and what 
happens as the angle of elevation 
varies. 

1. First, what do you think the path of 
the projectile looks like. Make a 
sketch. (If you're still not sure, do 
some research in the library— it will 
help you win the battle, com- 
mander!) 

a. What angle of elevation do you 
think will give the maximum 
range? 

b. What will happen if you fire the 
guns at 0°? 

c. What will happen to the projectile 
if you fire it straight up? 

2. Afterbecomingproficientatwinning 
the battle, change the initial velocity 
of the projectile. How does this 
affect the range? 

The original SEAWAR had a timing 
function trrat allowed only about 7 
seconds to make your next move. If 
your computer has a timer, this would 
be a neat addition. 

The origin of SEAWAR is unknown. It 
was revised and submitted to us by 
David S. Paxton. It was further revised 
and the writeup prepared by Mary T. 
Dobbs, Mathematics and Science 
Center, Glen Allen, Virginia. It first 
appeared in Creative Computing, 
May/Jun 1975. 



DO VOU HEED INSTRUCTIONS? VES. 



■ cis ■ 



SEAHAR 

VOU TELL VOUR GUN CREHS THE ELECTION TO SET THEIR GUNS. 
ELEVATION IS IN DEGREES FROM 8 TO 369. 

VOUR TASK FORCE CONSISTS OF 3 DESTROVERS, 2 CRUISERS, 
2 BATTLESHIPS, AND 2 HEAW AIRCRAFT CARRIERS. 
THE ENEMV HAS 9 SHIPS FOR HIS DEFENSE. 

IF VOU SUCCEED IN SINKING ALL HIS SHIPS BEFORE HE SINKS 
VOURS, VOU HAVE HON. HOffiVER, IF HE SINKS ALL VOUR SHIPS 
BEFORE VOU HAVE DEFEATED HIK, VOU HAVE LOST!! 



PRESS ANV KEV TO CONTINUE 



■ els • 



LET US BEGIN!! 



VOUR FLAGSHIP HAS DETECTED A U-BOAT APPROACHING AT 5 FATHOMS. 

VOUR aiBNARIHE DETECTION EQUIPMENT READS THE RANGE TO THE TARGET 

AS 17229 METERS. 

THE U-BOAT HAS COMfENCED FIRING TORPEDOES AT VOUR SHIPS. 

HIS FIRST TORPEDO EXPLODED 139 METERS BEHIND VOUR SHIP. 

HHAT ELEVATION « ' 38. 
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FIRE!!! 

DEPTH CHARGE EXPLODED 27898 METERS AFT OF TARGET 
THE EM TORPEDO EXPLODED 56 METERS IN 
FRONT OF VOUR SHIP. 
HHAT aEVATION ** ■> 27. 4. 



• els 



FIRE!!! 

DEPTH CHARGE EXPLODED 27653 METERS AFT Of TARGET. 
THE ENEMY U-60AT SUNK ONE OF VOUR DESTROYERS! ! 
WHAT ELEVATION** '29. 7. 



els ■ 



FIRE! ! ! 

DEPTH CHARGE EXPLODED 22882 METERS AFT OF TARGET. 
THE ENEMY U-BOAT SANK YOUR HEAVY CRUISER! ! 
HHAT aEVATION ** ■> 3L 



■ els • 



—-FIRE!!! 

DEPTH CHARGE EXPLODED 23826 METERS AFT OF TARGET. 

THE ENEMY TORPEDO EXPLODED 252 METERS IN 

FRONT OF YOUR SHIP. 

WHAT aEVATION ** "> 54, 



■ els 



FIRE!!! 

DEPTH CHARGE EXPLODED 2788? METERS AFT OF TARGET. 
THE ENEMY TORPEDO EXPLODED 185 METERS IN 
FRONT Of YOUR SHIP. 

BAD SHOT, THE TARGET HAS MOVED OUT OF 
RANGE!!! LET'S TRY IT AGAIN!!! 

YOUR FLAGSHIP HAS DETECTED A U-BOAT APPROACHING AT 5 FATHOMS. 

YOUR SUBMARINE DETECTION EQUIPMENT READS THE RANGE TO THE TARGET 

AS 38661 METERS. 

THE U-BOAT HAS COMMENCED FIRING TORPEDOES AT YOUR SHIPS. 

HIS FIRST TORPEDO EXPLODED 68 METERS BEHIND YOUR SHIP. 

HHAT aEVATION ** ■> . 

— els 



18 CL5; PRINT8412, 'SEA MAR" 

20 PRINT: PRINT THB(7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTttW, NJ" 

28 PRINT8966, ""; • INPUT "DO YOU NEED INSTRUCTIONS"; It 

48 IF LEFT*<I*,i)="V" THEN 58 ELSE GOTO 188 

58 CLS: PRINT TAB(29); "SERHAR" : PRINT 

68 PRINT "YOU TEU YOUR GUN CREWS THE aEVATION TO SET THEIR GUNS " 

78 PRINT "ELEVATION IS IN DEGREES FROM 8 TO 268 " 

88 PRINT 

98 PRINT "YOUR TASK FORCE CONSISTS Of 2 DESTROYERS, 2 CRUISERS, " 

188 PRINT "2 BATTLESHIPS, AND 2 HEAVY AIRCRAFT CARRIERS. " 

118 PRINT "THE ENEMY HAS 9 SHIPS FOR HIS DEFENSE ■ 

128 PRINT 

128 PRINT "IF YOU SUCCEED IN SINKING ALL HIS SHIPS BEFORE HE SINKS" 

148 PRINT "YOURS, YOU HAVE HON. HOWEVER, IF HE SINKS ALL YOUR SHIPS" 

158 PRINT 'BEFORE YOU HAVE DEFEATED HIM, YOU HAVE LOST 1 " 

168 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

178 IF INKEYt=" THEN 178 

188 CLS: PRINT "LET US BEGIN!!!" 

198 PRINT "" 

288 READ 2$ 



218 A=A+i 
228 GOTO 388 
228 RESTORE 

246 IF 0=9 OR A=9 THEN 768 

258 FOR X=l TO A 

268 READ Zt 

278 NEXT X 

288 READ Zt 

298 A=A+1 

388 IF Z*="AIRCRAFT CARRIER" THEN 358 

218 IF Z$="U-BOAT" THEN 1758 

328 IF Zt="T0RPEDO BOAT" THEN 348 

338 P=i 

348 GOTO 368 

258 RESTORE 

368 PRINT: PRINT "VOUR FLAGSHIP REPORTS THE SIGHTING OF AN ENEMY ■;» 

378 T=43888-38888*RND(8)+(RND(8)*18)*. 987654+182 

388 IF K10688 THEN 378 

298 S=0: P2=8 

488 T=INT<T) 

418 IF Z$="U-BQAT" THEN 1798 

428 PRINT "YOUR INSTRUMENTS READ THE RANGE TO THE TARGET AS";T; "METERS. " 

428 IF P=i THEN 1298 

448 IF SM THEN 468 

458 GOTO 588 

468 PRINT "BAD SHOT, THE TARGET HAS MOVED OUT OF" 

476 PRINT "RANGE!!! LET'S TRY IT AGAIN!!!" 

488 S1=S1+S 

498 GOTO 288 

588 PRINT "WHAT ELEVATION ** "; 

518 INPUT B: CLS 

528 PRINT 

538 PRINT " 

548 PRINT " FIRE!!!" 

558S=S+i 

568 IF B>268 THEN 1248 

578 IF B<8 THEN 698 

588 IF 8=8 THEN 718 

598 IF B=98 THEN 878 

688 IF B>238 THEN 718 

616 IF B>186 THEN 1188 

628 IF B>158 THEN 1118 

628 IF B>98 THEN 988 

648 Vl=675. 285 

658 E=INT(T-(Vl[2/9.88665*SIN<2*B/5?.2»> 

668 IF ABS<EX=ie8 THEN 928 

678 IF D168 THEN 1658 

688 IF E<=188 THEN 1888 

698 PRINT "GUN BACKFIRED, KILLING CREW!" 

788 GOTO 748 

718 PRINT "WHAT ARE YOU TRYING TO DO? KIU SOME FISH? THE SHELL" 
728 PRINT "EXPLODED UNDER HATER FIFTY METERS FROM YOUR SHIP!!!" 

736 GOTO 1388 

?48 PRINT " ADMIRAL PLEASE !!!!" 

758 GOTO 1388 

760 FOR R=i TO 1888: NEXT: CLS: PRINT TRB(12); "******** PEACE ****»**" 

778 PRINT: PRINT: PRINT 

788 PRINT "YOU FIRED"; SI; "ROUNDS. THE ENEMY FIRED"; S2; "ROUNDS. " 

796 IF 0=9 THEN 810 

888 IF A=9 THEN 848 

818 PRINT "ALL OF YOUR SHIPS HAVE BEEN SUNK. SO SORRY * 

828 PRINT "THE BATTLE IS OVER. THE ENEMY WINS!" 

838 GOTO 1968 

848 PRINT "YOU HAVE DECIMATED THE ENEMY THAT'S NICE" 

856 PRINT "THE BATTLE IS OVER YOUHIN!!!!!" 

868 GOTO 1966 

876 PRINT "YOU IDIOT! ! YOU SHOT STRAIGHT UP, AND THE SHER" 

888 PRINT "LANDED ON YOUR OWN GUN POSITION, DESTROYING IT!"" 

896 GOTO 1388 

988 PRINT "HEY STUPID, YOU'RE FIRING ON YOUR OWN SHIPS! ! !" 

918 GOTO 1388 

928 IF Zt="U-BOAT" THEN 948 

928 GOTO 968 

946 PRINT "DEPTH CHARGE EXPLODED RIGHT ON TOP OF THAT BABY! ! !■ 

958 GOTO 978 

968 PRINT " ** BOOM **" 

978 PRINT " 

988 M*="TARGET DESTROYED!!! **" 

9S8 NJ=" ** ROUNDS EXPENDED. " 

1088 PRINT Mt;S;Nt 

1816 PRINT "YOU HAVE LOST"; 0; "SHIPS, AND THE ENEMY HAS LOST"; to CHR*C8>; " " 

1826 S1=S1+S 

1628 PI=8 

1646 GOTO 236 

1658 IF 2t=«U-B0AT" THEN 1890 

1668 PRINT "SHOT FEa";RBSCE); "METERS SHORT OF TARGET. " 

1870 GOTO 1288 

1886 IF Z*="U-B0AT" THEN 1916 

1896 PRINT "SHELL OVERSHOT TARGET BY";ABS(E); "METERS. " 

1108 GOTO 1288 
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,1118 REM 

1126 PRIHT ■ VOU SHOT fl PROJECTILE INTO THE AIR, ' 
1138 PRINT' IT FEU TO THE HATER, VOU KNOH NOT WHERE..." 
1148 PRINT "BUT I DO, VOJ IDIOT, VOU JUST SRNK VOUR OHN FLEET TRNKER! !" 
1158 51=51+1 
1168 IF P=l THEN 1388 
1178 GOTO 448 

1188 PRINT 'WIT ARE VOU TRVING TO DO?? DRILL fl NEH HATCH?? THE SHELL" 
11S6 PRINT "EXPLODED IN VOUR SHIP, DESTROVING IT!!!" 
1288 0=0+1 
1218 IF 0=9 THEN 768 
1228 IF P=l THEN 1388 
1238 GOTO 748 

1248 PRINT "TOE DID VOU LEBRN TO TVPE? ";B; "DEGREES EXCEEDS 368 BV" 
1258 PRINT B-36B; "DEGREES. " 
1268 S1=S1+1 
1278 IF P=i THEN 1388 
1288 GOTO 448 

1298 PRINT "THE ENEMY ";ZS; " IS FIRING ON VOUR SHIPS!" 
1388 P4=1234*RND(RND(8))+CRND(B)*18) 
1318 IF P4)588 THEN 1388 
1328 IF P2=l THEN 1398 
1338 IF lNT(P4><i88 THEN 1568 
1348 IF 2$="U-B0AT" THEN 1868 

1358 PRINT "HIS FIRST ROUND FELL"; INT(P4>; "METERS SHORT. • 
1368S2=S2+1 
1378 GOTO 448 
1388 IF P2=l THEN 1388 
1398 Fl=1258*RND(RND(e))+(RND(8)*18) 
1488 IF FDP4 THEN 1398 
1418 IF PKCP4-48B) THEN 1398 
1428 IF RK188 THEN 1488 
1438P4=F1 
1448 52=52+1 

1458 IF Z$="U-BOAT" THEN 1938 

1468 PRINT "THE ENEHY ROUND FELL"; INT(Pl); "METERS SHORT. * 
1478 GOTO 448 
1488 52=52+1 
1498 P2=l 
1588 GOSUB 1618 

1518 PRINT "THE ENEHV ";3;" SUNK ";M 
1528 0=0+1 
1538 IF 0=9 THEN 768 



1548 IF D*="VOUR LRST BfiTTLESHIP! !" THEN 768 

1558 GOTO 446 

1568 R2=l 

1578 GOSUB 1618 

1588 PRINT "IN FACT, HE JUST SANK ";D$ 

1598 0=0+1 

1688 GOTO 1538 

1618 RESTORE 

1628 FOR C=l TO (9+0) 

1638 READ D* 

1648 NEXT C 

1650 READ W 

1668 DATA "U-BOAT", "218 ftl SHORE GUN", "78,888 TON CRUI5ER" 

1678 DATA "BATTLESHIP", "TORPEDO BOAT", "HEAW FRIGATE" 

1688 DATA "E-TVPE DE5TR0VER", "GUIDED-HISSLE SHIP", "AIRCRAFT CARRIER" 

1698 DATA "ONE OF VOUR DESTROYERS!!", "VOUR HEAW CRUISER!!" 

1788 DATA "ANOTHER OF VOUR DESTROYERS!!", "ONE OF VOUR BATTLESHIPS!!" 

1718 DATA "VOUR LAST DESTROYER!!", "VOUR AIRCRAFT CARRIER!!" 

1728 DATA "VOUR LIGHT CRUISER! ! ', "VOUR LAST AIRCRAFT CARRIER!!" 

1738 DATA "VOUR LAST BATTLESHIP!!" 

1748 RETURN 

1758 PRIHT: PRINT "YOUR FLAGSHIP HAS DETECTED A U-BOAT APPROACHING AT 5 ' 

1768 PRINT "FATHOMS. " 

1778 P=i 

1788 GOTO 378 

1798 PRINT "VOUR SUBMARINE DETECTION EQUIPMENT READS THE RANGE TO THE"; 

1888 PRINT " TARGET"; 

1818 T=INT(T-1588) 

1828 IF KB THEN 378 

1838 PRINT "AS"; T; "METERS." 

1848 PRINT "THE U-BOAT HAS COMMENCED FIRING TORPEDOES AT VOUR SHIPS. " 

1858 GOTO 1389 

I860 PRINT "HIS FIRST TORPEDO EXPLODED"; (IHT(P4)-58); "METERS BEHIND"; 

1878 PRINT " VOUR SHIP. " 

1888 GOTO 1360 

1898 PRINT "DEPTH CHARGE EXPLODED"; ABS(E); "METERS SHORT OF TARGET. " 

1988 GOTO 1388 

1910 PRINT "DEPTH CHARGE EXPLODED"; AB5<E); "METERS AFT OF TARGET. " 

1928 GOTO 1388 

1938 PRINT "THE ENEHV TORPEDO EXPLODED"; <INKFi>-58>; "METERS IN" 

1948 PRINT "FRONT OF YOUR SHIP. " 

1958 GOTO 440 

1968 END 
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Shoot 



The scene is some time in the near 
future. You and another individual on 
the other side of the planet are the only 
survivors of a total atomic war. (Yes, I 
know it's corny.) This war was fought 
totally with ground based atomic 
missiles. Both you and the surviving 
enemy have found the last missile 
bases left from each side. Fortunately 
(for me anyway), these missile grids 
are made and operated identically. 

Each player moves on and is 
restricted to a 10 by 10 missile matrix. 
Every co-ordinate on the grid cor- 
responds to a mini-missile base. At 
every base, there is a terminal tied into 
the main scanner computer, located 
safely many miles away. From each 
terminal, the player obtains informa- 
tion relevant to the current situation. 
Because of the way the missiles are 
constructed, the area left after lift-off 
is exposed to high doses of raw 
radiation and may not be occupied by 
life. The same is true of an area that has 
been struck by a missile, it is extremely 
lethal and would kill anything entering 
the vicinity. 

Due to the fact that everyone else is 
dead, all machinery must be operated 
manually. This means that the players 
must set the target co-ordinates and 
latch the fuse for the missile to be shot 
off. After that, the players must flee the 
area. This is done in asmallshuttlecar, 
equipped with sensor devices to avoid 
dangerous areas. But due to its limited 
power reserves, it can go only two units 
in any direction, up, down, ordiagonal- 
ly, and no more or less. The danger 
involved is that while in flight, the 
player is away from a scanner com- 
puter terminal and will not know where 
the enemy missile is aimed to land. 

In the time it takes to move to the new 
base, the missiles will be at the apex of 
their flight above the earth. There the 
computer will give out tracking infor- 
mation as to whether you hit the 
enemy, or he hit you, or both. If the 
missile is coming down to, hit the 
player, there is no escape. The time 
required to recharge the shuttle car is 



longer than the time it takes for the 
missile to hit the ground. If either 
player is unfortunate enough to get 
trapped into a corner, the seeping 
radiation will eventually kill him. 

So it is plainly a game of kill or be 
killed. However, don't be misled into 
thinking that it issimplyagameof luck, 
several different strategies may be 
applied to destroy the enemy. 

Line by line explanation. 

Lines 440-490. I assemble three 
commonly used print strings. S$ 
becomes a string of fourteen spaces. 

Lines 500-530. Here is the dimen- 
sioning of the four matrices, and the 
start-up and circle check data. The 
matrices "I" and "H" stand for player 
and enemy playing fields (I and HE), 
the "T" matrix is a temporary list for use 
by the enemy, and is part of the "smart" 
algorithm. It is loaded up during each 
pass with the possible places he could 
move to, or looking at the possible 
places where the player could move. 
The "P" matrix is filled with the eight 
possible co-ordinates that one may 
move to. I might say here that the 
program may be modified for a longer 
and more challenging game by chang- 
ing the data in line 530. Change all the 
twos to ones and the two players may 
move only one unit away from their 
previous position, instead of the two 
used now. 

Lines 540-730. I set up a random 
number to decide which pair of corner 
co-ordinates the enemy will be started 
in. I then proceed to set the pair from 
550 to 570. I then digress to zero my 
matrices. Picking up where I left off, 
lines 640 to 680 peel away any unused, 
but unwanted data, keying on the 
unique first number of the last pair. 
From there the remaining data is 
dumped into "P." 

Lines 740-820. Make the report that 
the enemy has been "fooling around." 
The starting co-ordinates for the player 
are then obtained and checked. From 
there the valid loop switch is set, a map 
is printed, and the program is thrust 
headlong into the main routine. 

159 



Lines 830-920. Here the co-ordinates 
for the missile and the new spot to sit 
on are obtained and verified of their 
validity. 

Lines 930-1080. "Enemy" decides 
where player might be going from last 
position, and aims his missile in that 
direction. 

Lines 1090-1280. The "enemy" looks 
for place to go. If he has cornered 
himself, say so, prepare him for his 
execution, and make it look like he 
hasn't fired a missile. Otherwise, he 
chooses a new co-ordinate to rest 
upon. 

Lines 1290-1480. Now we move 
everyone around (where we can), and 
start to find out who got who, if anyone 
at all. Then from 1430-1480 there is a 
check to discover whether the player 
has a place to go or not. If not, another 
message is printed and player will die 
quietly after output. 

Lines 1490-1780. Here the printing of 
the two matrices is done. A value of one 
or zero is tested for making the proper 
symbol. After the output is complete 
"Z" is checked to see if anyone died on 
the way. If no one had, return for 
another pass, else terminate the 
program. 

I spent a lot of time debugging this 
program. After I finally got it to work, I 
found that it became somewhat addic- 
tive. The tension does seem to build 
when the game reaches the final 
possible moves. I found there are two 
different useful strategies that may be 
applied. 

My favorite is building a fence around 
the enemy with missile shots. The idea 
is to cut off his movements while trying 
to keep out of his way. The other 
method is the one the enemy uses. 
Here the player shoots at where he 
thinks the opponent may be each time. 
Quite often the game is ended early, 
the odds of being hit become too great. 

Any method you use, or another you 
may think of, will lend long hours of 
enjoyment. Have fun! 

The program and description were 
written by David Spencer. 



SHOOT 
COPVRIGHT 1979 CREATIVE CONFUTING MORR1STOHN, NJ 

ols 



DO VOU STEED INSTRUCTIONS? VES. 



els — 

SHOOT 

IT IS THE FINflL HOUR OF MAN. VOU AND R WRING NATION 
HAVE ENTERED INTO A LAST CONTEST. ALL THE LIFE NOW LEFT ON 
EARTH ARE VOU AM) VOUR ENEHV. BOTH HE AND VOU HAVE FOUND THE 
LAST REMAINING ATOHIC HISSILE SILO HATRICES ESTABLISHED BV 
THE NOH-DEAD SUPERPOWERS. HE, LIKE VOU, WISHES NOT TO DIE 
BUT TO LIVE IN PEACE 

HOWEVER IT HAS BECOHE APPARENT THAT HE FEELS HIS PEACE 
THREATENED AND IS PREPARING AN ATTACK. BOTH VOU AND HE HAVE 
SCANNERS THAT HILL HARM VOU OF HIS MOVEMENTS AND TRACK THE 
aiGHT OF HIS ATONIC MISSILES, THUS HE IS MING SL011V. 
THE ENEHV, LIKE VOURSELF, HAS A MISSILE GRID HEARLV 
IDENTICAL IN STRUCTURE AND OPERATION TO VOURS. 
PRESS ANV KEV TO CONTINUE 



- els 



VOU ARE THE ONLV ONE LEFT, IT HILL BE NECESSARV TO FIRE ALL VOURW 
ISS1LES MANUALLV. ONCE THE FUSE IS SET, VOU MUST FLEE THE 
AREA AND GET TOO GRID UNITS AWAV. VOU MAV NEVER RETURN TO 
THIS SPOT, OR A SPOT HHERE A MISSILE HAS LANDED; THE 
RADIATION IS INTENSE AND HOULD MEAN AN INSTANT, PAINFUL 

DEATH 

SO THE STAGE HAS BEEN SET. THERE IS PEACE UNTIL THE 
SIGN THAT THE ENEHV HAS MOVED TO HIS MISSILE RANGE. HE HILL 
FIRE EVERV TIME VOU MILL, AM) DO SO UNTIL ONE OF VOU IS 

DESTROVED. 

PRESS ANV KEV TO CONTINUE 



- els ■ 



EACH TIME A ROUND OF MISSILES HAS BEEN FIRED, THE 
SCANNERS HILL REPORT THE STATUS OF BOTH VOUR'S AND THE ENEMV'S 
GRID TERRITORY IT HILL SHOW AIL AREAS THAT HAVE HAD EITHER 
A MISSILE HIT OR A MISSILE FIRED FROM IT. WITH THIS 
CONTIHUALLV UPDATED HAP, VOU NAV BE ABLE TO INDUCTIVaV 
DISCOVER OR TRAP VOUR OPPONENT. BEWARE, HE HILL BE TRVING TO 
DO THE SAME TO VOU. 

PRESS ANV KEV TO CONTINUE 
cis 



VOUR TERRITORV 
12345678918 

1 :::::::::: 

2 :::::::::: 

3 :::::::::: 



ENEMV TERRITORV 
12345678910 

1 :::::::::: 

2 :::::::::: 

3 :::::::::: 

4 :::::::::: 

5 :::::::::: 

6 :::::::::: 

7 :::::::::: 



IB 



18 :::::::::: 

SCAKMER COMPUTER: ENEMV RCTIVITV ON GRID AT 1 , 

VOUR STARTING CO-ORDINATES? 3,3. 

__ cl8 

VOIR TERRITORV 
12345678918 
1 :::::::::: 



ENEMV TERRITORV 
12345678910 



3 ::*:: 

4 :::: 

5 :::: 

6 :::: 

7 :::: 



9 :::::::::: 9 

18 :::::::::: 18 
MISSILE CO-ORDINATES? 18,4. 
VOUR STARTING CO-ORDINATES? 3,3 

VOUR TERRITORV 
12345678918 
1 :::::::::: 



els 

ENEMV TERRITORV 

12345678910 
1 :::::::::* 



9 :::::::::: 9 ::: 

18:::::::::: IB-: 
MISSILE CO-ORDIHATES? 18,4 
WHERE TO MOVE TO? 2,5. 

cla - 



VOUR TERRITORV 
12345678918 
1 :::::::::: 



ENEHV TERRITORV 

12345678910 
1 :::::::::* 



9 ::::::::: 9 : 

18:::::::::: IB: 
MISSILE CO-ORDINATES? 18,4 
WHERE TO MOVE TO? 2,5 
RHERE TO MOVE TO? 4,1 
WHERE TO MOVE TO? 3,5. 



VOUR TERRITORV 
12345678916 
1 :::::::::: 



ENEHV TERRITORV 
12345678918 

1 :::::::::* 

2 :::::::::: 

3 :::::::::: 

4 :::::::::: 

5 :::::::::: 

6 :::::::::: 

7 :::::::::: 



9 :::::::::: 


9 :::::::::: 
18 :::*:::::: 


MISSILE CO-ORDINATES? 6,9. 
HHERE TO MOVE TO? 4,1 
BCRE TO MOVE TO? 3,5 


VOUR TERRITORV 
12345678918 


ENEMV TERRITORV 
12345678918 


1 ::::*::::: 





9 "■::::::: 


9 :::::::::: 
18 :::*:::::: 


MISSILE CO-ORDINATES? 7,4. 
WHERE TO HOVE TO? 5,7 


VOUR TERRITORV 
12345678918 


ENEHY TERRITORV 
12345678318 


1 ::::*::::: 




2 :::::::::: 


** 




-* * 


4 :::::::::: 




5 ::::*::::: 


6 *■ 






7 :::::::::: 










10 :::::::::: 

MISSILE CO-ORDINATES? 7,4 

HHERE TO MOVE TO? L 4. 
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10 ON ERROR GOTO 1748: CLS. PRIHTS414, "SHOOT" 

-<8 PRINT- PRINT TAB(7) "COPVRIGHT 1979 CREATIVE COMPUTING MORR1ST0WN, HI" 

38 PRIHT896B, ""; ■ INPUT "DO VOU NEED INSTRUCTIONS";!* 

48 CLS 

58 IF LEFT«W,i>0"V" GOTO 438 

68 PRINT TRB(29) "SHOOT"' PRINT 

78 PRINT " IT IS THE FINAL HOUR OF MAN. VOU AND A MARRING NATION" 

88 PRINT "HAVE ENTERED INTO A LAST CONTEST. RL THE LIFE NOW LEFT OH" 

98 PRINT "EARTH ARE VOU AND VOUR ENEHV. BOTH HE AND VOU HAVE FOUND THE" 

188 PRINT "LAST REMAINING ATOMIC MISSILE SILO MATRICES ESTABLISHED BV" 

11B PRINT "THE HCM-OEBD SUPERPOWERS. HE, LIKE VOU, WISHES WOT TO DIE" 

128 PRINT "BUT TO LIVE III PERCE " 



138 PRINT 

148 PRINT " HOWEVER IT HRS BECOME APPflRENT THAT HE FEELS HIS PERCE" 
159 PRINT "THREATENED RN0 IS PREPARING AN ATTACK. BOTH VOU AND HE HAVE" 

168 PRINT "SCANNERS THAT HILL WARN VOU OF HIS MOVEMENTS AND TRACK THE" 

178 PRINT "FLIGHT OF HIS ATONIC MISSILES, THUS HE IS WORKING SLOWLY. " 

188 PRINT "THE ENEMV, LIKE VOURSaF, HAS A MISSILE GRID NEARLV" 

198 PRINT "IDENTICAL IN STRUCTURE AND OPERATION TO VOURS. " 

288 PRINTS979, "PRESS ANY KEV TO CONTINUE"; 

218 IF INKEW=" THEN 218 ELSE PRINT8128, CHRJG1); 

228 PRINT "VOU ARE THE BNLY ONE LEFT, IT HILL BE KECESSARV TO FIRE ALL YOUR"; 

238 PRINT "MISSILES MANUALLY. ONCE THE FUSE IS SET, VOU MUST FLEE THE" 

248 PRINT "AREA AND GET THO GRID UNITS AHAV. VOU MAV NEVER RETURN TO" 

258 PRINT "THIS SPOT, OR A SPOT WHERE A MISSILE HAS LANDED; THE" 

268 PRINT "RADIATION IS INTENSE AND WOULD MEAN AN INSTANT, PAINFUL" 

278 PRINT "DEATH. " 

288 PRINT " SO THE STAGE HAS BEEN SET. THERE IS PEACE UNTIL THE" 

298 PRINT "SIGN THAT THE ENEMY HAS MOVED TO HIS MISSILE RANGE HE WILL" 

288 PRINT "FIRE EVERY TIME YOU WILL, AND DO SO UNTIL ONE OF VOU IS" 

310 PRINT "DESTROYED. " 

328 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

338 IF INKEV$=" THEN 338 ELSE PRINT8128, CHR$<31>; 

348 PRINT " EACH TIME A ROUND OF MISSILES HAS BEEN FIRED, THE" 

350 PRINT "SCANNERS WILL REPORT THE STATUS OF BOTH VOUR'S AND THE ENEMY'S" 

368 PRINT "GRID TERRITORY. IT WILL SHOW ALL AREAS THAT HAVE HAD EITHER" 

378 PRINT "A MISSILE HIT OR A MISSILE FIRED FROM IT. WITH THIS" 

2S8 PRINT "CONTINUALLY UPDATED MAP, YOU HAY BE ABLE TO INDUCTIVELY' 

398 PRINT "DISCOVER OR TRAP YOUR OPPONENT. BEWARE HE WILL BE TRYING TO" 

488 PRINT "DO THE SAME TO YOU. " 

418 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

428 IF INKEV*=" THEN 428 ELSE OS 

438 6*=" 12345678918" 

448 C$="SCAHNER COMPUTER: " 

458 5*=*" 

466 FOR X=i TO 14 

478 S*=S*+" " 

488 NEXT X 

498 DIM I(18,18),H(ie,ie),T<8,2),P(8,2): GOSUB 1478 

588 DATA 18,18 , LI , 18,1 , 1,18 , 18,9 , 9,18 , 1,2 , 2,1 

518 DATA -2,-2 , 8,-2, 2,-2, 2,8 , 2,2 , 8,2 ,-2,2 ,-2,8 

528 R=INT(RND(8)*8t« 

538 FOR X=i TO R 

540 READ A,B 

550 NEXT X 

568 FOR X=i TO 18 
578 FOR Y=i TO IB 

588 KX,Y>=8 

598H(X,Y>=6 

608 (EXT V 

618 NEXT X 

628 IF A=2 GOTO 678 

638 FOR X=l TO- 8 

648 READ CD 

650 IF C=2 GOTO 678 

668 NEXT X 

678 FOR X=l TO 8 

688 FOR V=i TO 2 

696 READ P<X, V) 

788 NEXT Y 

718 NEXT X 

728 PRINT C$; "ENEMY ACTIVITY ON GRID AT";A;",";B 

728 INPUT "YOUR STARTING CO-ORDINATES"; E F 

748 IF E<1 OR E>18 OR Fa OR F>18 GOTO 738 

758 Z=l 

768 KEFM 

778H(A,B)=1 

788 GOSUB 1470 

796 INPUT "MISSILE CO-ORDINATES"; M, N 

888 IF Ma OR K>18 OR IKi OR N>18 GOTO 798 

818 INPUT "WHERE TO MOVE TO"; S, T 

828 IF sa OR S>10 OR Ta OR T>18 GOTO 818 

838 IF I(5,TM GOTO 818 

848 FOR X=l TO 8 

850 IF P(X,1HE=S AND PCX,2MF=T GOTO 838 

868 NEXT X 

870 GOTO 818 

838 REM 

S96L=i 

988 FOR X=l TO 8 

918 IF P(X,1)+D18 OR P<X,l)+Ea OR P(X,2)+F>16 OR P(X,2)+Fa GOTO 966 

328 IF KP<X,1)+EP(X,2)+F>=1 GOTO 968 

930 T<L,1)=P(X,1)+E 



948 T(L,2)=P<X,2HF 

958 L=L+i 

960 NEXT X 

978 L=L-1 

988 IF LOi GOTO 1826 

998C=T(L,1) 

1888 D=T(L,2) 

1818 GOTO 1050 

1020 G=INT(RND<8>*L+1> 

1038 C=KG,i> 

1848 D=T(G,2> 

1858 L=i 

1068 FOR X=l TO 8 

1070 IF P',X,l)+A>180RP(X,l)*Aa OR PCX, 2HBM60RPCX, 2>+8a GOTO 1128 

1888 IF HCPCX,1)+A,PCX,2)+B>=1 GOTO 1128 

1698TCL,1>=PCX,1)+A 

1188 TCL2>=P(X,2HB 

1118 L=L+1 

1128 NEXT X 

1138L=L-i 

1146 IF L08 GOTO 1208 

1158 PRINT W; "THE ENEMV HAS CORNERED HIMSELF IN"" 

1166 Z=0 

1178 C=E 

1188 D=F 

1198 GOTO 1278 

1286 IF LOI GOTO 1240 

1210 J=Tai) 

1220 K=TCL2> 

1230 GOTO 1278 

1248 G=INTCRNDC0)*L+1> 

1258 J=T(G,1) 

1268 K=T(G, 2) 

1278 1CEF)=1 

1288 HCA,B)=i 

1296 UC,D)=1 

1388H(M,N)=1 

1218 IF HOJ OR DOT GOTO 1378 

1228 PRINT C$;"HEY! VOU GOT HIM!!" 

1338 2=8 

1248 IF COS OR DOT GOTO 1278 

1258 PRINT Cfc'YOU MOVED RIGHT UNDER HIS MISSILE! 1 " 

1268 7=8 

1378 E=S 

1288 F=T 

1298 A=J 

I486 B=K 

1418 FOR X=l TO 8 

1426 IF P(X,1)«160RP<X,1)+Ea OR PCX, 2HR180RPCX, 2HFa GOTO 1440 

1438 IF ICPCX,1>+E,PCX,2>+F>=6 GOSUB 1478: GOTO 798 

1446 NEXT X 

1450 PRINT C$; "FOOL! VOU HAVE BOXED YOURSELF INTO A CORNER 1 '" 

1466 2=8 

1478 PRINT88, " YOUR TERRITORY ", STRING»(3, 8); "ENEMY TERRITORY" 

1480 PRINT «;»;« 

1490 FOR X=l TO 10 

1588 IF X=10 GOTO 1530 

1518 PRINT X; 

1528 GOTO 1540 

1528 PRINT "18 "; 

1546 FOR Y=l TO 16 

1558 IF ICX,YM GOTO 1588 

1568 PRINT "'"; 

1578 GOTO 1598 

1588 PRINT "*"; 

1590 NEXT Y 

1666 PRINT " ";S»; 

1618 IF X=18 GOTO 1640 

1628 PRINT X; 

1C8 GOTO 1658 

1646 PRINT "10 "; 

1658 FOR V=l TO ID 

1666 IF H(X,V)=1 GOTO 1698 

1678 PRINT ""; 

1680 GOTO 1708 

1698 PRINT "*"; 

1786 NEXT Y 

1716 PRINT 

1728 NEXT X 

1738 RETURN 

1748 END 
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imaish 



This game is a one-lap jalopy race. 
There is one big problem: you don't 
know the shape of the course or the 
safe speed with which you can go 
around the corners. Consequently 
you're likely to smash up fairly fre- 
quently or else go so. slowly that you 
don't earn a good placing among the 
winners. However, after four or five 
plays of the game you'll begin to get the 
hang of it and you'll be able to whip 
around the course in grand fashion. 
The instructions in the program are 
quite detailed. Have fun! 

SMASH 
COPVRIGHT 197S CREATIVE COMPUTING HORRISTOMH, NJ 
els 



00 VOU NEED INSTRUCTIONS? VES_ 
_ els 



smash 
this is shush - the gfllc that simulates r car race 

vou hill respond hith one of the following maneuvers 
hhen fi ">' is tvped. tic position numbers refer to the 
point rt which vou are on the trrck - thev go as follows: 



1 - THE START LINE 

2 - MID STRAIGHT-fMAV 

2 - CONING UP ON A LEFT TURN 

4 - HID LEFT TURN 

5 - COMING UP ON R RIGHT TURN 

6 - MID-RIGHT TURN 

7 - THE FINISH LINE 

PRESS RNV KEV TO CONTINUE 

_ c | 9 



MANEUVERS 

i - FLOOR IT 

2 - ACCELERATE (MODERATE) 

3 - BRAKE SLIGHT 

4 - JAH ON THE BRAKES 

5 - SHARP RIGHT 

6 - MODERATE RIGHT 

7 - SHARP LEFT 

8 - MODERATE LEFT 

PRESS ANV KEV TO CONTINUE 
_ els 



TIME 



128 
158 



MILES TO GO 

12 

117723 
11.2575 
110161 
10. 7458 



MPH 



POSITION 



27.2 
49.9 
46.9625 
22.4422 
126. 827 
SHRSH -- VOU WENT RIGHT INTO THE HflLL! 

DO VOU WANT TO PLAV RGAIN? VES. 
ClS 



MOVE 
'1 

92 

o j 
'3 
''1 
•>2 



TIME 



MILES TO ( 



11 



MPH 



POSITION 
1 



30 10.7717 27.4 

68 9. 9BS17 162. 5 

SMASH — VOU WENT RIGHT INTO THE HflLL! 

DO VOU WANT TO PLAV AGAIN? VES. 

_ — _ els 



MOVE 

? 1 
'1 
■>1 



TIME 



128 
158 



210 



MILES TO GO 

12 

117675 

112162 

18.5719 

9.75155 

8.88295 

7.49886 

6.28128 



MPH 



27.9 

54.15 

89.225 

98.4289 

184.222 

167. 147 

142.654 



POSITION 

1 
6 
5 
6 
5 
6 
5 
6 



MOVE 

■>i 
■>t 
''2 
?6 
">i 
'2 
'2 
'8 



i HOVE! 



SHRSH - VOU WENT RIGHT INTO THE NAIL! 



DO VOU WANT TO PLAV AGAIN? NO. 



18 CLS 


t; (J j — — 


28 PRINT 8 412, ' 


'SHASH" 


38 PRINT 




48 PRINT TR8(7) ' 


'COPVRIGHT 1379 CREATIVE COMPUTING MORRISTOWN, NJ" 


58 PRINT 8 968, ' 


... 


68 INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 


78 DIM R(7), J(6) 


88 FOR X=l TO 7 




98 READ R(X) 




188 NEXT X 




118 FOR X=l TO 6 




128 READ J(X) 




138NEXTX 




148 IF LEFRCK, 


1)="H" THEN OS; GOTO 478 


158 CLS 




168 PRINT TRB(29>; "SMASH" 


178 PRINT 




186 PRINT "THIS IS SMASH - THE GAME THAT SIMULATES A CAR RACE " 


198 PRINT 




288 PRINT "VOU WILL RESPOND HITH ONE OF THE FOLLOWING MANEUVERS" 


218 PRINT "WHEN R ">' IS TVPED. THE POSITION NUMBERS REFER TO THE" 


228 PRINT "POINT AT WHICH VOU ARE ON THE TRACK - THEV GO RS FOLLOWS: 


228 PRINT 




248 PRINT " 1 - 


THE START LINE" 


258 PRINT " 2 - 


HID STRA1GHT-RWAV" 


268 PRINT * 2 - 


COMING UP ON A LEFT TURN" 


278 PRINT " 4 - 


MID LEFT TURN" 


288 PRINT " 5 - 


COMING UP ON R RIGHT TURN" 


298 PRINT " 6 - 


MID-RIGHT TURN" 


388 PRINT " 7 - 


THE FINISH LINE" 


318 PRINT 8 979, 


•PRE5S RNV KEV TO CONTINUE"; 


228 IF IKKEYi =■ 


" THEN 228 


228 PRINT 8 128, 


CHR$(21) 


248 PRINT " 
258 PRINT " ■ 


MANEUVERS" 




268 PRINT " 1 ■ 


- ROOR IT" 


278 PRINT " 2 - 


• ACCELERATE (MODERATE)" 


288 PRINT " 2 - 


- BRAKE SLIGHT" 


298 PRINT " 4 • 


- JRM ON THE BRAKES" 


488 PRINT " 5 • 


- SHARP RIGHT" 


410 PRINT " 6 • 


- MODERATE RIGHT" 


428 PRINT " 7 ■ 


-SHARP LEFT" 


438 PRINT " 8 • 


- MODERATE LEFT" 



448 PRINT 8 979, "PRESS ANV KEV TO COHTINUE"; 
458 IF 1NKEV* ="" THEN 458 
468 CLS 

478 as 

488 PRINT 8 128, CHRK31); 

498 G0SU8 516 

588 GOTO 618 

518 LB=PEEK(16416) 

528 HB=PEEK(16417) 

538 PRINT CM»(28>; 

548 PRINT "TIME"; TAB(12); "MILES TO GO"; TAB(38); "MPH"; TAB(48); 

558 PRINT "POSITION"; TH&55); "MOVE" 

568 PRINT " ";TAB(i2>;" ";TAB(28>;"— ";TAB(48); 

578 PRINT " ■;TRB(55);" "; 

588 POKE 16416, LB 

598 POKE 16417, HB 

688 RETURN 

618 LET A=INT(16+RND(8)*5) 

628 V=fl 

628LETB=8 
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648 T=0 

650LETC=i 

668 GOTO 688 

678 LET C=( INT<2+RNDC8>*5» 

688 PRINT Ti TR8C12); Hi TABC38); Bi TRB(42); Ci TOBC55); 

699 INPUT D 

788 GOSUB 518 

718 IF DOINT(D) THEN 748 

728 IF D>8 THEN 748 

738 IF DM THEN 768 

748 PRINT "ONE THRU EIGHT ONLV. " 

758 GOTO 688 

768 IF DOl THEN 788 

778 LET B=3*8+28tINT(lB*RND(9)*31>/16 

788 IF D02 THEN 888 

798 LET B=3*B/2+7+INT<ie+RND<B>*6i)/i8 

808 IF D03 THEN 828 

818 LET B=7*8/8-6+INT<ie+RND<e>*41>/ie 

828 IF D04 THEN 648 

838 LET B=4*B/7-26+INT(18+RND(8)*81),'18 

840 IF D=7 THBJ 860 

858 IF DOS THEN 878 

868 LET B=9*B/18*(. 7+FMX8)*. 6) 

878 IF D=8 THEN 898 

880 IF D06 THEN 908 

898 LET B=13*B/14*i. ?+RND<8)*. 6) 

988 IF B>8 THEN 928 

910 LET 8=8 

920 IF fl-B/128>0 THEN 1618 

938 LET T=T+fl*2608/B 

940 PRINT CHMC27); T; TRB<12); 8; TBBC38); 8; TRB<42>; 7 

958 PRINT 

960 PRINPTHAT BIDS THE RACE YOU PLfiCED #» INTCTA28W+ 5) 

978 PRINT "YOUR AVERAGE SPEED HAS" Y*36887T"ft P. H. " 



988 IF 1NT<T/(2B*V)+. 5)01 THEN 1268 

998 PRIHT'THflT MPS fl PERFECT RACE CHRHP'" 

1088 GOTO 1268 

1818 IF K>2 THEN 1848 

1828 IF D=7 THEN 1240 

1838 IF D=5 THEN 1248 

1848 IF 03 THEN 1868 

1058 IF 0O4 THEN 1088 

1868 IF D=5 THEN 1248 

1870 IF D=6 THEN 1240 

1880 IF C-6 THEN 1100 

1898 IF COS THEN 1128 

1180 IF D=7 THEN 1248 

1118 IF D=8 THEN 1248 

1128 IF BXKCO THEN 1258 

1138 IF IHT(1+RND(8)*77)O40 THEN 1160 

1140 PRINT "SHfiSH - YOU HAVE BEEN HIT BY ANOTHER CAR 1 '" 

1158 GOTO 1268 

1168 LET M+36 

1170 LET A=A-B/128 

1180 IF C=l THEN 678 

1198 IF C=4 THEN 678 

1200 IF C=2 THEN 670 

1210 IF C=6 THEN 670 

'1220 LET C=C+1 

1238 GOTO 688 

1248 PRINTBRD MOVE!" 

1258 PRINT "SHRSH - YOU HENT RIGHT INTO THE HfiLL! " 

1260 PRINT 

1270 PRINT"DO YOU HUNT TO PLAY AGAIN"; 

1280 GOSUB 518 

1298 INPUT Z$ 

1388 IF LEFT«Z«, 1)="Y" THBI 478 

1318 DATA 2 3, 5, 2, 3, 5, 2, 208, 240, 180, 176, 188, 170 

1328 END 




REPRIR 
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This is a simple game based on 
the numbers 1 through 9, and a pair 
of dice. First, the computer rolls a 
random number for your "dice." Then 
you must take that number from the 
total of your board numbers 1-9. To 
win you must remove all of your 
board numbers. With each roll you 
must remove the total number of that 
roll from the board or you lose. 

One strategy is to remove the 
largest numbers possible with each 
roll, or you can try to get the most 
numbers removed. For example, if 
the roll is 10, you might want to 
remove the 1, 2, 3 and 4 instead of 
thel and 9. 

You may want to have competi- 
tion and players can alternate with 
rolls. Then the player who can't 
remove all numbers from his/her roll 
loses. 

Strike 9 was conceived by Bruce 
Grembowski and first appeared in 
Creative Computing, Jan /Feb 1977. 

Because of the way TRS-80 
graphics are represented on a line 
printer, the sample run shown here is 
a little confusing. All those periods 
(.) you see are actually the numbers 
1-9 represented by graphics blocks, 
or pixels. Every time you remove a 
number, it will be erased from the 
screen. 



STRIKE 9 



VOUR ROLL IS 7. 
It OF NUMBERS TO REMOVE? 2 
HHflT ARE THE NUMBERS 
'' 4_ 



■ els ■ 



STRIKE 9 



VOUR. ROLL IS ?. 

# OF NUMBERS TO REMOVE? 2 

HHflT ARE THE NUMBERS 



STRIKE 9 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ 



STRIKE ! 



CO YOU HEED INSTRUCTIONS? YES. 



YOUR ROLL IS 6. 

It OF NUMBERS TO REMOVE? 1 

HHflT IS THE NUMBER 



STRIKE 9 



STRIKE NINE IS PLAYED NITH fl PAIR OF DICE AND fl 
BOARD HITH NINE NUMBERS. 12 2 4 5 6 7 8 9. YOU 
ARE GIVEN fl ROLL AND CRN KNOCK OFF UP TO 4 NUMBERS. 

NEXT YOU INPUT HON MANY NUMBERS YOU HfiNT 
TO REMOVE, AND THEN INPUT THE NUMBERS YOU HflNT TO 
TAKE OFF, ONE AT fl Tilt THE NUMBERS YOU TAKE OFF 
MUST fit* UP TO THE ROLL YOU HIN BY REMOVING EVERY 
NUMBER FROH THE BOARD. YOU LOSE IF YOU CfiNNOT 
REMOVE ALL NUMBERS HITH THE ROLL YOU HAVE 



PRESS AHY KEY TO CONTINUE 



YOUR ROLL IS 4. 
SORRY, YOU LOST THIS TIME. 
THERE ARE 6 NUMBERS LEFT ON THE f 
WANT TO TRY' AGAIN (YES OR NO)? Nl 



1 2 5 



8 9 
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18 as 

28 CLEAR 1MB 

30 PRINT § 412, "STRIKE 9" 

46 PRINT 

56 PRINT TRB(7>"C0PVRIGHT 1979 CREATIVE COMPUTING M0RRIST014N, NJ" 

68 PRINT 8 966, "; 

78 INPUT-BO VOU HEED INSTRUCTIONS"; I* 

88 DIN R<12), D<4) 

98 IF LEFTttB, 1)="N" THEN 246 

168 CLS 

118 PRINT TAB<28)"STRIKE 9" 

128 PRINT 

138 PRINT" STRIKE NINE IS PLHVED WITH R PAIR OF DICE AND fi» 

146 PRINT"BORRD HITH NINE NUMBERS: 12 3 4 5 6 7 8 9. VOU" 

158 PRINT-ARE GIVEN fl ROa AND CRN KNOCK OFF UP TO 4 NUMBERS " 

166 PRINT" HEXT VOU INPUT HOU MAMV NUMBERS VOU NRNT" 

178 PRINPTO REMOVE, AND THEN INPUT THE NUMBERS VOU HUNT TO " 

186 PRINT'TAKE OFF, ONE RT A TIME THE NUMBERS VOU TAKE OFF" 

198 PRINT-MUST ADD UP TO THE ROLL VOU WIN BV REMOVING EVERV 

286 PRINT-NUMBER FROM THE BOARD. VOU LOSE IF VOU CANNOT" 

218 PRINT-REMOVE ALL NUMBERS HITH THE ROLL VOU HAVE " 

228 PRINT 8 979, "PRESS ANV KEV TO CONTINUE"; 

238 IF INKEVt ="" THEN 238 

246 as 

256 FOR R=l TO 9 

266 fl<A)=fl 

278 NEXT fl 

288 FOR A=l TO 67 

298 READ V 

368 PRINT CHR*(188+V); 

318 NEXT A 

326 PRINT 

336 FOR R=l TO 57 

346 READ V 

356 PRINT CHRK188W; 

368 NEXT 

378 PRINT 8 256, 'STRIKE 9"; 

388 PRINT 8 384, STRINGK64, 143) 

398 FOR fl=i TO 5 

468 READ Q(R) 

418 NEXT R 



426C=IHT(RND(6)*6+i)+INKRND(8)*6+l) 

438 PRINT 8 512,"V0UR RaL IS";C; CHR«8>;" " CHMC31) 

446 T=6 

458 TT=e 

468 FOR X=i TO 9 

476 T=T+A<X) 

480 TT=TT-<fl(X)08) 

496 HEXT X 

566 IF OT THEN 1816 

518 IF C=T THEN 1186 

526 IF A(D=C THEN 638 

538 IF C<3 OR TT=1 THEN 1618 

546 FOR 6=1 TO C-i 

556 IF A<A)=6 OR fi<C-A<A)>=6 OR C=2*R THEN NEXT R ELSE 638 

568 IF TT=2 OR C<6 THEN 1818 

578 FOR A=i TO C-5 

588 FOR B=A+i TO C-4 

598 IF R<fi>=8 OR fl(B>=8 THEN 628 

688 X=C-A-B 

618 IF X=A OR X=B OR A(X)=8 THEN 628 ELSE 636 

628 NEXT B, R 

638 FOR X=l TO 4 

646 D(X)=8 

658 1CXT X 

668 PRINT'* OF NUMBERS TO REMOVE"; 

678 INPUT E 

686 IF IHT(E)OE THEN 728 

698 IF E<1 THEN 728 

786 IF D4 THEN 666 

716 GOTO 746 

728 PRINPflNSHER i, Z 3 OR 4 (5 FOR THE BOARD) - 

738 60T0 668 

748 IF E=i THEN PRINT'HHRT IS THE NUMBER'; ELSE PRINTHHAT ARE THE NUMBERS'; 

756 FOR F=l TO E 

768 PRINT 8 784, CHR«31>; 

776 INPUT DCF) 

786 IF R<D(F»OB THEN 816 

798 PRINPVOU REMOVED IT BEFORE, TRV AGAIN ■ 

888 GOTO 666 

818 IF D(F))5 THEN QQ=3 1SE 60=6 
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Tennis is, as its name implies, a 
tennis match. In this game you have 
several options available to you as the 
position on the court that you wish to 
play from, the placement of your shot 
that you're trying for, and the speed or 
type of shot. As in normal tennis, you 
don't always make the shot that you try 
for. The program lets you play, more or 
less, at the intermediate level. If you 
think that it allows you to play too well 
or too poorly, you could always change 
some of the random factors that 
determine how often a shot is missed. 

Tennis was written by Victor 
Nahigian and David Ahi. 

TENNIS WITCH 

COPYRIGHT 1379 CREATIVE COHPOTING HORRISTOHN, NJ 
DO YOU NEED INSTRUCTIONS? YES. 

Cl8 

THERE RRE SEVERS! OPTIONS AYAILftBLE TO YOU fiS TO POSITION, 

PLftCEMEHT OF SHOT, AND SPEED (TYPE) OF SHOT. THE KEY THRT 

YOU HILL USE IS... 

POSITION (PLACEMENT, TOO): LBflCKCOURT <i>; R.BACK- 
CDURT (2); L FORECOURT (3); R FORECOURT (4). 
els 

SPEED (TYPE) OF SHOT: FAST-SLAH (S)i SL0H-L08 (L). 

BACKHANDS AND FOREHANDS WILL HERELY BE ASSUMED AS YOU 
SHOOT FROM R CERTAIN SECTION OF THE COURT. 

ON SERVES, YOU CANNOT RAVE PLACEMENT OPTIONS, BUT YOU 
HILL BE ABLE TO ALTER THE SPEED OF IT. BY THE HAY, YOU 
HILL BE RLL0HED TO SERVE FIRST IN ALL GAMES. 
PRESS ANY KEY TO CONTINUE 

ols 



HERE HE 00 

SERVE IS BAD. 

SERVE AGAIN! TYPE ?S 

SERVE HAS BEEN RETURNED... 

HHRT IS YOUR POSITION ? 1 
WAT TYPE OF SHOT ARE YOU HAKING ?S 
tt«T PftRT OF TIC COURT ARE YOU HIKING FOR ? 3 
YOUR RETURN IS BAD... 
HIT INTO NET. 
SCORE: LOVE - 15 

PRESS ANY KEY TO CONTINUE 
. els 



HERE REDO 

SERVE HAS BEEN RETURNED. . . 

HHAT IS YOUR POSITION ? 1 
NICE TRY - YOU WERE UNABLE TO REACH THAT SHOT - 
SCORE: LOVE - 38 

PRESS ANY KEY TO CONTINUE 
___ els 



COURT M 



HERE HE GO 

SERVE IS BAD. 

SERVE RGAIN! TYPE ?S 

SERVE IS BAD. . . DOUBLE FAULT! 

SCORE; LOVE - 46 

PRESS ANY KEY TO CONTINUE 
— els 



SERVE HAS BEEN RETURNED... 
MOT IS YOUR POSITION ? 2 
WAT TYPE OF SHOT ARE YOU WAKING ?1 
RHAT PftRT OF THE COURT ARE YOU AIHING FOR ' 2 
YOUR RETURN IS GOOD! 
COMPUTER'S RETURN IS GOOD! 

PRESS ANY KEY TO CONTINUE 
els 



SERVE HAS BEEN RETURNED. . . 
HHRT IS YOUR POSITION ' 3 
HOT TYPE OF SHOT ARE YOU HAKING ?1 
SMAT PART OF THE COURT ARE YOU AIHING FOR ' 2 
YOUR RETURN IS GOOD! 



NICE SHOT- THE COMPUTER COULDN'T REACH IT. 
SOKE: 15 - 15 

PRESS ANY KEY TO CONTINUE 

els 



SERVE HAS BEEN RETURNED... 
HHRT IS YOUR POSITION ? 3 
RHAT TYPE OF SHOT ARE YOU KKIHG 71 
HHAT PART OF THE COURT RRE YOU AIHING FOR ' 3 
YOUR RETURN IS GOOD! 
COMPUTER'S RETURN IS GOOD! 

PRES5 ANY KEY TO CONTINUE 
els 



SERVE HAS BEEN RETURNED... 
RHAT IS YOUR POSITION ? 2 
HHAT TYPE OF SHOT RRE YOU BAKING ?i 
WHAT PART OF THE COURT ARE YOU AIHING FOR ? 3 
YOUR RETURN IS GOOD! 
COMPUTER'S RETURN IS GOOD! 

PRESS ANY KEY TO CONTINUE 
els 



SERVE HAS BEEN RETURNED. . . 

WAT IS YOUR POSITION ? 2 
NICE TRY - YOU HERE UNABLE TO REACH THAT SHOT ■ 
SCORE: 15 - 38 

PRESS RHY KEY TO CONTINUE 
els 



COURT! 3 



SERVE IS GOOD... ACE!! 
SCORE: DEUCE 

PRESS ANY KEY TO CONTINUE 

els 



SERVE IS BAD. 

SERVE AGAIN! TYPE ?L 

SERVE IS BAD... DOUBLE FAULT! 

5C0RE: ADD OUT 

PRESS ANY KEY TO CONTINUE 
els 

SERVE IS GOOD... CAN'T RETURN IT!! 
SCORE: DEUCE 

PRESS ANY KEY TO CONTINUE 

els 



SERVfc is m. 

SERYE RGRIN! TYPE ?S 

SERVE IS BAD. . . DOUBLE FAULT! 

SCORE: ADD OUT 

PRESS ANY KEY TO CONTIUf 
els 



SERVE IS BAD. 
SERVE AGAIN! TYPE ?L 
SERVE IS GOOD... CAN'T RETURN IT!! 
SCORE: DEUCE 

PRESS RNY KEY TO CONTINUE 
els 



SERVE IS BAD. 
SERVE AGAIN! TYPE ?L 
SERVE IS GOOD... CAN'T RETURN IT!! 
SCORE. ADD IN 

PRESS ANY KEY TO CONTINUE 
els 



SERYE HAS BEEN RETURNED... 

HHAT IS YOUR POSITION ' 2 
HHAT TYPE OF SHOT ARE YOU HAKING ?3 
RHAT PART OF THE COURT ARE YOU RIMING FOR ? 1 
YOUR RETURN IS GOOD! 
COMPUTER'S RETURN IS GOOD! 

PRESS ANY KEY TO CONTINUE 
els 



SERVE HAS BEEN RETURNED. . . 



HHAT IS YOUR POSITION ? 3 
NICE TRY - YOU HERE UNABLE TO REACH THAT SHOT - COURT « 2 
SCORE: DEUCE 

PRESS ANY KEY TO CONTINUE 

els 



18 OS 

28 PRINT 8 410, "TENNIS HATCH" 

38 PRINT 

49 PRINT TR3(?>"C0PYRIGHT 1379 CREATIVE COHPUTING HORRISTOKN, NJ - 

58 PRINT 8 368, "; 
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66 INPUT-DO VOU NEED INSTRUCTIONS"; I* 

78 IF LEFTKI*, 1>="N" THEN 268 

89 OS 

99 PRINT TA8<3>; "THERE ARE SEVERAL OPTIONS AVAILABLE TO YOU AS TO POSITION, ' 

168 PRIHTPLRCEKENT OF SHOT, AND SPEED (TYPE) OF SHOT. THE KEY THAT" 

118 PRINT "TO HILL USE IS..." 

128 PRINT 

138 PRINT TRB<5)"POSITION (PLACEMENT, TOO): LBftCKCOURT (1); R.BRCK-" 

148 PRINT TF8t5)i "COURT (2); L FORECOURT (3); R. FORECOURT (4). ■ 

158 PRINT 

168 PRINT TA8(5)"SP£ED (TYPE) OF SHOT: FAST-SLRH (S>; SL0H-L08 (L). " 

179 PRINT 

188 PRINT TAB(3)"BRCKHANDS RND FOREHANDS Nia PERELV BE ASSWED AS YOU ■ 

198 PRINT "SHOOT FROM A CERTRIN SECTION OF THE COURT. " 

288 PRINT TAB(3) "ON SERVES, YOU CflNNOT HftVE aRCEKENT OPTIONS, BUT YOU" 

218 PRINT MILL BE RBLE TO fiLTER THE SPEED OF IT. BY THE HAY, YOU" 

228 PRINT "HILL BE ALLOWED TO SERVE FIRST IN ALL GfiHES. ' 

238 PRINT 

248 PRINT 9 979, "PRESS ANY KEY TO CONTINUE"; 

256 IF ItKEW ="" THEN 258 

268 CLS 

278 PRIHT'HERE HE 60 " 

288 Y=8 

298 2=8 

388 PRINT 9 64," SERVE! TYPE '";CHR«(95>; CKRJGi); 

316 ft*=INKEW 

328M=INKEY* 

339 IF RS=" THEN 328 

348 PRINT CHRK8); ft*; 

358 IF RfOV RND fttO'S" THEN PRINT: PRINT"'L' OR 'S' •■ GOTO 1488 

368 R=188*RHD<e) 

378 PRINT 8 128, CHR*(31); 

388 PRINT 8 64,"; 

398 IF R*="L" THEN 588 

488 C=6 

418 D=51 

428 IF R<C THEN 468 

438 IF fKD THEN 728 

448 PRINT-SERVE IS BSD. ";CHRJ(3D 

458 GOTO 538 

468 PRINTLET SERVE.. TAKE 2. 

478 FOR 19=1 TO 588 

488 NEXT 

498 GOTO 388 

588 C=4 

518D=66 

528 GOTO 428 

538 PRINT 8 128, "SERVE AGAIN! TYPE '";CRR*(95)CHR$(3D; 

548 B*=IH<EY* 

558 B$=INKEY* 

568 IF B*=" THEN 558 

578 PRINT CKR*(8); B* 

588 IF B*0"L" RND B*0"S" THEN PRIHP'L' OR 'S'. ": GOTO 538 

598 E=188*RND(9) 

683 IF B*="L" TTOi 698 

618 0=5 

628H=41 

638 IF E<G THEN 678 

646 IF E<H THEN 728 

658 PRIHFSERVE IS BflD... DOUBLE FAULT!" 

668 GOTO 1438 

676 PRINT"LET SERVE.. TAKE 1 " 

689 GOTO 538 

698 G=3 

786H=76 

718 GOTO 638 

726 1=468 * RND(6) 

738 IF D6 THEN 768 

748 PRINT TAB(18); "SERVE IS GOOD... RCE!!' 

758 GOTO 1418 

768 K=186*RND (8) 

779 IF A$="L" THEN 838 

788 IF B*="L" THEN 838 

799N=61 

888 IF K<N THEN 859 

818 PRINT" SERVE IS GOOD... CAN'T RETURN IT!!" 

826 GOTO 1418 

838N=76 

846 GOTO 896 

856 PRINT'SERVE HRS BEEN RETURNED. .. " 

866 0=INT (4*RND(8))+1 

878 PRINT 8 256, CHWG1); 

888 PRINT TAB(18); "WAT IS YOUR POSITION '";CHR$(95>; 

898M=INKEY* 

988 Q*=If«EV* 

918 IF QJ=" THEN 988 

928Q=Va<0$) 

939 IF 0=8 THEN 968 

948 PRINT CttRf (8); Q 

958 IF 0*8=5 THEN 1388 

966 PRINT 6 338, CKRJG1)"HHRT TYPE OF SHOT ARE YOU HRKING ?" CHR$(95); 

978 CS=INKEY* 

988C*=INKEW 

998 IF «="" THEN 988 1 67 



1688 PRINT CHRK8)B 

1816 PRINT 6 394, CHRJGD'HHAT PART OF TIC COURT ARE YOU RIMING FOR '• CHR*(95); 

1628 R$=INKEYJ 

1838 R*=INKEY* 

1848 IF Rt=" THEN 1838 

1858 R=YRL(R$) 

1868 PRINT CHR*(8)R 

1878 S=188*RND(6) 

1688 IF «="L" THEN 1118 

1896 IF S<81 THEN 1198 

1166 GOTO 1126 

1119 IF SOI THEN 1198 

1128 U=4*»(6) 

1138 PRINT TRB(15>; "YOUR RETURN IS BAD. . . ■ 

1146 IF IK2 THEN 1176 

U56 PRINT TRBC15); "HIT OUT-OF-BOUNDS. " 

1166 GOTO 1438 

1176 PRINT TRB(15);"HIT IHTO NET. " 

1188 GOTO 1439 

1198 PRINT TRB(15); "YOUR RETURN IS GOOD!" 

1288 Pd=INT(4*RND(6)) 

1216 IF R+A1=5 THEN 1488 

1228 H=i88*RHD(8) 

1238 IF Ct="L" THEN 1248 

1246 IF H<84 THEN 1348 

1258 GOTO 1278 

1268 IF H<84 THEN 1348 

1278 C1=4*RKD(8> 

1288 PRINT TRB(15);"C0RPUTER'S RETURN IS BRD. " 

1298 IF B<2 THEN 1328 

1389 PRINT TAB(15);"HIT OUT-OF-BOUNDS. " 

1318 GOTO 1418 

1328 PRINT TA8(15); "HIT INTO NET. ■ 

1338 GOTO 1418 

1348 PRINT TBB(15); "COMPUTER'S RETURN IS GOOD!" 

1358 PRINT 

1368 PRINT TRBC19)"PR£SS ANY KEY TO CONTINUE"; 

1376 IF INKEYJ =" THEN 1378 ELSE 868 

1388 PRINT" NICE TRY - YOU HERE USABLE TO RERCH TKRT SHOT - COURT J" 

1398 SOTO 1438 

1488 PRINT" NICE SHOT- THE COMPUTER COULDN'T RERCH IT. " 

1418 Y=Y+1 

1428 GOTO 1446 

1438 2=2+1 

1448 GOSUB 1778 

1458 PRINT TRBC15); "SCORE: " 5* 

1468 IF Y>=4 RHD Y>Z+1 THEN 1518 

1478 IF D=4 RND ZW1 THEN 1538 

1488 PRINT 

1498 PRINT TRB(19)'PRESS ANY KEY TO CONTINUE"; 

1588 IF IHKEW ="" THEN 1566 ELSE 366 

1518 Y1=Y1+1 

1528 GOTO 1548 

1539 Zi=Zi+l 

1548 PRINT 

1559 PRINT" GAME OVER " 

1568 PRINT 

1578 Y=8 

1588 2=6 

1598 PRINT TA8U5); "SCORE-GRIES : YOU. . . HE" 

1688 PRINT TRB(32); Vli" ";Z1 

1618 FOR ft=l TO 1688 

1628 NEXT 

1638 CLS 

1648 IF Yi>=6 AND YDZ1+1 THEN 1676 

1656 IF ZD=6 AND Z1>Y1+1 THEN 1788 

1668 GOTO 1488 

1678 PRINT 

1688 PRINT ****** CONGRATULATIONS. . . YOU HON ****»" 

1698 GOTO 1728 

1788 PRINT 

1718 PRINT ****** AS PREDICTED, THE COMPUTER IS AGAIN TRIUMPHANT' ****** 

1728 PRINT 

1738 PRINT" I'D LIKE TO RRY YOU AGAIN SOKETIKE, BUT RIGHT NOH, I" 

1748 PRINT "HAVE TO REST BYE!!!" 

1756 PRINT 

1768 END 

1778 IF Y>=2 AHD Z>=2 THEN 1898 

1788 IF Y=4 OR Z=4 THEN S*="GAKE"' GOTO 1939 

1796 IF Y=8 THEN Y$="LOVE - " 

1888 IF Y=l THEN Yt="15 - " 

1818 IF Y=2 THEN Y$="36 - " 

1828 IF Y=3 THEN Yt="48 - " 

1836 IF 2=6 THEN Z*="LOVE" 

1848 IF Z=l THEN 2$="15" 

1858 IF Z=2 THEN Z*="38" 

1866 IF 2=3 THEN 2$="46" 

1876 S*=Y»+ZJ 

1886 GOTO 1938 

1898 IF Y=2 THEN S*="DEUCE": GOTO 1938 

1986 IF Y=2+l THEN S$="ADD IN "■ GOTO 1938 

1918 IF V=Z-1 THEN S*="ADD OUT": GOTO 1938 

1928 IF Y=Z+2 OR Z=Y+2 THEN S*="GRKE" 

1938 RETURN 



kertape 




The operation of this program is 
fairly straightforward. After each 
character is converted to a number 
equivalent to its place in the alphabet 
(A = 1, B = 2, Z = 26, Space = 27), a 
simple table look-up is performed to 
find the correct numbers to punch 
onto the tape. These numbers are 
stored in the DATA statements. 

Written by Bill Gardner and Jim 
Larus, Tickertape first appeared in 
Creative Computing, May/June 1977. 

This program uses TRS-80 graph- 
ics which do not reproduce well on a 
line printer. Therefore the sample run 
does not give a true representation of 
the program. The only way this 
program can be truly appreciated is 
to run it. 
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18 OS 

28 PRINT S 418, "TICKERTRPE" 

38 PRINT 

48 PRINT TRB<7)"C0PVRIGHT 1979 CREATIVE COHPUTING HORRISTOHN, NJ" 

58 PRINT 9 968,"; 

68 INPUT-PRESS ENTER TO STRRT"; 1$ 

78 as 

88 CLEAR 1888 

98 MV*=STR1NG$<26, 32) 

188 FOR fi=i TO 26 

118 RERD V 

128 N1D*<MV*, R, 1)=CHR$(Y) 

138 NEXT fl 

148 POKE 16526, PEEK<VRRPTR<HV*H1) 

158 POKE 16527, PEEK<VRRPTR<HV$)+2) 

168 IF PEEK<16548>=186 THEN DEF USR 8=PEEK<i6526)+PEEK<i652?)*256+2£16*< PEEK<16527»127) 

178 DIH LT<27, 3, 5) 

188 FOR R=i TO 27 

190 FOR B=i TO 3 

288 FOR C=l TO 5 

218 RERD V 

228 LKA, B, C)=Y+108 

238 NEXT C, B, fl 

248 GOTO 788 

258 DATA33, 193, 61, 17, 192, 61, 1, 63, 8, 237, 176, 35, 19 

268 DRTR1, 63, 0, 237, 176, 35, 19, i, 63, 0, 237, 176, 281 

278 DRTR88, 31, 31, 31, 88, 91, 40, 40, 48, 91, 91, 28, 28, 28, 91 

288 DATR91, 31, 31, 31, 88, 9L 48, 48, 48, 79, 91, 76, 76, 76, 43 

298 DATR88, 31, 31, 31, 40, 91, 28, 28, 28, 28, 43, 76, 76, 76, 48 

388 DRTA91, 31, 31, 31, 88, 9L 28, 28, 28, 91, 91, 76, 76, 76, 43 

318 DRTA91, 31, 31, 31, 31, 91, 48, 40, 28, 28, 91, 76, 76, 76, 76 

328 DATB91, 31, 3L 31, 31, 91, 48, 48, 28, 28, 91, 28, 28, 28, 28 

338 DRTR88, 31, 31, 31, 48, 91, 28, 28, 40, 88, 43, 76, 76, 76, 43 

348 DATA91, 28, 28, 28, 91, 91, 48, 48, 40, 91, 91, 28, 28, 28, 91 

358 DATA31, 31, 91, 31, 31, 28, 28, 91, 28, 28, 76, 76, 91, 76, 76 

368 0ATA28, 28, 31, 91, 31, 28, 28, 28, 91, 28, 43, 76, 76, 43, 28 

378 DATA91, 28, 76, 40, 31, 91, 43, 76, 28, 28, 91, 28, 28, 31, 88 

388 DATA91, 28, 28, 28, 28, 91, 28, 28, 28, 28, 91, 76, 76, 76, 76 

398 DRTA91, 40, 76, 40, 91, 91, 28, 31, 28, ftb 91, 28, 28, 28, 91 

480 DATR91, 40, 76, 28, 91, 91, 28, 91, 28, 91, 91, 28, 31, 40, 91 

410 DATR88, 31, 31, 31, 88, 91, 28, 28, 28, 91, 43, 76, 76, 76, 43 

428 DATR91, 31, 31, 31, 88, 91, 40, 40, 40, 31, 91, 28, 28, 28, 28 

438 DRTR88, 31, 31, 31, 88, 91, 28, 28, 28, 91, 43, 76, 79, 48, 79 

448 DATRSi, 31, 31, 31, 88, 91, 88, 48, 48, 31, 91, 28, 31, 48, 76 

450 DRTA88, 31, 21, 31, 31, 31, 40, 48, 48, 76, 76, 76, 76, 76, 43 

468 DRTR3L 31, 91, 31, 31, 28, 28, 91, 28, 28, 28, 28, 91, 28, 28 

478 DATR91, 28, 28, 28, 91, 91, 28, 28, 28, 91, 43, 76, 76, 76, 43 

488 DATR91, 28, 28, 28, 91, 91, 28, 28, 28, 91, 21, 43, 88, 43, 31 

498 DATR91, 28, 28, 28, 91, 91, 28, 28, 28, 91, 43, 76, 43, 76, 43 

588 DATA91, 28, 28, 28, 91, 28, 79, 48, 79, 28, 91, 28, 28, 28, 91 

518 DATA91, 28, 28, 28, 91, 28, 31, 88, 31, 28, 28, 28, 91, 28, 28 

528 DATA31, 31, 31, 31, 91, 28, 76, 48, 31, 28, 91, 76, 76, 76, 76 

530 DATA28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28, 28 

540 FOR R=i TO LEN<TXi) 

550 X=RSC<MIM(TX$, A, l»-64 

568 IF X=-32 THEN X=27 

578 FOR C=l TO 5 

588 FOR B=l TO 3 

590 POKE 15887+64*B, LT<X, B, C) 

600 NEXT B 

610 XX=USR<8> 

620 NEXT C 

638 FOR E=i TO 3 

648 POKE 15887+64*B, 32 

658 NEXT B 

668 XX=USR<0) 

678 NEXT fl 

688 IF 1NKEY* =" THEN TX$=LEFT*(TX$, LEN<TX*)-5> : RETURN 

690 END 

700 PRINT 8 968, "i 

710 FOR fl=l TO 7 

720 PRINT 

720 FOR B=l TO 20 

740 NEXT B, A 

758 PRINT 8 384, STRING$<64, 148) 

760 PRINT 8 648, STRING*<64, 140) 

778 PRINT CHR$(14)°MESSRGE-" 

780 TXt=°" 

798 A*=INKEY* 

880 IF fW>="R» AND R$<=»Z" OR R*=" » THEN TX*=TX*+A$: PRINT R*i GOTO 790 

818 IF R$=" THEN 798 

828 IF RSC<R*X>13 THEN 848 

838 GOTO 868 

840 IF RSC(R$)=8 THEN PRINT @ 768, "ISSSRGE-" CHR$(31): TX*="» 

858 GOTO 798 

868 PRINT 8 768, STRING*<63, " «); 

870 PRINT 8 832, STRINWC63, ° ■); 

888 TX*=TX*+" »: GOSUB 548: GOTO 818 
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This program automatically devises 
plots for television shows or series 
guaranteed to appeal to the masses 
and win high Nielsen ratings. By 
substituting appropriate words in the 
various parts of the program it could be 
easily modified for many other useful 
purposes such as devising names for 
new breakfast cereals, preparing PhD 
theses, or naming government agen- 
cies and their corresponding projects. 

This program was originally written 
in FOCAL by Mary Cole and converted 
to BASIC by David Ahl. 



COPVRIGHT 1979 



TV PLOT 
CREATIVE COMPUTING 



HORRISTOWN, NJ 



DO VOU NEED INSTRUCTIONS? VES. 

els 

THIS PROGRAM AUTOMAT I CRllV COMES UP WITH TELEVISION 
SHOWS GUARANTEED TO APPEAL TO THE MASSES AND WIN 
HIGH NEILSEN RATINGS. 

PRESS ANV KEV TO CONTINUE 

els 

THE REPORT IS ABOUT A DEDICATED LITTLE BOV WHO IS A DISASTER 
AT WINNING RACES AND WHO DESTROYS THE CITV. 

ANOTHER (V OR N) 

THE SERIES IS ABOUT A HENPECKED JUNGLE MAN WHO IS A FLOP 

AT COOKING HEALTH FOOD AND WHO DESTROVS THE CITV. 

ANOTHER (V OR N) 

THE STORV IS ABOUT A DEDICATED SECRET AGENT WHO IS A FLOP 

AT PITCHING WOOD AND WHO RECOVERS THE JEWELS. 

ANOTHER (V OR N) 

THE SPECIAL IS ABOUT A SWINGING SCIENTEST WHO. IS A WHIZ 

AT WINNING RACES AND WHO MAKES THE SACRIFICE. 

ANOTHER (V OR N) 

THE SPECIAL IS ABOUT A DEDICATED SECRET AGENT WHO IS A FLOP 

AT PROTECTING ECOLOGV AND WHO FINDS LOVE. 

ANOTHER <Y OR N) 

THE PROGRAM IS ABOUT A HILARIOUS JUNGLE HAN WHO IS A FLOP 

AT PITCHING WOOD AND WHO CONFESSES. 

MOTHER <V OR N) 

THE REPORT IS ABOUT A SENSITIVE LAWVER WHO IS A WHIZ 

AT HELPING CHILDREN AND WHO HELPS THE DOS. 

ANOTHER <V OR N) 

THE REPORT IS ABOUT A HEAVY SCIENTEST WHO IS A WHIZ 

AT FIGHTING FIRES AND WHO STOPS THE FLOOD. 



ANOTHER <Y OR N) 



■ els 



THE STORY IS ABOUT A HENPECKED JUNGLE MAN WHO IS A FLOP 
AT WINNING RACES AND WHO HELPS THE DOG. 

ANOTHER (Y OR N) 

THE STORY IS ABOUT A BRILLIANT JUNGLE MAN WHO IS A DISASTER 

AT HELPING CHILDREN AND WHO STOPS THE FLOOD. 

ANOTHER (Y OR N) 

THE REPORT IS ABOUT A SENSITIVE GIRL COWHAND WHO IS A WHIZ 

AT TWO-FISTED DRINKING AND WHO DESTROYS THE CITY. 

ANOTHER (Y OR N) 

THE STORV IS RBOUT A THOUGHTFUL TOWN MARSHALL WHO IS A WHIZ 

AT PROTECTING ECOLOGY AND WHO MAKES THE SACRIFICE. 



ANOTHER <Y OR N) 



• els 
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10 CLS. PRINT8412, "TV PLOT" 

20 PRINT: PRINT TAB<7) "COPYRIGHT 1979 CREATIVE COMPUTING HORRISTOWN, NJ" 

30 PRINT0960, ""; INPUT "DO YOU NEED INSTRUCTIONS"; I* 

48 IF LEFT*(I*,1>="N" THEN 110 ELSE CLS: PRINT THB(27)"TV PLOT" 

50 PRINT 

SB PRINT "THIS PROGRAM AUTOMATICALLY COMES UP WITH TELEVISION" 

70 PRINT "SHOWS GUARANTEED TO APPEAL TO THE MASSES AND WIN" 

80 PRINT "HIGH NEILSEN RATINGS. ":PRINT 

90 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 

100 IF INKEY$=" THEN 100 ELSE CLS: N=B 

110 CLS 

120 GOSUB 810 

130 ON X GOTO 140, 150, 160, 170, 180, 140, 150, 160, 170, 180 

140 A*="PROGRAH" : GOTO 190 

150 A*="REPORT" • GOTO 190 

160 A*="SPECIAL"' GOTO 190 

170 A$="SERIES"' GOTO 190 

188 A$="STORY" 

130 GOSUB 810 

206 ON X GOTO 210, 220, 230, 240, 250, 260, 270, 280, 290, 300 

210 B*="SWINGING" • GOTO 310 

220 B$="BRILLIANT" • GOTO 310 

220 B$="SBLTY": GOTO 210 

240 B*="HILARIOUS" • GOTO 210 

250 B*="SENSITIVE"' GOTO 310 

266 B*="D0DDERIN6": GOTO 310 

270 B*="HENPECKED": GOTO 210 

288 B$="DEDICBTED" ' GOTO 210 

290 B*="THOUGHTFUL"' GOTO 310 

380 B*="H£HVY" 

310 GOSUB 810 

320 ON X GOTO 330,340,350,360,370,380,390,400,410,420 

330 C$="GIRL COWHAND"' GOTO 430 

340 »="LITTLE BOY": GOTO 430 

350 C$="SCIENTEST" • GOTO 430 

260 C$="LAWYER" : GOTO 430 

370 C*="TOWN MARSHALL": GOTO 430 

380 C*="DENTIST" : GOTO 430 

390 C*="BUS DRIVER" • GOTO 420 

460 C*=" JUNGLE MAN": GOTO 430 

410 C$="SECRET AGENT" • GOTO 430 

420 C*="COLLIE" 

430 GOSUB 810 

440 ON X GOTO 450, 460, 470, 480, 490, 450, 460, 470, 480, 490 

450 D*="A WHIZ" : GOTO 500 

460 D*="A FLOP" : GOTO 500 

470 D$="MEDIOCRE" • GOTO 460 

488 D$="H SUCCESS" : GOTO 460 

498 Dt="A DISASTER" 

560 GOSUB 810 

510 ON X GOTO 528, 530, 540, 550, 560, 570, 580, 590, 608, 610 
520 E*="SOLVING CRIMES" ■ GOTO 620 

520 E*="ROPING COWS"- GOTO 620 

548 E*="COOKING HEALTH FOOD" • GOTO 620 

558 E*="PITCHING WOOD": GOTO 620 

560 E$="PROTECTING ECOLOGY": GOTO 620 

570 E$="HELPINO CHILDREN"' GOTO 620 

588 E*="TWO-FISTED DRINKING" • GOTO 620 

590 E*="FIGHTING FIRES" • GOTO 620 

600 E*="HERDING ELEPHANTS" : GOTO 620 

610 E$="WINNING RACES" ■ GOTO 620 
620 GOSUB 810 

638 ON X GOTO 640,658,660,670,680,690,780,710,720,720 

640 F*="RECOVERS THE JEWELS" • GOTO 740 

650 F*=»FOILS THE SPIES" ■ GOTO 740 

668 F$="DESTROYS THE CITY": GOTO 740 

678 Ff="FINDS LOVE" • GOTO 740 

680 FS="SAVES THE ANIMALS"' GOTO 748 

690 F*="CONFESSES» • GOTO 740 

7B8 F$="DISCOVERS THE SECRET"' GOTO 740 

718 Ft="STOPS THE FLOOD" • GOTO 740 

720 F$="HELPS THE DOG" ■ GOTO 740 

730 F*="MAKES THE SACRIFICE" 

740 PRINT "THE "; A*; " IS ABOUT A "; B$; " "; Cfc " WHO IS "; D* 

750 PRINT "AT "; E$; " AND WHO "; Ft; " ": PRINT: N=N+1 

760 PRINT "ANOTHER <Y OR N>"; 

770 A$=INKEY$: IF A$=»" THEN 770 

788 IF LEFT$<H$, 1)="N" THEN 820 

790 IF N=4 THEN CLS. N=0 ELSE PRINT 

890 GOTO 128 

810 X=INT(10*RND(0)+1>: RETURN 

820 CLS: PRINT "O.K. HOPE YOU HAVE A SUCCESSFUL TV SHOW!!" 

820 END 



'wonky 



TWONKY 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



The computer will set up a 1 5x1 5 playing field in which 
you are randomly located. Also inside the field is an 
objective square, 30 blocked squares (walls), 22 relocation 
squares, and 1 super special new maze square, and, of 
course, the Twonky (which is no relation to a creme-filled 
cupcake). 

To win the game, you must reach the objective square 
before the Twonky gets you, by moving one square at a time, 
forward, backward, right or left. Unfortunately, you are 
hindered by several things: 

RELOCATION squares, when moved on, cause you to be 
randomly transported to another position in the maze. 

WALLS; you can't move into these squares, and lose your 
turn when you hit one. 

SUPER-MAZE-SQUARE; essentially an instant loss, 
since when you move here a completely new maze is set up. 

TWONKY; after every move, the Twonky moves toward 
you. (He is impervious to all traps, even walls). When he 
gets too close to you (2 or fewer squares), you lose. 
However, you are equipped with a de-materializing ray gun. 
You have the option of using this on your turn. If you hit the 
Twonky he de-materializes and then re-materializes on a 
different square of the maze to resume his quest after you. 
(CAUTION: he could be dropped into your lap!). 

After each move pair (you and Twonky), your distance 
from both the Twonky and the objective square are printed. 
There is no board printout — you play blind. However, using 
the distances, you can home in to the approximate position 
of both Twonky and objective. 

When shooting at the Twonky, you do not have a shot if 
the distance he is from you is not an integer. For example: If 
the Twonky is 2.23606 units away, you don't have a direct 
shot. If he is 4 units away, you do have a shot. Exceptions to 
this rule are distances of 5, 1 0, 1 3, and 1 7. (A review of the 
Pythagorean Theorem will show why this is true.) Hence, if 
the distance is 5, 1 0, or 1 3 (but not 1 7), you may or may not 
have a direct shot. Likewise, this set of rules applies to the 
direction of the objective. 

If you watch your distances before and after moving, you 
should be able to tell where the Twonky is in relation to you, 
e.g., forward and to the right, or backward and to the left. 
Take the distance you are from the Twonky, square it, say 
2.23606 2 = 4.999998 approx. = 5. Then find two integers 
that when squared and added together equal this (2 and 1 ). 
If the Twonky is forward and to the right, you now know that 
he is either up 2, over 1, or up 1, over 2. 

The thing that makes Twonky unique, is that it can be 
played on two levels, one in which you play for fun, moving 
haphazardly; or you can play while figuring out exact 
positions, and calculating moves in advance for a challeng- 
ing (as well as fun) game. 

Twonky was written by Mark Capella and first appeared in 
Creative Computing, May/Jun 1977. 



DO VOL! NEED INSTRUCTIONS? V_ 



TWONKV 

THIS IS THE GAME OF TWONKV. 

VOU HAVE LANDED ON THE PLANET OF TWINKY AND 
ITS KING (KONG. THEIR KING IS KING KONG) HAS 
CAPTURED VOU. HE HAS PUT VOU IN fl MAZE THAT IS 
15 * 15 UNITS LONG. VOU ARE IN THE DARK AND CANNOT 
SEE. . , VOU MUST GET TO THE OBJECTIVE SQUARE AND 
BE SET FREE. 

HAZARDS INCLUDE: 

SQUARES THAT VOU CANNOT GO INTO GO). 
SQUARES THAT RANDOMLY THROW VOU AROUND THE MAZE <22) 
SQUARE THAT SETS UP A NEW MAZE AND ALL THAT'S IN IT (1) 
PRESS ANV KEV TO CONTINUE 



TWONKV 



THERE IS MONSTER CALLED TWONKV THAT CHASES VOU AND WILL 
ABSORB VOU IF THE DISTANCE IT IS FROM VOU FALLS 
BELOW 2 UNITS. 

TWONKV IS ALSO IMMUNE TO ALL TRAPS INCLUDING WALLS. 



HIT ANV KEV TO CONTINUE 



TWONKV 



VOU CAN: 



MOVE ONE SQUARE AT A TIME TO FIND THE OBJECTIVE 
OR ESCAPE FROM THE TWONKV. 

SHOOT AT THE TWONKV ONE DIRECTION AT A TIME. 

IF THE TWONKV IS HIT, HE WILL BE REPLACED IN THE 
MAZE RANDOMLY. 

IF THE TWONKV ABSORBS VOU. . . VOU LOSE. 

IF VOU LAND ON THE OBJECTIVE SQUARE VOU WIN. 



GOOD LUCK! 



HIT ANV KEV TO CONTINUE 



■ els 
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THE TWONKY IS 3. 60555 UNITS RWRV. 
THE OBJECTIVE IS 4. 12311 UNITS RWAY. 



HOVE OR SHOOT (M/S>? H 
WHICH WAY (F/B/R/D? B_ 



YOU'VE BEEN RELOCATED 



THE TWONKV IS 7. 81025 UNITS AWRY. 
THE OBJECTIVE IS 7. 28011 UNITS AWAY. 



TWONKV MOVES. . . . 



THE TWONKV IS 7. 2111 UNITS AWRV. 
THE OBJECTIVE IS 7. 28011 UNITS RWflV. 



MOVE OR SHOOT (M/S)' M 
WHICH WAV (F/B/R/D? R_ 



• els ■ 



MOVE ALLOWED. 



THE TWONKV IS 7. 81025 UNITS AWRY 
THE OBJECTIVE IS 7 UNITS AWAV. 



TWONKV MOVES. . . . 



THE TWONKV IS 7. 2111 UNITS RWRV. 
THE OBJECTIVE IS 7 UNITS RWRV. 



HOVE OR SHOOT OVS>? M 
BHICH WRV <F/B/R/L>? R_ 



els ■ 



THE TWONKV IS 8. 8S22S UNITS AWAV. 
THE OBJECTIVE IS 2. 23607 UNITS RWAV. 



MOVE OR SHOOT <M/S>? M 
KHICH WRV (FVB/M.)? R_ 



VOU'VE BEEN RELOCATED 



THE TWONKV IS 2. 23607 UNITS AWRY. 
THE OBJECTIVE IS 8. 06226 UNITS RWRV 



TWONKV MOVES. 



THE TWONKV IS 1. 41421 UNITS AWAV. 
THE OBJECTIVE IS 8. 06226 UNITS RWAY. 



> > > SCHLOORP ' ! ! < < < 

THE TWONKY JUST ABSORBED VOU!! VOU LOSE. 

TRV AGAIN WN)? N. 



IB CLS: PRINT0413, "TOW 

28 PRINT: PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING HORRISTOUN, NJ" 

38 PRINT0968, ""; : INPUT "DO VOU NEED INSTRUCTIONS"; I* 

40 GOSUB 2160 

50DIM A(15,15> 

68LETR9=8 

78 GOSUB 1718 

88G0SUB1338 

90 REM 

188 PRINT 'HOVE OR SHOOT <N/S>"; 

118 INPUT 88* 

128 IF LEFT*(Q8»,1)="H" THEN 158 

138 IF LEFT«88$,1)="S" THEN 838 

148 GOTO 98 

158 PRINT "WHICH RAY (F/B/RA)"; 

168 INPUT QJ 

170 OS 

188 IF LEFT*(Q$,1>="F" THEN 238 

198 IF LEFT$(«,1)="B" THEN 268 

288 IF LEFT$<Q*,1)="L" THEN 298 

218 IF LEFWQ*,i>="R" THEN 328 

228 GOTO 98 

238LETX5=X 

248 LET Y5=V-i 

258 GOTO 358 

268LETX5=X 

278 LET V5=V+1 

280 GOTO 358 

298 LET X5=X-i 

388 LET Y5=Y 

310 GOTO 358 

328 LET X5=X+1 

338LETV5=V 

348 GOTO 358 

358 IF X5<1 THEN 488 

368 IF X5>15 THEN 488 

378 IF V5U THEN 488 

388 IF V5>15 THEN 488 

398 GOTO 438 

488 OS: PRINT "THAT MOVE TAKES VOU OUT OF THE HAZE " 

416 PRINT "HOVE NOT ALLOWED. • 

428 GOTO 1318 

438 ON <A<X5,Y5)+1> GOTO 448,518,520,558,658,698,880 

448 REN «* EMPTY SPACE 

458 LET A(X,V>=8 

460 LET fKX5.V5>=i 

478 LET X=X5 

488 LET V=¥5 

490 CLS: PRINT "MOVE ALLOW). " 

588 GOTO 1310 

510 REM *** IMPOSSIBLE TO GET MERE 

528 REM *** BLOCKED SPACE ROUTINE 

530 CLS: PRINT "THAT SPACE IS BLOCKED. ' 

540 GOTO 1318 

558 REM *** RELOCATION ROUTINE 

560 PRINT "VOU'VE BEEN RELOCATED!!!" 

578 GOSUB 2568 

588 IF A(Z,H»2 THEN 438 

598 IF A(Z,H)08 THEN 570 

608 LET A(Z.H)=i 

618LETAaV)=8 

628 LET X=Z 

638 LET V4i 

648 GOTO 1318 

650 REM *** CHANGE ALL, SUPER TRAP. 

668 PRINT " VOU HIT THE SUPER TRAP! ! VOU GET A NEW MAZE " 

678 GOSUB 1710 

688 GOTO 1310 

698 REM *** HE HON! 

708 PRINT 

718 PRINT "I DON'T BELIEVE IT BUT VOU HON THE GAME!" 

720 PRINT "TO GOT TO THE OBJECTIVE BEFORE" 

738 PRINT " THE THONKV GOT VOU! ! " 

740 REM 

758 PRINT "TRV AGAIN WN>"; 

768 INPUT Q$ 

778 IF LEFT«Q$,i)="V" THEN CLS: GOTO 60 

788 IF LEFT*(Q$,1>="N" THEN 2608 

730 GOTO 758 

880 REM «* HE LANDED ON TUONKV! 

816 PRINT "VOU STEPPED ON THE THONKV!" 

828 GOTO 1670 
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838 REH *** SHOOT ROUTINE 
848 PRINT "WHICH HRV (F/B/R/L)"; 
858 INPUT Q* 
868 OS 

876 IF LEFT«Q*,1)="F" THEN 928 
888 IFLEFT*(Q*,1)="B« THEH 958 
898 IF LEFT$((»,1)="R" THEN 1818 
988 IF LEFT$(Q*,1)="L" THEN 988 
918 GOTO 98 
928 LET 51=8 
938 LET S2=-i 
948 GOTO 1838 
958LETS1=8 
968 LET SM 
978 GOTO 1838 
988 LET 51=-1 
998LETS2=0 
1888 GOTO 1838 
' 1818 LET Si=i 
1028 LET S2=8 
1038 LET Ri=X 
1848 LET R2=V 
1858 LET PA=Ri+Si 
1868 LET R2=R2+S2 
1878 PRINT "Z R P -"; 
1888 IF R1<1 THEN 1138 
1898 IF RD15 THEN 1138 
1188 IF R2<1 THEN 1138 
1118 IF R2>15 THEN 1138 
1128 GOTO 1178 
1138 PRINT "FIZZLE. .. " 
1148 PRINT "SHOT LEFT NAZE " 
1158 PRINT "SHOT HISSED. " 
1168 GOTO 1318 

1178 IF fl(RLR2)02 THEH 1228 
1188 PRINT "BLAST!!!!" 
1198 PRINT "VOU HIT HULL " 
1288 PRINT "SHOT MISSED. " 
1218 GOTO 1318 

1228 IF R(Ri,R2)06 THEN 1858 
1238 PRINT "OUCH!!" 
1240 PRINT "THONKV RETREflTES. " 
1258 LET A(R1R2)=R9 
1268 GOSUB 2566 
1278 IF R(Z,H)08 THEN 1268 
1288 LET A(2,H>=6 
1298 LET X1=Z 
1388 LET V1=H 
1318 GOSUB 1338 
1328 GOTO 1458 

1338 REH *** PRINT THONKV AND OBJECTIVE DISTRNCE 
1348 PRINT 

1358 PRINT "THE THONKV IS"; 
1368 D=(SQR(A8S((X1-X)[2+(V1-V)[2)» 
1378 PRINT Di 
1388 PRINT "UNITS AHAV. " 
1398 PRINT "THE OBJECTIVE IS"; 
1488 D1=(SQR(HBS(X2-X)[2+(V2-V)[2» 
1410 PRINT Dl; 
1428 PRINT "UNITS FBOfiV. " 
1438 PRINT 
1448 RETURN 

1459 REM «** TMONKVS LOGIC 
1468 IF D<2 THEN 1678 
1478 LET Z2=Yi 
1488 LET Z1=X1 
1498 IF XCX1 THEN 1568 
1568 IF X>Xi THEN 1588 
1518 IF V<V1 THEN 1548 , - 
1528 LET Z2=Vi+i ■* . 
1538 GOTO 1598 
1548 LET Z2=V1-1 
1558 GOTO 1598 
1568 LET a=Xi-l 
1570 GOTO 1598 
1580 LET Z1=X1+1 
159B LET R(XLV1)=R9 
1688 LET R9=R(ZLZ2) 
1618 LET A(ZLZ2>=6 
1628 LET Xl=Zi 
1638 LET Vi=Z2 

1648 PRINT "THONKV MOVES. ..." 
1658 GOSUB 1338 
1668 IF D>=2 THEN 98 
1678 PRINT 

1668 PRINT ■> > > SCHLOORP !!! < < <■ 
1698 PRINT "THE THONKV JUST ABSORBED VOU!! VOU LOSE " 
1780 GOTO 748 
1710 REN *** SET UP NEH MAZE ROUTINE 
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1728 REM *** 1=PLRVER, 2=BL0CKED SPACES 

1738 Pffl <** 3=REL0CflTI0NS, 4=SUPER TRRP 

1748 REH **» 5=0BJECTIVE, 6=TH0NKV 

1758 REM *** 8=EKPTV SPACES 

1768 REM *** CLEAR MAZE 

1778 FOR B6=l TO 15 

1788 FOR Bl=l TO 15 

1798 LET A(B8,B1)=8 

1888 NEXT Bl 

1618 NEXT B8 

1820 FOR 1=1 TO 38 

1830 GOSUB 2560 

1840 IF B(Z,H>0« THEN 1838 

1858 LET A(Z,H)=2 

1868 NEXT I 

1878 REM *** PLACE RELOCATIONS 

1888 FOR M TO 22 

1898 GOSUB 2568 

1988 IF A(Z,H)08 THEN 1890 

1310 LET fi(Z,H)=3 

1928 NEXT I 

1938 REM *** PLRCE THE SPECIAL TRRP 

1948 GOSUB 2568 

1958 IF R(Z,H)08 THEN 1948 

1960 LET A(Z,H)=4 

1976 REM «* PLRCE THE PLAVER 

1980 GOSUB 2568 

1998 IF fl(Z,H)O0 THEN 1988 

2838 LET A(Z,H)=i 

2810 LET X=Z 

2828 LET V=H 

2038 REM *** PLACE THE OBJECTIVE 

2840 GOSUB 2560 

2858 IF AS H>08 THEN 2848 

2868 LET A(Z,H)=5 

2878 LET X2=Z 

2838 LET V2=H 

2898 REM *** PLACE THE THONKV 

2188 GOSUB 2560 

2118 IF ASN)08 THEN 2183 

2120 LET R(Z,U)=6 

2138 LET X1=Z 

2148 LET V1=H 

2150 RETURN 

2160 REN 

2176 IF LEFT*(»,i>="N" THEN CIS: GOTO 2550 

2188 OS: PRINT TAB<29> "THONKV"- PRINT 

2198 PRINT "THIS IS THE GfiHE OF THONKV. ■ 

2280 PRINT " VOU HAVE LRHDED ON THE PLANET OF THINKV AND" 

2210 PRINT "ITS KING (KONG: THEIR KING IS KING KONG) HAS " 
2228 PRINT "CAPTURED VOU. HE HRS PUT VOU IN A MHZE THAT IS" 

2238 PRINT "15 * 15 UNITS LONG, VOU ARE IN THE DARK AND CANNOT" 

2240 PRINT "SEE . . VOU MUST GET TO THE OBJECTIVE SQUARE AND" 

2250 PRINT "BE SET FREE " 

2268 PRINT 

2278 PRINT " HAZARDS INCLUDE:"; PRINT 

2288 PRINT "SQUARES THAT VOU CRNNOT GO INTO (38). " 

2298 PRINT "SQUARES THAT RRNDOMLV THROH VOU AROUND THE MAZE (22). " 

2388 PRINT "SQUARE THAT SETS UP A NEH MAZE RND ALL THAT'S IN IT (1)"; 

2318 PRINT6979, "PRESS ANV KEV TO CONTINUE"; 

2328 IF INKEV$=" THEN 2328 ELSE PRINT8128, CHTtfGl); 

2330 PRINT: PRINT: PRINT 

2348 PRINT "THERE IS MONSTER CALLED THONKV THAT CHASES VOU AND HILL" 

2358 PRINT " ABSORB VOU IF THE DISTANCE IT IS FROM VOU FALLS" 

2368 PRINT " BELOH 2 UNITS. " 

2378 PRINT: PRINT " THONKV IS ALSO IMMUNE TO ALL TRRPS INCLUDING HALLS. ' 

2388 PRINT: PRINT 

2398 PRINT0979, "HIT ANV KEV TO CONTINUE"; 

2488 IF IKKEV*=" THEN 2468 ESE PRINTM28, CHRK31); 

2416 PRINT " VOU CAN: "■ PRINT 

2428 PRINT "MOVE ONE SQUARE AT A TIME TO FIND THE OBJECTIVE" 

2438 PRINT " OR ESCAPE FROM THE THONKV. " 

2448 PRINT 

2458 PRINT "SHOOT AT THE THONKV ONE DIRECTION AT R TIME ■ 

2468 PRINT " IF THE THONKV IS HIT, HE HILL BE REPLACED IN THE" 

2478 PRINT " MAZE RANDOMLV. " 

2480 PRINT 

2498 PRINT "IF THE THONKV ABSORBS VOU. . . VOU LOSE " 

2588 PRINT "IF VOU LAND ON THE OBJECTIVE SQUARE VOU WIN " 

2518 PRINT 

2520 PRINT "GOOD LUCK!" 

2538 PRINT8979, "HIT RNV KEV TO CONTINUE"; 

2548 IF INKEV*=" THEN 2548 ELSE OS 

2556 RETURN 

2568 REM <** SUBROUTINE TO GET 2 RANDOM NUMBERS 

2576 LET Z=INT(RND(0)*15+i) 

2588 LET H=INT(RND(8)*15+1) 

2598 RETURN 

2680 END 
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Two-to-Ten is a game of chance 
played with a special deck of cards with 
only the cards 2-10. The game is similar 
to blackjack in that you are drawing 
cards and trying to come as close as 
possible to a goal number (chosen at 
random before each round) without 
going over it. You must come within a 
certain number of points of the goal 
number determined by a "lucky-limit" 
card. The catch to the game is that you 
are not given the exact value of the goal 
number but rather a clue that is only 
within 15% of the goal. 

Can you think of a way to make Two- 
to-Ten more interesting? Perhaps play- 
ing it against the computer as an 
opponent? 

Two-to-Ten appeared in Creative 
Computing, Nov/Dec 1976. 

TWO TO TEN 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



DO VOU NEED INSTRUCTIONS? VES_ 

. els ■ 



PLACE VOUR BET 



VOU HAVE * 200 TO SPEND. ? 100 



VOUR 'LUCKV LIMIT' CARD IS fi 5 

VOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 

HERE WE GO 

CARD « 3 IS A 18 VOU ARE TRVING TO COME NEAR 46 
VOUR TOTAL IS 22 DO VOU WANT TO CONTINUE? V_ 



■ els • 



PLACE VOUR BET 



VOU HAVE * 280 TO SPEND. ? 100 



TWO TO TEN 



VOUR 'LUCKV LIMIT' CARD IS A 5 

VOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 



HELCOME TO THE GAME OF TWO TO TEN. THAT NAME COMES FROM THE 
SPECIAL 'DECK OF CARDS' USED. THERE ARE NO FACE CARDS - ONLV 
THE CARDS 2-10. THIS GAME IS EASV AND FUN TO PLAV IF VOU 
UNDERSTAND WHAT VOU ARE DOING SO READ THE INSTRUCTIONS 
CfiREFULLV. 

AT THE START OF THE GAME, VOU BET ON WINNING. TVPE IN ANV 
NUMBER BETWEEN 8 AND 200. I THEN PICK A RANDOM NUMBER 
VOU ARE TO REACH BV THE SUM TOTAL OF MORE CARDS CHOSEN. 
BECAUSE OF THE RARE CHANCE OF VOU GETTING TO THAT NUMBER 
EXACTLV, VOU ARE GIVEN AN ALLOWANCE CARD. THE OBJECT OF 
THE GAME OF TO GET THE TOTAL OF CARDS WITHIN THE MVSTERV 
NUMBER WITHOUT GOING OVER. 

PRESS ANV KEV TO CONTINUE 



■ els 



VOU ARE GIVEN A HINT AS TO WHAT THE NUMBER IS. THIS IS NOT 
THE EXACT NUMBER ONLV ONE CLOSE. ALL VOU DO IN THIS GAME IS 
DECIDE WHEN TO STOP. AT THIS POINT VOUR TOTAL IS COMPARED 
MITH THE NUMBER AND VOUR WINNINGS ARE DETERMINED. 

PLACE VOUR BET VOU HAVE * 200 TO SPEND. ? 100 

VOUR 'LUCKV LIMIT' CARD IS A 5 

VOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 

(ERE WE GO 

CARD # 1 IS A 7 VOU ARE TRVING TO COME NEAR 46 
VOUR TOTAL IS 7 DO VOU WANT TO CONTINUE? V_ 



PLACE VOUR BET 



VOU HAVE $ 200 TO SPEND. ? 106 



VOUR 'LUCKV LIMIT' CARD IS A 5 

VOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 

HERE WE GO 

CARD # 2 IS A 5 VOU ARE TRVING TO COME NEAR 46 
VOUR TOTAL IS 12 DO VOU WANT TO CONTINUE? V_ 
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(ERE WE GO 

CARD # 4 IS A 6 VOU ARE TRVING TO COME NEAR 46 
VOUR TOTAL IS 28 DO VOU WANT TO CONTINUE? V. 
els 



PLACE VOUR BET 



VOU HAVE * 200 TO SPEND. ? 100 



VOUR 'LUCKV LIMIT' CARD IS A 5 

VOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 

HERE WE GO 

CARD « 5 IS A 7 VOU ARE TRVING TO COME NEAR 46 
VOUR TOTAL IS 35 DO VOU WANT TO CONTINUE? V. 

els 



PLACE VOUR BET 



VOU HAVE % 



TO SPEND. ? 100 



VOUR 'LUCKV LIMIT' CARD IS A 5 

VOU MUST CONE WITHIN 5 WITHOUT GOING OVER TO WIN. 

HERE WE GO 

CARD ft 6 IS A 9 VOU ARE TRVING TO COME NEAR 46 
VOUR TOTAL IS 44 DO VOU WANT TO CONTINUE? N. 



PLACE VOUR BET 



VOU HAVE t 260 TO SPEND. "> 106 



VOUR 'LUCKV LIMIT' CARD IS A 5 

VOU MUST COME WITHIN 5 WITHOUT GOING OVER TO WIN. 

HERE WE GO 

CARD # 6 IS A 9 VOU ARE TRVING TO COME NEAR 46 
VOUR TOTAL IS 44 DO VOU WANT TO CONTINUE? N 

VOU WIN! THE CARD WAS 44 , VOUR GUESS TOTAL WAS 44 
WITHIN VOUR LIMIT CARD. 

VOU NOW HAVE $ 300 IN CASH TO BET IN THE NEXT GAME! 
MOULD VOU LIKE TO PLAV THE NEXT GAME? N. 



• els ■ 



10 CLS: PRINT0411, "TWO TO TEN" 

28 PRINT: PRINT TAB<7> "COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, 

36 PRINT9960, ""; : INPUT "DO VOU NEED INSTRUCTIONS"; I* 

49 IF LEFT*<I*,1)="N" THEN 27B 

58 CLS: PRINT TAB<27>"TW0 TO TEN": PRINT 

50 PRINT "WELCOME TO THE GAME OF TWO TO TEN. THAT NAME COMES FROM THE" 
78 PRINT "SPECIAL 'DECK OF CARDS' USED. THERE ARE NO FACE CARDS - ONLV" 
88 PRINT "THE CARDS 2-10. THIS GAME IS EASV AND FUN TO PLAV IF VOU" 

98 PRINT "UNDERSTAND WHAT VOU ARE DOING SO READ THE INSTRUCTIONS" 

160 PRINT "CAREFULLV. " 

110 PRINT 

128 PRINT "AT THE START OF THE GAME, VOU BET ON WINNING. TVPE IN RNV" 

130 PRINT "NUMBER BETWEEN AND 208. I THEN PICK A RANDOM NUMBER" 

148 PRINT "VOU ARE TO REACH BV THE SUM TOTAL OF MORE CARDS CHOSEN. " 

150 PRINT "BECAUSE OF THE RARE CHANCE OF VOU GETTING TO THAT NUMBER" 

160 PRINT "EXACTLV, VOU ARE GIVEN AN ALLOWANCE CARD. THE OBJECT OF" 

170 PRINT "THE GAME OF TO GET THE TOTAL OF CARDS WITHIN THE MVSTERV" 

180 PRINT "NUMBER WITHOUT GOING OVER. " 

198 PRINT§979, "PRESS ANV KEV TO CONTINUE"; 

280 IF INKEV*="" THEN 200 ELSE CLS 

210 PRINT "VOU ARE GIVEN A HINT AS TO WHAT THE NUMBER IS. THIS IS NOT" 

220 PRINT "THE EXACT NUMBER ONLV ONE CLOSE. ALL VOU DO IN THIS GAME IS" 

230 PRINT "DECIDE WHEN TO STOP. AT THIS POINT VOUR TOTAL IS COMPARED" 

240 PRINT "WITH THE NUMBER AND VOUR WINNINGS ARE DETERMINED. " 

250 PRINT0979, "PRESS ANV KEV TO CONTINUE"; 

260 IF INKEV*=»" THEN 260 

270 CLS: M=200 

280 D=0 

230 T=0 

300 O=INT(10*RNDC0>>+25 

310 N=INT(O*RND(0))+O 

320 R=(INT<15*RND<0»+1V100 

330 S=INT(2*RND<0>+1) 

340 IF S O 1 THEN 370 

350 E=INKN-<N*R» 

368 GOTO 380 

370 E=INT(N+(N*R>> 

380 A=INT(9*RND<0)+2) 

390 CLS: PRINT 

400 PRINT "PLACE VOUR BET 

410 INPUT B 

420 PRINT 

430 IF B<8 THEN 470 



440 IF M>=B THEN 498 
NJ" 458 CLS: PRINT "VOU CAN'T BET MORE THAN VOU'VE GOT'" 
460 GOTO 480 

470 CLS: PRINT "VOU MAV NOT BET AGAINST VOURSELF. " 
488 GOTO 408 

490 PRINT "VOUR 'LUCKV LIMIT' CARD IS A "; A 

500 PRINT "VOU MUST COME WITHIN "; A; " WITHOUT GOING OVER TO WIN " 
518 PRINT 

520 PRINT "HERE WE GO" 
530 PRINT 
540 D=D+1 

550 C=INT(9*RND<0)+2) 

560 PRINTC512, "CARD #"; D; "IS A "; C, " VOU ARE TRVING TO COME NEAR 
570 T=T+C 

580 IF K=N THEN 610 

590 PRINT "VOUR TOTAL IS OVER THE NUMBER "; N; » AN AUTOMATIC LOSS 1 " 
688 GOTO 730 



VOU HAVE *"; M; " TO SPEND. 



DO VOU WANT TO CONTINUE"; 



N; 



, VOUR GUESS TOTAL WAS"; T 



610 PRINT "VOUR TOTAL IS "; 

62B INPUT B$ 

630 PRINT 

£40 IF LEFTSCQ*, 1>=»V" THEN 530 

650 IF TCN-A OR T>N THEN 700 

668 PRINT "VOU WIN! THE CARD WAS ' 

670 PRINT "WITHIN VOUR LIMIT CARD. ' 

683 M=M+B 

6SB GOTO 740 

700 PRINT "VOU BLEW IT! THE NUMBER WHS"; N; », OUTSIDE VOUR LIMIT BV 

718 PRINT (N-A)-T 

728 PRINT 

720 M=M-B 

740 PRINT "VOU NOW HAVE $"; M; » IN CASH TO BET IN THE NEXT GAME 1 " 

758 IF M<=0 THEN 820 

768 PRINT "WOULD VOU LIKE TO PLAV THE NEXT GAME"; 

770 INPUT Q$ 

780 IF LEFT$<Q$, i)=»V" THEN 280 

790 PRINT'HOPE VOU HAD FUN"; 

880 GOTO 840 

810 PRINT 

820 PRINT CHR$(7>; 

838 PRINT "VOU ARE BROKE!! VOU MAV NOT PLAV ANVMORE!!" 

848 FOR XX=1 TO 2080: NEXT XX: END 
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UFO is a strategy game in which you 
play against the computer in a life-and- 
death struggle for superiority of space. 
It takes place after a space war with 
another planet in which both earth and 
the attacker's planet are destroyed. 
Both planets— basically similar in 
strength, social structure, and scientif- 
ic awareness— realizing they are 
doomed, launch a "lifeboat" intospace. 
The lifeboats are equally armed and 
powered. 

However, the aliens are much better 
marksmen, hitting once out of every 
two shots (in lines 1230-1250, the 
computer's odds are set). The reason is 
as follows. The enemy ship's decision is 
made by the program; the enemy will 
only retreat if he feels you are ramming 
and will approach only if you are 
running and/or his fuel is running out 
(smaller weaponry eats up less fuel). He 
will only use option 6 (no move but 
gains fuel) if his energy is below a 
certain point. In other words, you can 
think, while he cannot. You have the 
advantage of your mind, so thealien has 
been given the advantage of a good 
steady aim. 

The game is set in the future: civiliza- 
tion is destroyed, 150 people are left, 
and you are in command. The enemy 
has never truly been seen, as many 
enemies are never truly seen, but never- 
theless you must destroy him or be 
destroyed. Your weapons are ex- 
plained and the game begins. In your 
command ship is a control which will 
not allow you to make an illegal move. 
This control waits after you fire for the 
shot to reach the other ship and forthe 
explosion reports to reach the ship. It 
then gives a full report of power drain of 
both ships. If your power is not nega- 
tive you are still in the game but once it 
drops below zero your crew dies (the 
energy level istheamountofenergyleft 
to counteract the attack. If moreenergy 
hits the ship than was repulsed, theship 
is destroyed. If the amounts are equal 
then the ship had exactly the same 
amount of energy as the attack 
drained.) If in any game you can get 
close enough to yourenemy to useyour 
heavy guns without frightening off the 
enemy (5000-1 1000), the game will last 
for quite a long time. Theoretically this 
game will last forever if played logically. 

Written by Raymond J. Kernay, UFO 
first appeared in Creative Computing 
in Jul/Aug 1977. A modified version 
called Star Wars appeared in Sep/Oct 
1978. 



U. F. 0. 
COPYRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 

DO V0U NEED INSTRUCTIONS? VES. 

els 

U. F. 0. 

YOU RRE ABOUT TO RECEIVE HIGH SECURITY INFORMATION- 
PLEASE EAT THE COMPUTER READ OUT AFTER READING. 



THIS IS THE YEAR 2006. . . CIVILIZATION AS YOU KNOW IT HAS 
BEEN DESTROYED. . . NATIONS HAVE BEEN REDUCED TO RUBBLE 
IN A MASSIVE SPACE WAR. 

YOU ARE ONBOARD A SPACE SHIP WHOSE SOLE PURPOSE 
IS TO SAFEGUARD THE 150 PEOPLE ON YOUR SHIP. . . THE 
SOLE SURVIVORS. . . YOUR MISSION: FIND B PLANET SUITABLE 

FOR YOUR COLONISTS PROBLEM: THE ENEMY OF EARTH STILL 

EXISTS. STRRNGE CREATURES NEVER SEEN BY MAN. 
PRESS ANY KEY TO CONTINUE 



els . 



U. F. 0. 



BY THE TIME YOU READ THIS EARTH WILL NO LONGER EXIST 

HERE IS YOUR VITAL DATUM: 

YOU ARE EQUIPPED WITH 10, 000 UNITS OF ENERGY. 

WHEN YOU RUN OUT, THE ALIENS WILL DESTROY YOU. 



TYPE DESCRIPTION 

1 HERVY GUNS 

2 WARHEADS 

3 LASER 



WEAPONRY 

CRPACITY 

- 11,000 

10,000 - 100,800 

10,060 - 28,000 



FUEL DRAIN 
10 UNITS 
100 UNITS 
1000 UNITS 



PRESS ANY KEY TO CONTINUE 

els 



U. F. 0. 



OPTIONS 

APPROACH 100 UNITS 

RETREAT 100 UNITS 

BY TYPING 6 YOU CAN PASS AND GAIN 180 UNITS 
(LABORERS WORK TO PRODUCE POWER) 



ENEMY 

THE ENEMY HRS THE SAME CAPABILITIES THAT YOU HAVE. 
EACH TIME A SHIP IS HIT, ITS ENERGY DRAIN IS ESUAL TO 
THE AMOUNT OF ENERGY SPENT*10 (EXCEPT LASER WHICH EQUALS 
THE AMOUNT SPENT*} UNITS). 
PRESS ANY KEY TO CONTINUE 



■ els • 



U. F. 0. 

BOTH SHIPS ARE ON THE SAME MISSION AND DESTINATION AND BOTH 

ARE ON ESUAL TERMS. 

UNFORTUNATLY, YOU MUST KILL EACH OTHER TO WIN. 

YOUR MAXIMUM SPEED IS A JUMP OF 50, 088 UNITS, HOWEVER, 

SPEEDS VARY BETWEEN 10,888 - 50,006. 

HflRHEADS TRAVEL AT 35,060 FEET PER SEC. . . SHELLS 1,000 FEET 

PER SECOND. 

THIS MESSAGE WAS RECORDED. EARTH IS DEAD. . . GOOD LUCK. . 



THIS IS COMPUTER CONTROL. WHAT IS YOUR NAME? ABDULA_ 
els — 
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188, 582 MI 



->• 



23,246 MI 



->: 



STATUS OF SHIP IB, 800 ENEMV SHIP'S STATUS . . 18, i 

WAT ARE VOUR ORDERS, ABDULfi? 2. 

els 



100,582 MI 



STATUS OF SHIP 10, 008 ENEMV SHIP'S STATUS . . . 18, i 

LETS NOT CRACK UNDER PRESSURE. 



- els • 



100, 582 MI 



STATUS OF SHIP 18, BOB 

NHAT ARE VOUR ORDERS, ABDULA? 3 

LASER FIRED: MISSED TOO Bl 

ENEMV FIRES LASERS. . . . 



ENEMV SHIP'S STATUS ... 10,1 



■ els 



108, 582 MI — 



— >■ 



STATUS OF SHIP 6,( 



ENEMV SHIP'S STATUS . . 9, 



LASER FIRED: MISSED. TOO BAD! 

ENEMV FIRES LASERS. . . . DIRECT HIT. .... POWER DOWN 



■ els • 



STATUS OF SHIP 3, 808 ENEMV SHIP'S STATUS ... ?, I 

WAT ARE VOUR ORDERS, ABDULA? 2_ 



■ els • 

<-- 



33,246 MI 



STATUS OF SHIP 3, 800 ENEMV SHIP'S STATUS . . 7, i 



HHAT ARE VOUR ORDERS, ABDULA? 2 
HARHEAD LAUNCHED 



■ els - 



33,246 MI 



STATUS OF SHIP 



388 ENEMV SHIP'S STATUS .. . A,. 



HARHEAD LAUNCHED DIRECT HIT ENEMV SHIP'S POWER I 

ENEMY WARHEAD FIRED. . . DIRECT HIT!. . . POWER DOWN. 



• els ■ 



33, 246 MI 



STATUS OF SHIP 



380 ENEMY SHIP'S STATUS ... 4, 300 



HHAT ARE VOUR ORDERS, ABDULA? 2 

HARHEAD LAUNCHED MISSED TOO BAD! 



100,582 MI 



— 33, 246 MI 



STATUS OF SHIP 5,1 



ENEMV SHIP'S STATUS . . 8, £ 



LASER FIRED: MISSED TOO BAD) 

ENEMV FIRES LASERS. . . . MISSED. . . WHEW! ! 



• els • 



STATUS OF SHIP 



200 ENEMV SHIP'S STATUS .. 4,288 



WAT ARE VOUR ORDERS, ABDULA? 2 

HARHEAD LAUNCHED DIRECT HIT. .... ENEMV SHIP'S POWER DOWN 

ENEMY WARHEAD FIRED. . . DIRECT HIT!. . . POWER DOWN 

ENEMV IS VICTOR. . . . LIFE SUPPORT FADING CREW DVING 



PLAY AGAIN? NO_ 
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10 CLEAR 386: CLS: PRINTO413, "U. F. 0. " 

20 PRINT: PRINT TAB(7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

30 PRINTO960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; It 

49 DIM PCD 

50 E$=STRING$(6, 176)+CHR$(26)+STRING$C4, 24)+STRING$(7, 191) 

60 E*=E*+STRING*(3, 148)+CHR*<26)+STRING$(12, 24)+STRING$(6, 131) 

70 Y*=STRING$(6, 176)+CHR$(26)+STRING*(12, 24)+STRING$(3, 140) 

80 Y$=Y*+STRING*(7, 191)+STRING$<4, 24>+CHR*(26)+STRING$(6, 131) 

98 REM UFO 

100 IF LEFT*(I*,1)="N" THEN CLS: GOTO 628 

118 CLS: PRINT TABC29); "U. F. 0. "• PRINT 

120 PRINT "VOU ARE ABOUT TO RECEIVE HIGH SECURITV INFORMATION. " 

130 PRINT "PLEASE EAT THE COMPUTER READ OUT AFTER READING. " 

140 PRINT: PRINT: PRINT 

150 PRINT "THIS IS THE VEAR 2000. . . CIVILIZATION AS VOU KNOW IT HAS" 

160 PRINT "BEEN DESTROYED. . . NATIONS HAVE BEEN REDUCED TO RUBBLE" 

170 PRINT "IN A MASSIVE SPACE WAR. " 

188 PRINT " VOU ARE ONBOARD A SPACE SHIP WHOSE SOLE PURPOSE" 

198 PRINT "IS TO SAFEGUARD THE 150 PEOPLE ON VOUR SHIP. . . THE" 

200 PRINT "SOLE SURVIVORS. . . VOUR MISSION: FIND A PLANET SUITABLE" 

as PRINT "FOR VOUR COLONISTS PROBLEM: THE ENEMV OF EARTH STILL" 

220 PRINT "EXISTS. STRANGE CREATURES NEVER SEEN BV MAN. " 

238 PRINT0979, "PRESS ANV KEV TO CONTINUE"; 

240 IF INKEY*="" THEN 240 ELSE PRINTO128, CHRSGl); 

258 PRINT "BV THE TIME VOU READ THIS EARTH WILL NO LONGER EXIST " 

268 PRINT "HERE IS VOUR VITAL DATUM:" 

270 PRINT TABC10); "VOU ARE EQUIPPED WITH 10, 000 UNITS OF ENERGV. " 

280 PRINT TAB(10); "WHEN VOU RUN OUT, THE ALIENS WILL DESTROV VOU. " 

290 PRINT: PRINT: PRINT: PRINT TAB<25); "WEAPONRY" 

300 PRINT "TVPE"; TAB(5); "DESCRIPTION"; TBB<25); "CAPACITY"; TAB(40); 

310 PRINT "FUEL DRAIN" 

320 PRINT " 1"; TABC5); "HEAVY GUNS"; TBB(24); "8 - 11, 800"; TAB(40); 

330 PRINT "18 UNITS" 

340 PRINT " 2"; TABC5); "WARHEADS"; TAB(21); "10, 080 - 100, 008"; 

350 PRINT TABC40); "108 UNITS" 

360 PRINT " 3"; TABC5); "LASER"; TAB(22); "18, 088 - 20, 000"; TABC48); 

370 PRINT "1880 UNITS" 

380 PRINTH979, "PRESS ANY KEY TO CONTINUE"; 

398 IF INKEY$="" THEN 390 ELSE PRINT9128, CHR$(31); 

400 PRINT: PRINT TAB(25); "OPTIONS" 

410 PRINT " 4"; TAB(5); "APPROACH"; TABC17); " "; TBBC26); 

420 PRINT "188 UNITS" 

438 PRINT " 5"; TBB<5); "RETREAT"; TBB<17); " "; TABC26); 

448 PRINT "188 UNITS" 

458 PRINT " 6"; TAB<5); "BY TYPING 6 YOU CAN PASS AND GAIN 188 UNITS" 

460 PRINT TABC5); "(LABORERS WORK TO PRODUCE POWER)" 

478 PRINT: PRINT TflB(25); "ENEMY" 

480 PRINT: PRINT "THE ENEMV HAS THE SAME CAPABILITIES THAT VOU HAVE. " 

490 PRINT "EACH TIME fl SHIP IS HIT, ITS ENERGY DRAIN IS EQUAL TO" 

508 PRINT "THE AMOUNT OF ENERGY SPENT*10 (EXCEPT LASER WHICH EQUALS" 

510 PRINT TABGB); "THE AMOUNT SPENT*3 UNITS). " 

520 PRINTC979, "PRESS ANY KEY TO CONTINUE"; 

538 IF INKEY*="" THEN 538 ELSE PRINTO128, CHR*<31); 

540 PRINT "BOTH SHIPS ARE ON THE SAME MISSION AND DESTINATION AND BOTH" 

550 PRINT "ARE ON EQUAL TERMS. " 

568 PRINT "UNFORTUNATLV, YOU MUST KILL EACH OTHER TO WIN. " 

578 PRINT "YOUR MAXIMUM SPEED IS A JUMP OF 50, 888 UNITS, HOWEVER, " 

538 PRINT "SPEEDS VARY BETWEEN 10, 800 - 50, 080. " 

590 PRINT "WARHEADS TRAVEL AT 35, 008 FEET PER SEC. . . SHELLS 1, 000 FEET" 

600 PRINT "PER SECOND. " 

610 PRINT "THIS MESSAGE WAS RECORDED. EARTH IS DEAD. . , GOOD LUCK. . . " 

620 PRINTS76S, "THIS IS COMPUTER CONTROL. WHAT IS YOUR NAME"; 

630 INPUT AS: P=10080: P(l)=10000: A=RND(0)*200800 

648 CLS: PRINTC576, STRINGK64, 140) ■ PRINTS135, E$: PRINT8181, Y* 

658 FOR 1=1 TO 2: PRINT TAB(12); "'"; TAB(53); ":": NEXT: GOTO 718 

658 PRINT6468, ":"; 

670 PRINT USING "< ###,### MI >:";A 

688 PRINT0640, ""; PRINT USING "STATUS OF SHIP «#,###"; P 

690 PRINTS674, ""; PRINT USING "ENEMY SHIP'S STATUS .. ##,###"; P(l) 

708 FOR 1=1 TO 1088: NEXT: RETURN 

710 GOSUB 668: PRINT8768, "WHAT ARE YOUR ORDERS, "; A$; CHR$(31); 

720 INPUT C 

730 O=INT(RND<0)*2)+1 

?40 ON C GOTO 760,860,978,1070,1120,1188 

758 PRINT "LETS NOT CRACK UNDER PRESSURE. " ■ GOTO 710 

760 IF A>11805 THEN 758 

778 P=P-10 

780 PRINT "GUNS FIRED:" 

790 F*="*=- "' FOR 1=4 TO 26: FOR 11=1 TO 10: NEXT II 

888 PRINT0238-I, F$; NEXT I : PRINT8238-I, " "; 

810 PRINT0845, ""; 

820 IF 0=1 THEN 848 

838 PRINT "MISSED TOO BAD! " • GOTO 1198 



848 PRINT "DIRECT HIT ENEMY SHIP'S POWER DOWN. » 

850 P(1)=P(1)-1B8: GOTO 1198 

868 IF AM08888 THEN 758 

878 IF H<10088 THEN 758 

888 P=P-168: PRINT "WARHEAD LAUNCHED"' FOR X=l TO A*2 STEP 35868 

890 NEXT X 

980 F*="<~ "' FOR 1=4 TO 26: FOR 11=1 TO 10: NEXT II 

910 PRINT0238-I, F$; NEXT I : PRINT8238-L " 

920 PRINT8850, ""; 

938 IF 0=1 THEN 948 ELSE PRINT "MISSED TOO BAD!"' GOTO 1198 

948 PRINT "DIRECT HIT ENEMY SHIP'S POWER DOWN. " 

950 P(1)=P(1)-1000 

960 GOTO 1190 

970 IF AC100000 THEN 750 

980 P=P-1000 

990 PRINT "LASER FIRED: "; 

1888 FS=""- FOR 1=1 TO 26: F*=F*+"="' PRINT9238-L F*; : NEXT 

1818 F*=""- FOR 1=1 TO 26. F*=F$+" »: PRINT8238-I, F*; NEXT 

1828 PRINTC845, ""; 

1630 IF 0=1 THEN 1050 

1040 PRINT "MISSED TOO BAD!" • GOTO 1198 

1050 PRINT "DIRECT HIT ENEMY SHIP'S POWER DOWN. " 

1060 P(l)=P(l)-3000: GOTO 1190 

1070 B=RND(0)*40800+10880: A=B-B: P=P-188: IF AC1 THEN 1188 

1888 PRINT "SHIP BPROHCHING" 

1898 GOTO 1198 

1188 CLS: PRINT "*** COLLISION ***":PRINT "BOTH SHIPS DESTROYED!" 

1118 GOTO 1530 

1128 B=RND(8>*40808+18ee0: H=A+B: P=P-100: IF A>200050 THEN 1150 

1138 PRINT "SHIP RETREATING. " 

1148 GOTO 1190 

1158 PRINT A*; ", YOUR RANGE IS"; A; " WE CANNOT RUN. RANGE IS "; 

1168 PRINT"268808" 

1178 A=206800: GOTO1190 

1188 PRINT "SHIP AT REST. "• P=P+188 

1190 IF P(1)<1 THEN 1560 

1280 IF P(1X500 THEN 1488 

1218 IF H<5880 THEN 1518 

1220 R=INT(RND(8)*3)+1: 0=INT(RND(8)*2+1) 

1238 ON R GOTO 1480, 1338 

1248 IF R=2 THEN 1330 

1250 IF A<10B888 THEN 1228 

1260 P(1)=P(1)-1680 

1270 PRINT "ENEMY FIRES LASERS. . . . "; 

1288 F$=""- FOR 1=1 TO 26: F*=F$+"="' PRINT0211, F*; NEXT 

1298 F*=""' FOR 1=1 TO 26: F$=F*+" ": PRINT§211, F$; NEXT 
1308 PRINTS918, ""; 

1318 IF 0=1 THEN 1328 ELSE PRINT "MISSED. .. WHEW! !"• GOTO 1470 

1320 PRINT "DIRECT HIT POWER DOWN"' P=P-3880: GOTO 1470 

1330 IF A>100808 THEN 1228 ELSE IF A<18088 THEN 1228 

1340 P(1)=P<1)-188: PRINT "ENEMY WARHEAD FIRED. ..." 

1358 F*=" — >": FOR 1=1 TO 23: FOR 11=1 TO 18: NEXT II 

1368 PRINT8218+I, F*; NEXT I: PRINT0210+I, " "; 
1378 PRINT8918, ""; 

1380 IF 0=1 THEN 1390 ELSE PRINT "MISSED... WHEW!"' GOTO 1470 

1390 P=P-188B: PRINT "DIRECT HIT!... POWER DOWN. "■ GOTO 1478 

1408 IF AM1008 THEN 1228 ELSE P(1)=P(1)-18 

1418 PRINT "ENEMY FIRES SHELL. ..." 

1428 F$=" -=*"' FOR I=1T0 22: FOR 11=1 TO 18: NEXT II 

1430 PRINT0210+I, F*; NEXT I : PRIHT0210+I, " "; 

1440 PRINT8918, ""; 

1450 IF 0=1 THEN 1460 ELSEPRINT "MISSED. .. WHEW! "' GOTO 1470 

1460 PRINT "DIRECT HIT .... POWER DOWN. " ' P=P-188 

1478 IF P<1 THEN 1588 ELSE GOTO 718 

1488 P(1)=P(1)+100: PRINT "ENEMY SHIP RESTING. "• GOTO 1478 

1490 B=INT(RND(0)*40000+10000: A=A-B: PRINT "ENEMY SHIP APPROACHING" 

1508 GOTO 1478 

1518 B=RND(8)*40088+10000: H=A+B: PRINT "ENEMY SHIP RETREATING. " 

1528 GOTO 1470 

1530 PRINT "THAT WAS A PRETTY DUMB THING TO DO, "; A$;B$;«; ". » 

1540 PRINT "VOUR MISSION IS TO PROTECT YOUR PASSENGERS, NOT DESTROY. 

1558 GOTO 1598 

1560 PRINT "ENEMY SHIP'S POWER GONE NO LIFE PRESENT. " 

1570 PRINT "MISSION SUCCESSFUL!"; GOTO 1590 

1588 PRINT "ENEMY IS VICTOR. . . . LIFE SUPPORT FADING CREW DYING. 

1590 FOR 1=1 TO 2088: NEXT: CLS 

1600 PRINT 

1618 PRINT 

1620 PRINT 

1638 PRINT "PLAY AGAIN"; 

1648 INPUT A$ 

1650 IF LEFT$(A$,1)="Y" THEN 98 

1668 END 
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Under & Over 





This Is a funny little dice game in 
which you're betting on the outcome of 
rolling two dice. You may bet on any 
number from two to twelve. If your 
number is exactly the same as shown 
on the sum of the dice, you win at four 
to one odds. If your number is under 
seven and the roll of the dice is under 
seven, you win even money. If your 
number is over seven and the roll of the 
dice Is over seven, you also win even 
money. Only a bet on seven itself can 
win at four to one. The program goes 
on until you run out of money or until 
you interrupt it. 

UNDER & OVER 

COPYRIGHT 1979 CREATIVE COMPUTING NORRISTOW NJ 
DO YOU HEED INSTRUCTIONS? YES. 



els • 



UNDER AND OVER 

THIS IS fl GAME OF UNDER BID OVER. IF YOU PICK 
UNDER OR OVER SEVEN, YOU HILL UIN EVEN HONEY. 
IF YOU PICK E'EN YOU HILL HI!! MONEY AT FOUR TO ONE 
ODDS. YOU HAVE $188 TO START WITH. GOOD LUCK! 



• els • 



PP.ESS ANY KEY TO CONTINUE 
HHAT NUMBER DO YOU WISH TO PLAY AND HOM MUCH 
DO YOU HUNT TO E£T OH THE NUMBER? 4,10_ 



. Cl8 




THE DICE HAVE NOH BEEN THROWN. THE RESULTS 
ARE AS FOLLOIE. 

DIE #1 DIE 12 SUM YOUR I TOSS 

2 4 6 4 UNDER 

««**« YOU HIN EVEN MONEY 1 ******** 
YOU NOH HAVE 1110. 

MHfiT NUMBER DO YOU HISH TO PLAY AND HON MICH 
DO YOU WANT TO BET OH THE NUMBER? 4,10. 

els 
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THE DICE HAVE HOW BEEN THROW THE RESULTS 
RRE AS FOLLOWS. 



DIE ti DIE 12 SUH VOUR « 


TOSS 


. — 





5 4 9 4 


OVER 


'.!!!! VOULOSE !!!!! 




vou hon HflVE am. 





VOU LOSE ! 



VOU HON HAVE ffl. 



THE GAME IS OVER ffl© VOU fiRE FLftT BROKE. SORPV CHARLIE, 
THIS PROVES THAT IT IS NOT GOOD TO GAMBLE. 
DO VOU HAHT TO PLftV ftGflIN? NO. 



• els 



WHAT NUMBER DO VOU WISH TO PLAY AND HON MUCH 
DO VOU HUNT TO BET OH THE NUMBER? 7.28. 



• els ■ 



THE DICE HAVE HOH BEEN THROW. THE RESULTS 
ARE AS FOLLOWS. 



DIE 81 


DIE S2 


SUM 


VOUR » 


TOSS 


4 


■i 

Mill 


5 
VOULOSE '.! 


7 


UNDER 


VOU NOH HAVE 


$88. 









HHflT NUMBER DO VOU WISH TO PLAV AND HON MUCH 
DO VOU HflHT TO BET ON THE NUMBER? 8,18. 

els 



THE DICE HflVE NOH BEEN THROW THE RESULTS 
ARE AS FOLLOWS: 



DIE II 

6 



DIE #2 



SUH VOUR I TOSS 
18 8 OVER 
******** VOU WIN EVEN MONEY ******** 



YOU NOH HflVE $96. 



HHflT NUMBER DO VOU WISH TO PLAV AND HON MUCH 
DO VOU WANT TO BET ON THE NUMBER? 9. 20. 



THE DICE HAVE NOH BEEN THROM THE RESULTS 
ARE AS FOLLOWS. 

DIE SI DIE 112 SUM VOUR t TOSS 

5 5 IB 9 OVER 

******** VOU H1H EVEN MONEY ******** 
VOU NOH HflVE $118. 

HHflT NUMBER DO YOU WISH TO PLAV AND HOH MUCH 
DO VOU HflHT TO BET ON THE NUMBER? 5,19. 



THE DICE HAVE NOH BEEH THROWN. THE RESULTS 
ARE AS FOLLOWS: 



DIE SI DIE «2 


SUM 


VOUR 1 


TOSS 


6 1 

1 I 


7 
! ! ! VOU LOSE ! 1 


5 


EVEN 


VOU NOH HflVE $188. 









WHAT NUMBER DO VOU WISH TO PLAY AND HOH HUCH 
DO VOU HflHT TO BET OH THE NUMBER? 6.10. 

els 



THE DICE HflVE NOH BEEN THROWN. THE RESULTS 
RRE AS FOLLOWS. 



DIE 11 


DIE 12 


SUM YOUR » 


TOSS 








— 


— - 


6 




11 6 
!! Y&ILOSE !!!!! 


OVER 


VOU HOH HAVE 


$98. 







WHAT NUMBER DO YOU WISH TO PLAY AND HOH MUCH 
DO VOU WANT TO BET OH THE NUMBER*' 8.96- 
— els 



THE DICE HAVE HOW BED! THROWN THE RESULTS 
ARE AS FOLLOWS. 



DIEM 
1 



DIE S2 



SUM 
5 



VOUR ) 



TOSS 
UNDER 



18 CLS 

20 CLEAR 1886 

20 PRINT 6 418, "UNDER I OVER" 

48 PRINT 

58 PRINT TAB(?)"COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOHN, NJ" 

68 PRINT 8 960,": 

70 INPUT-DO VOU NEED INSTRUCTIONS"; 1$ 

88 F$=" 8 IBM 7. 7." 

98 IF I$="N" THEN 288 

168 CLS 

118 PRINT TAB(28); "UNDER AND OVER" 

120 PRINT 

130 PRINT"THIS IS A GAME OF UNDER AND OVER IF VOU PICK" 

148 PfllHTUHDER OR OVER SEVEN, YOU HILL WIN EVEN HONEY. " 

150 PRINT"IF YOU PICK EVEN YOU WILL WIN MONEY AT FOUR TO ONE" 

168 PRINT'ODDS. VOU HAVE $180 TO START WITH. GOOD LUCK 1 " 

170 PRINT 

188 PRINT 

198 GOSUB 758 

288 CLS 

218 R=100 

220 RESTORE 

228 READ fl$, B$, C$ 

248 DATA "UNDER", "OVER", "EVEN" 

258 PRIHT'HHRT NUMBER DO VOU WISH TO PLAY AND HOH MUCH" 

260 PR1HTD0 VOU HflHT TO BET OH THE NUMBER"; 

276 INPUT B, C 

288 CLS 

298 PRINTTHE DICE HAVE NOH BEEH THROWN. THE RESULTS" 

288 PRIHTARE AS FOLLOWS:" 

318 PRINT 

228 n=IHT(6*RND(0)+l) 

228 R=INK&*RHD(8H1> 

348 PRINTDIE SI" TflB(15)«DIE S2" TRB(28)"SUH" TAB(48)"Y0UR »" TflB<55>"T0SS' 

358 PRINT" " TAB<15>" " TflB(28)"— " TftB<48>" " TAB<55>" ' 

260 IF 0+R>? THEN 410 

278 IF 6+R=7 THEN 448 

288 PRINT USING F$; Q, R, 6+R, B, A$ 

290 PRINT 

400 GOTO 460 

418 PRINT USING F$; fl, R, fi+R, B, B$ 

423 PRINT 

438 GOTO 468 

448 PRINT USING F$; Q. R, Q+R, B, C$ 

458 PRINT 

466 IF B=0+R THEN 488 

470 IF <B<7 AND Q+R<7) OR (B>7 AND Q+R>7> THEN 546 ELSE 588 

488 IF B<=6 OR B>=8 THEN 540 

498 B=fl+(4*C) 

580 PRINT TA6(28>"******** YOU WIN 4 TO 1 ***«***" 

518 PRINT 

520 GOSUB 708 

530 GOTO 628 

540 fl=fl+C 

558 PRINT TABC20V'******** VOU WIN EVEN HONEY ****«**" 

568 GOSUB 760 

578 GOTO 628 

586 B=A-C 

598 PRINT TABC28)" ! ! ! ! '. YOU LOSE ' ! ! " " 

688 GOSUB 788 

618 GOTO 620 

628 IF fl>8 THEN 220 

638 PRINTTHE GflHE IS OVER AND YOU ARE FLAT BROKE. SORRY CHARLIE. " 

646 PR1HTTHIS PROVES THAT IT IS NOT GOOD TO GAMBLE " 

658 GOTO 668 

668 PRINTDO YOU WANT TO PLAV AGAIN"; 

670 INPUT l« 

688 IF LEFT$CMt, 1)="V" THEN 200 

698 END 

700 PRINT "YOU HOH HAVE"; 

710 PRINT USING "$$#SS";A; 

726 PRINT " " 

728 PRINT 

748 RETURN 

758 PRINT § 979, "PRESS AHY KEY TO CONTINUE"; 

768 IF INKEY* ="" THEN 766 

770 RETURN 
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Van Gam 



VAN GAM is a simple game with an 
interesting solution set. The winning 
sequence pairs are formed by certain 
mutually exclusive sequences, using 
the golden mean, 



1 + 



Vs 



as an irrational 

generator. See explanation, 

210. 



lines 110- 



IF T = 1 +V5 



and X = T+ 1, Y = — + 1 

then for integers N the winning se- 
quence generators are 

INT (N * X) 25 7 10 13 

INT (N * Y) 1 34 6 8 

It is interesting tc note that the union 
of these sequences is the set of 
integers, and their intersection is 
empty. That is the case, in fact, for any 
irrational generator, but only T will 
produce winning VAN GAM pairs. The 
game is not much fun in that the 
average user will never be able to beat 
the computer in non-trivial cases, 
unless he has been taught the winning 
sequences. 

This program by Alan Brown first 
appeared in Creative Computing, 
Jan/Feb 1978. 



VBNGAM 
COPVRIGHT 1979 CREATIVE COMPUTING M0RRIST0WN, NJ 

DO VOL! NEED INSTRUCTIONS? VES. 

els 



VAN WVTHOFF'S GAME 

VOU ARE TO CREATE TWO PILES OF MATCHES, EACH CONTAINING 100 
OR LESS. VOU PLAV ALTERNATELY WITH ME, AND OUR MOVES 
CONSIST OF' 

(A) TAKING AWAV 1 OR MORE MATCHES FROM ONE PILE ONLV, 
OR 

(B) TAKING AWAV THE SAME NUMBER FROM EACH PILE. 
THE ONE WHO TAKES AWAV THE LAST MATCH OF ALL WINS. 
ENTER VOUR MOVES IN THIS MANNER: 

2L - (2 LEFT) TAKE TWO FROM LEFT PILE 
3R - (3 RIGHT) TAKE THREE FROM RIGHT PILE 
5B - (5 BOTH) TAKE FIVE FROM EACH PILE 





LEFT 


RIGHT 




14 


22 


VOUR MOVE ? 3L 






HM... 






els — 








LEFT 


RIGHT 




9 


1? 


VOUR MOVE •> 3B 






HM. .. 






els — 








LEFT 


RIGHT 




9 


15 


VOUR MOVE ? 5R_ 






HM... I TAKE: 2R 






els 








LEFT 


RIGHT 




6 


10 


VOUR MOVE ■> 2B_ 






HM. .. I TAKE: 3L 






els — 








LEFT 


RIGHT 




3 


5 


VOUR MOVE ? 3R_ 






Ht.. I TAKE: 2R 








LEFT 


RIGHT 




1 


2 


VOUR MOVE ? 1R_ 






HM. . I TAKE: 2L 






— — els — 








LEFT 


RIGHT 










SORRV - I WIN. DON'T FEEL BADLV 


' - I'M AN EXPERT. 


DO VOU WANT TO PLAV AGAIN? . 




els 







DESIRED PILE SIZES (NUMBER, NUMBER)? 26, 16 
DO VOU WANT TO GO FIRST? NO, 



■ els ■ 



PRESS ANV KEV TO CONTINUE 
els 



DESIRED PILE SIZES (NUMBER, NUMBER)? 17,22 
DO VOU WANT TO GO FIRST? VES. 



VOUR MOVE ? 2B_ 
HM. .. I TAKE. 1L 
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LEFT RIGHT 
25 16 



■ els • 



VOIR MOVE ? 2B- 
HM... I TAKE. 1L 



LEFT RIGHT 
22 14 



■ els 



VOU WIN! ! 

CONGRATULATIONS. VOU ARE A VERY CLEVER VAN WVTHOFF'S 
QAtCSNAN. 

DO VOU WANT TO PLAV AGAIN? NO- 



LEFT RIGHT 
19 12 



VOUR MOVE ~> 1B_ 
HI... I TAKE. 1L 



■ els ■ 



LEFT RIGHT 
1? 11 



VOUR MOVE ■> 2B_ 
HI. .. I TAKE. 1L 



VOUR MOVE ' IB. 
HM... I TAKE. 1L 



VOUR MOVE ' 2B- 
W. . I TAKE: 1L 



VOUR MOVE ? 28- 
m. .. I TAKE: 1L 



VOUR MOVE ? 1B_ 
HI... I TAKE: 1L 



LEFT RIGHT 
14 9 



■ els • 



LEFT RIGHT 
12 8 



■ els ■ 



LEFT RIGHT 
9 6 



LEFT RIGHT 
6 4 





— CIS 

LEFT 


RIGHT 












4 


3 


VOUR MOVE ' 2B- 






H1. .. I TAKE: 1L 








LEFT 


RIGHT 




1 


1 


VOUR MOVE ' IB. 






HM. .. I TAKE. 1L 








LEFT 


RIGHT 




8 





VOUR MOVE ? IB 






HM. .. 








LEFT 


RIGHT 










VOUR MOVE "> IB 






KM. . . 


els 





18 CLS. PRINT8413, "VANGAM" 

20 PRINT: PRINT TBB<7> "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

38 PRINT§960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; I* 

46 DIM G(200) 

58 X=Cl+SQR<5))/2: Y=l+1/X: X=l+X 

68 FOR 1=0 TO 99 

70 aa*2)=INTCI*X):S<I*2+l)=INT<I*Y) 

88 NEXT I: T=0 

90 IF LEFWI*, 1)="N" THEN CLS: GOTO 220 

100 CLS: PRINT TAB<23); "VAN WVTHOFF'S GAME"' PRINT 

110 PRINT "VOU ARE TO CREATE TWO PILES OF MATCHES, EACH CONTAINING 188" 

128 PRINT "OR LESS. VOU PLAV ALTERNATELY WITH ME, AND OUR MOVES" 

138 PRINT "CONSIST OF" 

140 PRINT TAB<10);"(A) TAKING BWAV 1 OR MORE MATCHES"; 

150 PRINT " FROM ONE PILE ONLY, OR" 

169 PRINT TAB<10); "<B> TAKING BWAV THE SAME NUMBER FROM EACH PILE. " 

170 PRINT "THE ONE WHO TAKES AWAV THE LAST MATCH OF ALL WINS. " 
136 PRINT "ENTER VOUR MOVES IN THIS MANNER:" 

190 PRINT TflB<10); "2L - <2 LEFT) TAKE TWO FROM LEFT PILE" 
280 PRINT TAB<10>; "3R - (3 RIGHT) TAKE THREE FROM RIGHT PILE" 
218 PRINT TAB<10); "58 - (5 BOTH) TAKE FIVE FROM EACH PILE" 

220 PRINT0979, "PRESS ANY KEV TO CONTINUE"; 

221 IF INKEV$="" THEN 221 ELSE CLS 

230 CLS: INPUT "DESIRED PILE SIZES (NUMBER, NUMBER) "; SI, S2 

240 L=S1: R=S2 

250 IF L+R>5 THEN 270 

260 PRINT "OH, YOU'RE A SPORT, YOU ARE. " 

270 INPUT "DO YOU WANT TO GO FIRST"; Bf: CLS 

288 PRINT: PRINT TAB<27); "LEFT RIGHT" 

298 PRINT TBBC27); " " 

3B8 PRINT TABC27); L, TRB<33); R 

318 P=L*2: IF L>R THEN 330 

320 P=R*2 

330 IF LEFTKB*, 1>="N" THEN 538 

340 IF L=R THEN PRINT "VOU LIKE SITTING DUCKS, DON'T VOU?" 

350 PRINT0512, "YOUR MOVE \CHR$(30); INPUTB*: PRINT CHR*(31); 

366 FOR X=l TO LEN<B« 

378 IF ASCCMID*<B*,X,1)X48 OR BSC(HID*<B*,X,1))>57 THEN 398 

388 NEXT X 

398 S3=VAL<MID«B*,1,X-1>) 

4S0 IF S3=0 THEN 440 

418 IF MID$<B$,X,1)="L" THEN 468 

420 IF MID$CB*, X, 1)="R" THEN 480 

430 IF MID$(B*,X,1)="B" THEN 500 

440 T=T+1: IF T>2 THEN 1170 

450 PRINT: PRINT "IMPROPER ENTRY, STOP FOOLING AROUND. "■ GOTO 350 

460 IF S3>L THEN 440 

470 L=L-S3: GOTO 520 

480 IF S3>R THEN 440 

490 R=R-S3: GOTO 520 

5O0 IF S3>L THEN 440 

518 L=L-S3: GOTO 488 

528 PRINT0219, L,TAB<34);R 

530 PRINT8576, "HM. . , "; 

548 FOR 1=1 TO 500: A=A+I : NEXT I 

550 IF L+R>0 THEN 600 

560 PRINT: PRINT: PRINT "VOU WIN!!"' PRINT 



578 PRINT "CONGRATULATIONS. 

580 PRINT "GAMESMAN. " 

598 GOTO 1128 

60S 1=0: 11=0 

610 IF Q(I)=L THEN 660 

620 IF 0(I+1)=L THEN 680 

636 IF <KI)=R THEN 780 

S40 IF Q<I+1)=R THEN 728 

658 1=1+2: GOTO 618 

668 L1=I: L2=l: IF M=l THEN 748 

678 M=l: GOTO 638 

680 L1=I: L2=8: IF M=l THEN 748 

690 M=l: GOTO 630 



YOU ARE A VERY CLEVER VAN WVTHOFF'S" 
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760 R1=I: R2=l: IF M=l THEN 748 

716 11=1: GOTO 650 

720 R1=I: R2=8: IF 11=1 THEN 746 

730 M=l: GOTO 650 

740 IF L=R THEN 800 

758 IF R1=L1 THEN 1030 

760 IF L1>R1 THEN 810 

770 P=L1+L2 

780 IF G(P»R THEN 846 

790 M=R-Q(P> ■ R=0<P) ■ A*="R" ■ GOTO 1060 

880 M=L. 1=0: R=0: A$="B"' GOTO 1060 

818 P=R1+R2 

820 IF Q(P»L THEN 840 

830 M=L-CKP) ■ L=S(P) • A*="L" ■ GOTO 1060 

840 11=0: A$="B" 

S50 P=L1: IF RKL1 THEN P=R1 

860 P=P-2: G=0 

870 M=t1+1: L=L-1: R=R-1 

880 FOR I=P TO STEP -2 

890 IF 0(D=L THEN 940 

906 IF Q(I+1)=L THEN 960 

910 IF EKI)=R THEN 980 

920 IF Q<I+1)=R THEN 1008 
930 NEXT I : GOTO 870 

946 IF QCI+1)=R THEN I860 

950 GOTO 1010 

960 IF S(D=R THEN 1060 

978 GOTO 1010 

980 IF Q(I+1)=L THEN 1060 

990 GOTO 1010 

1000 IF Q(I)=L THEN 1060 

1010 IF G=l THEN 860 

1020 G=l: GOTO 870 

1030 IF L>R THEN 1050 

1040 R=R-1: H=l: A$="R"- GOTO I860 

1050 L=L-1: M=l: A$="L" 

I860 B$="- IF tl>9 THEN 1150 

1070 B$=CHR$(M+48) 

1080 B*=B*+R* 

1090 PRINT "I TAKE: ";TflB<14>;B*: PRINTC219, L,TABG4);R 

1100 IF L+R>0 THEN 350 

1110 PRINT: PRINT "SORRV - I WIN. DON'T FEEL BflDLV - I'M AN EXPERT " 

1120 PRINT: PRINT "DO YOU WANT TO PLRV AGAIN"; CHR*<31>; INPUTS! 

1130 IF LEFT*(B$, 1>=»Y" THEN 220 

1140 GOTO 1198 

1150 B*=CHR$(INT<ri/10>+48>' B*=B*+CHR$(H-INT<ri/'10)*10+48) 

1168 GOTO 1888 

1170 PRINT: PRINT "LOOK, VOU JUST WON'T STOP FOOLING ABOUT BUZZ OFF 

1188 GOTO 1190 

1190 PRINT: PRINT "0. K. BVE NOW. " 

1260 FOR A=l TO 1000: NEXT: END 





183 



Warfish 



In this game, you're the commander 
of an American submarine with a 
mission to seek out and destroy as 
many Japanese ships as possible 
during World War II. 

You may up your periscope to search 
for Japanese ships, you may launch 
your torpedoes, or you may dive to 
avoid Japanese ships that are attacking 
you. 

For the most part, this is a game of 
random probabilities. To make it more 
interesting, you might wish to introduce 
a skill factor in terms of aiming your 
submarine or distance away from an 
enemy ship, size of the enemy ship, and 
so on. 

Warfish was written by Randy Wit. 

WflRFISH 
COPYRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 



JAPANESE AMMUNITION SHIP - 9658 TONS. 
ORDERS, COMMANDER? T0RPED0_ 



Cl9 ■ 



26 TORPEDOES LEFT. 
NUMBER OF TORPEDOES TO FIRE? 2 

2 TORPEDOES FIRED - 2 HITS - AMMUNITION SHIP SUNK. 
ORDERS, COMMANDER? PERISCOPE. 



- els 



JAPANESE TRANSPORT - 8888 TONS. 
ORDERS, COMMANDER? TORPEDO. 



DO VOU NEED INSTRUCTIONS? VES. 



__ . els — 

WflRFISH 

VOU COMMAND AN AMERICAN SUBMARINE THAT BEEN SENT OUT 
TO ATTACK JAPANESE SHIPS AT SEA DURING WORLD WAR TWO. 

THE ORDERS THAT CAN BE GIVEN ARE THE FOLLOWING: 
PERISCOPE - TO SEARCH FOR JAPANESE SHIPS. 
TORPEDO - TO LAUNCH TORPEDOES AT JAPANESE SHIPS. 
DIVE - TO ESCAPE JAPANESE SHIPS THAT ARE ATTACKING. 

THESE ARE SOME HISTORIC U. S. NAVV SUBMARINES: 

TAUTOB, SILVERSIDES, CAVALLA, BLUEFISH, THRESHER 
SWORDFISH, FLASHER, TROUT, ARCHER. 

SELECT ONE OF THE ABOVE, OR USE A NAME OF VOUR CHOICE. 
PRINT THE NAME OF VOUR SUBMARINE? TROUT. 



■ els • 



24 TORPEDOES LEFT. 
NUMBER OF TORPEDOES TO FIRE? 2 

2 TORPEDOES FIRED - 1 HITS - TRANSPORT SUNK. 
ORDERS, COMMANDER? PERISCOPE. 



- els ■ 



JAPANESE AMMUNITION SHIP - 9658 TONS. 
ORDERS, COMMANDER? TORPEDO. 



els • 



JAPANESE TORPEDO BOAT IS ATTACKING. 
ORDERS, COMMANDER? DIVE. 



■ els • 



DISTANCE OF TORPEDO BOAT 


DEPTH OF USS TROUT 




~s:2:==;s==~: 


=======:-== 






1750 VARDS 




FEET 




1588 VARDS 




25 FEET 




1250 VARDS 




50 FEET 




1080 VARDS 




75 FEET 




758 VARDS 




100 FEET 




588 VARDS 




125 FEET 




258 VARDS 




150 FEET 




8 VARDS 




175 FEET 




THE USS TROUT 


IS UNHURT. 






ORDERS, COMMANDER? PERISCOPE. 


- els 





22 TORPEDOES LEFT. 
MJMBER OF TORPEDOES TO FIRE? 10 
T™PEMES>IRED - 6 HITS - AfflJMTION SHIP SUNK 
ORDERS, COMMANDER? PERISCOPE. 



- els 



JAPANESE FREIGHTER - 6580 TONS. 
ORDERS, COMMANDER? TORPEDO. 
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12 TORPEDOES LEFT. 
NUMBER OF TORPEDOES TO FIRE? 6 

6 TORPEDOES FIRED - 3 HITS - FREIGHTER SUNK. 
JAPANESE DESTROVER IS ATTACKING. 
ORDERS, COMMANDER? TORPEDO, 

els 



THE USS TROUT HAS BEEN SUNK BV GUNFIRE. 



THE SUBMARINE USS TROUT HAS SUNK A TOTAL OF 4 SHIPS. 
TOTAL ENEMV TONNAGE SUNK: 34688 TONS 



DO VOU WANT TO TRV AGAIN? NO- 



• els • 



19 OS: PRINT6413, "HRRF1SH" 

29 PRINT: PRINT TRBC7) "COPVRIGHT 1579 CREATIVE COMPUTING HORRISTOHN, NJ" 

29 PRINT9968, "; : INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 



59REH 

68 IF LEFT«I*,i)="N" THEN OS: SOTO 198 

78 OS: PRINT TRB<28>; "HRRFISH"- PRINT 

88 PRINT "VOU COMMAND ON AMERICAN SUBMARINE THAT HAS BEEN SENT OUT" 

98 PRINT "TO ATTACK JflPANESE SHIPS RT SEA DURING WORLD HfiR THO. " 

188 PRINT 

118 PRINT "THE ORDERS THAT CRN BE GIVEN ARE THE FOLLOWING :" 

128 PRINT " PERISCOPE - TO SEARCH FOR JAPANESE SHIPS. " 

128 PRINT " TORPEDO - TO LAUNCH TORPEDOES AT JAPRNESE SHIPS. ■ 

148 PRINT " DIVE - TO ESCRPE JflPANESE SHIPS THAT RRE ATTACKING. " 

158 PRINT "THESE ARE SOME HISTORIC U.S. NAW SUBMARINES: ":PRINT 

168 PRINT " TAUTOG, SILVERSIDES, CRVRLLA, BLUEFISH, THRESHER" 

178 PRINT " SHORDFISH, FLASHER, TROUT, ARCHER ":PRINT 

188 PRINT "SELECT ONE OF THE ABOVE, OR USE A NAME OF VOUR CHOICE ■ 

198 PRINT "PRINT THE NAHE OF VOUR SUBMARINE"; 

288 INPUT A* 

219 T=2£ 

228 D=INT(RND<8>*19> 

238 IF D<6 THEN 288 

248 IF D06 RND DO? THEN 278 

258 «="DESTROVER" 

268 H=2198 

278 IF DOS THEN288 

288 R*="DESTROVER ESCORT" 

298 1H259 

388 IF D09 THEN 338 

318 R$="TORPEDO BOAT" 

328H=76 

228 IF D=6 OR D=7 THEN 268 

340 0=1 

359 GOTO 379 

369 0=2 

378 PRINPJAPANESE "; R$; " IS ATTACKING " 

388 IF D)=6 THEN 466 

298 fl=INT<RND<8>*ie> 

488 REM 

418 PRINT "ORDERS, COMMANDER"; 

428 INPUT C* 

438 CLS: C$=HID$(C$,i,l> 

448 IF «="P" THEN 488 

458 IF C$="T" THEN 1168 

468 IF C*="D" THEN 1378 

478 GOTO 418 

488 IF D>5 OR Q>8 THEN 1888 

498 IF AM THEN 578 

586 R*="FREIGHTER" 

518 IF ROB RND ROl THEN 538 

520H=6568 

528 IF A02 THEN 558 

548H=?598 

558 IF A02 THEN 578 

568 14=3168 

578 IF H07 AND AOS THEN 628 

588 R*="TANKER" 

598 IF A08 THEN 628 

688IH8898 

618 GOTO 638 

629H=9588 

638 IF A04 AND A05 THEN 698 

648 Rt="TRANSPORT" 

658 IF H05 THEN 688 

668 H=ii588 

678 GOTO 698 

688H=8888 

698 IF A06 THEN 728 

789 R*="AMMTI0N SHIP" 

718 H=9658 

728 IF fl>=9 OR R=6 THEN 748 

728 0=1 

740 IF A06 THEN 768 

758 0=1 1 85 



768 IF A<9 THEN 1888 

779 E=INT(RND(8)*iB> 

788 IF EOS THEN 816 

798 R*="BRTTLESHIP" 

899H=33588 

818 IF EOl TON 848 

828 R*="AIRCRAFT CARRIER" 

828H=25788 

648 IF E02 THEN 878 

858 R$="HEAW CRUISER" 

868H=9988 

876 IF E03 THEN 988 

888 R$="LIGHT CRUISER" 

898H=9689 

988 IF E04 AND E05 THEN 936 

918 R*="DESTROVER" 

928K=2iee 

938 IF E06 AND E07 THEN 968 

948 Rt="SU6MARINE" 

958H=i58e 

966 IF E08 AND E09 THEN 988 

978H=135e 

988 IF E<=5 THEN 1888 

998 0=1 

1888 IF E04 AND E05 THEN 1628 

1810 0=2 

1828 IF E02 AND E03 THEN 1648 

1838 0=3 

1848 IF EOl THEN 1868 

1850 W=4 

1868 IF EO0 THEN 1088 

1876 0=7 

1888 PRINT "JAPRNESE "; Rt; " -"; lb "TONS. " 

1899 GOTO 499 

1199 IF ©=4 THEN 1138 

1119 PRINT 'NO JAPRNESE SHIPS IN SIGHT - JUST OCEAN " 

1129 IF <Ki THEN 418 

1138 PRINT T; "TCWEDOES LEFT. ■ 

1148 PRINT "NUMBER OF TORPEDOES TO FIRE"; 

1158 INPUT R 

1168 IF R<8 OR T-R<8 THEN 1148 

1170 IF ROINT(R) THEN 1146 

1188 T=T-R 

1196 S=lNTCRND(e>*i8) 

1299 IF S5R THEN 1198 

1210 8=Q-S 

1226 IF Q<=8 THEN 1248 

1230 Q$="DRHAGED" 

1248 IF 9>i THEN 1289 

1258 QJ="SUHK" 

1268 0=0+U 

1278 L=L+1 

1288 PRINT R; "TORPEDOES FIRED -■; S; "HITS "; 

1298 IF SOB THEN 1310 

1388 PRINT 

1318 IF S<=8 THEN 1328 

1228 PRINT "- "; Rfc ••;»,•• 

1228 IF D>5 AND Q>0 THEN 1568 

1246 IF T<1 THEN 1588 

1358 IF Qa THEN 226 

1268 GOTO 488 

1279 IF D>=6 THEN 1299 

1388 PRINT " THE USS "; A*; " IS NOT UNDER ATTACK. " 

1398 IF IK6 THEN 419 

1468 U=INTCRND<e)*18)*256 

1418 PRINT "DISTANCE OF "; Rt; TAB<32>; "DEPTH OF USS "; A* 

1426 FOR XX=1 TO 63: PRIHT "="; ; NEXT 

1438 PRINT U; "VflRDS"; TA6<32>; 2; "FEET" 

1448U=U-258 

1458 Z=Z+25 

1468 IF IC-259 THEN 1429 

1479 IF R*="TORPEDO BOAT" THEN 1518 

1488 N=INT<RND(8)*iB>*25t58 

1490 IF N+26>Z AND N-26<Z THEN 1548 

1588 U=8: Z=8 

1518 PRINT: PRINT "THE USS "; At; " IS UNHURT. " 

1520 0=6 

1528 GOTO 228 

1549 CLS: PRINT "THE USS "; At; ■ HAS BEEN SUNK BV DEPTH CHARGES. " 

1556 SOTO 1618 

1568 FOR 1=1 TO 1593: NEXT I 

1565 CLS: PRINT "THE USS "; A*; « HAS BEEN SUNK BV GUNFIRE " 

1578 GOTO 1619 

1588 FOR 1=1 TO 1580: NEXT I 

1585 CLS: PRINT "THE USS ■; ftt; " HAS EXPENDED ALL ITS TORPEDOES. " 

1590 IF (K=0 THEN 1616 

1680 PRINT: PRINT "CONGRATULATIONS ON A SUCCESSFUL DEPLOVMENT " 

1610 PRIHT 

1620 PRINT "THE SUBMARINE USS "; At; " HRS SUNK A TOTAL OF"; b "SHIPS. ' 

1638 PRINT "TOTAL ENEMV TONNAGE SUNK: ■; 0; "TONS" 

1640 PRINT: PRINT 

1650 INPUT "DO VOU UANT TO TRV AGAIN"; RNSt 

1669 IF LEFTt(RNSt,l>="V THEN 59 ELSE END 



Word Searcl 



This program generates the im- 
mensely popular word-search puzzles 
containing names of Presidents, states, 
types of animals, fish, and every 
manner of objects. It asks you the 
length and width of the puzzle you wish 
generated and then the number of 
words to be hidden in the puzzle. As the 
instructions note, ocasionally the com- 
puter may find that it can't hide a 
particular word in the puzzle and will 
ask you if it should start over or if you 
want that particular word deleted. If 
you start over, try giving it fewer words 
or larger puzzle dimensions. The 
program hides the words fairly ef- 
ficiently although you can usually 
improve on it slightly when you get the 
final puzzle out. Since you're probably 
just using this program for fun, it's 
generally more than adequate. 

Word Search Puzzle runs best on 
a line printer, but can certainly be 
used with video only. Just don't clear 
the screen before you solve the 
puzzle! 




WORD SEARCH PUZZLE 

THIS PROGRAM IS ft WORD SEflRCH PUZZLE GENERATOR!! 
THE PROGRflM TAKES A SET OF INPUT STRINGS, PURGES ALL 
NON-aPHABETIC CHARACTERS OUT OF THEM AND INCORPORATES 
THEM INTO A WORD SEARCH PUZZLE 

IN THE COURSE OF MAKING THE PUZZLE, THE MACHINE MAV 
FIND THAT IT CAN'T PUT A PARTICULAR WORD ANVWHERE, AND- 
SO MILL ASK YOU IF IT SHOULD START THE WHOLE PUZZLE 
OVER. IF VOU DON'T WANT IT TO START OVER, TYPING 'NO' 
WILL THROW HHAY THAT PARTICULAR WORD. IF THIS PERSISTS, 
TRY EITHER GIVING LESS WORDS OR BIGGER PUZZLE DIMENSIONS! 



PRESS ANY KEY TO CONTINUE 
els 



DO VOU WANT THIS TO GO TO THE PRINTER ? YES 

HOW MANY COLUMNS DOES YOUR PRINTER HAVE ? 68 

DO YOU WANT A SOLUTION PRINTOUT? YES 

am IS TO BE THE WIDTH OF THE PUZZLE? 15 

THE LENGTH? 15 

WAT IS THE MAXIMUM NUMBER OF WORDS IN THE PUZZLE? 10 

HOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE: 

< 68 CHARACTERS MAXIMUM! ) 
? COMPUTER LANGUAGES. 



Cl8 • 



OK ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TYPE A HYPHEN <->. 
HHEN YOU RUN OUT OF WORDS, TYPE A PERIOD <. X 
NEXT WORD •> BASIC- 



els - 



This word search puzzle generator 
was originated by Leor Zolman. 



OK ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TYPE A HYPHEN <->. 
HHEN YOU RUN OUT OF WORDS, TYPE A PERIOD <. ). 
NEXT WORD ? FORTRAN- 



-BASIC- 



cls - 



WORD SEARCH PUZZLE 
COPYRIGHT 197S CREATIVE COMPUTING MORRISTOWN, NJ 



OK ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TYPE A HYPHEN <-). 
HHEN YOU RUN OUT OF WORDS, TYPE A PERIOD <. >. 
NEXT WORD ? PLI- 



DO YOU NEED INSTRUCTIONS? YES- 

_ Cl8 — 
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-BASIC- 



-FORTRAN- 



. els - 



OK ENTER ft WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE fi HVPHEN t->. 

when vou run out of words type a period <. >. 

NEXT WORD ■> COBOL. 



OK ENTER ft WORD FIT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE ft HVPHEN (-). 
WEN VOU RUN OUT OF WORDS, TVPE fi PERIOD (. ). 
NEXT WORD ? SNOBOL. 



-BfiSIC- 



-FORTRAN- 



-PLI- 



-6RSIC- 
-flSSEMBLER- 



-FORTRAN- 
-RPG- 



-PLI- 
-ALGOL- 



ola • 



-C0B0L- 
-LISP- 



OK ENTER ft WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE A HVPHEN C-). 
KHEN VOU RUN OUT OF WORDS, TVPE R PERIOD <. ). 
NEXT WORD ? ASSEMBNLER. 



OK ENTER ft WORD AT EftCH QUESTION MfiRK. 
TO REDO THE PREVIOUS WORD, TVPE fi HVPHEN <-). 
WEN VOU RUN OUT OF WORDS, TVPE ft PERIOD (.. ). 
NEXT WORD ? PILOT. 



-BfiSIC- 



-FORTRRN- 



-PLI- 



cls ■ 



-COBOL- 



-BflSIC- 

-flSSEMBLER- 

-SNOBOL- 



-FORTRflN- 
-RPG- 



-PLI- 
-BLGOL- 



-COBOL- 
-LISP- 



• els ■ 



OK ENTER fi WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE ft HVPHEN <-). 
WEN VOU RUN OUT OF WORDS, TVPE ft PERIOD (. X 
NEXT WORD ? -_ 



-BASIC- 
-ASSEMBNLER- 



-FORTRRN- 



-PLI- 



-COBOL- 



NOW LET ME PONDER THIS 

HOW MFINV COPIES OF THIS PUZZLE DO VOU WANT? 1 
FOR EACH COPV, HIT RETURN TO BEGIN PRINTING ..■> . 



■ CI8 ■ 



■ els • 



COMPUTER LANGUAGES 



OK ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE A HVPHEN <-) 
WEN VOU RUN OUT OF WORDS, TVPE A PERIOD <. ). 
REDO ASSEMBNLER. ? ASSEMBLER. 



-BflSIC- 
-flSSEMBNLER- 



-FORTRftN- 



-PLI- 



■ els 



-COBOL- 



J L N 

M P L 

F I D 

F L W 

I 

R T Z 

T Q F 

R V X 

fi C L 

N V P 

C M Z 

J L fi 

C Q M 

E P I 

D N 



V fl V 

U M G 

I V W 

fl T U 

N K V 

S L C 

Q P W 

K Z U 

F D K 

K L T 

W M 

S S E 

D B C 

G I E 

H R P 



S K G L 

Z C U W 

V D I R E 
P U P V T 
U G P W L 
E D F D N 
I T T R 
T S B R E 
F fl B fl 
L L P B H 
W V T C B 
M B L E R 
I S H K R 
U F HI 

V Z S J X 



R U Z N 

K Q L 

P B L R 

T L Z 

S N I C 

N H G 

G D B 
J F L K 

1 C K A 
R V M Q 
S R E P 
C V M B 
S Q V K 
U E F V 
Q P Z T 



OK ENTER A WORD AT EACH QUESTION MARK. 
TO REDO THE PREVIOUS WORD, TVPE fl HVPHEN <-). 
MHEN VOU RUN OUT OF WORDS, TVPE fi PERIOD (. ). 
NEXT WORD ■> RPG. 



-BfiSIC- 
-flSSEMBLER- 



-FORTRflN- 



-PLI- 



-COBOL- 



FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE: 

ALGOL ASSEMBLER BASIC 
FORTRAN LISP PILOT 
RPG SNOBOL 



COBOL 
PL I 



els ■ 



OK ENTER A WORD AT EACH QUESTION MARK. 

TO REDO THE PREVIOUS WORD, TVPE fi HVPHEN (-). 
WHEN VOU RUN OUT OF WORDS, TVPE A PERIOD <. ). 
NEXT WORD ' ALGOL- 



-BASIC- 
-ASSEMBLER- 



-FORTRAN- 
-RPG- 



-PLI- 



-COBOL- 



ols • 



HERE IS THE ANSWER KEV: 



. P 
I 
F L , 
I 



L . 

. 

R P B 

P . L 

G L S I C 



R T S C NO 

T PI G 

R S B . I 



N 



fl 



ASSEMBLER 



OK ENTER A WORD AT EACH QUESTION MARK. 

TO REDO THE PREVIOUS WORD, TVPE A HVPHEN (-). 
WHEN VOU RUN OUT OF WORDS, TVPE A PERIOD < ) 
IEXT WORD ■> LISP. 



FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE: 



-BASIC- 
-flSSEMBLER- 



-FORTRfiN- 
-RPG- 



-PLI- 
-ALGOL- 



-COBOL- 



cls ■ 
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ALGOL ASSEMBLER 

FORTRAN LISP 

RPG SNOBOL 

els ■ 



BASIC 
PILOT 



COBOL 
PLI 



10 CLS. PRINT6407, "WORD SEARCH PUZZLE" 

28 PRINT: PRINT TAB<7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, N.I" 

30 PRINT8968, ""; INPUT "DO VOU NEED INSTRUCTIONS"; I* 

48 IF LEFT*(I*, 1>="N" THEN CLS: GOTO 198 aSE CLS 

58 PRINT TAB<23>; "WORD SEARCH PUZZLE"' PRINT 

60 PRINT " THIS PROGRAM IS A WORD SEARCH PUZZLE GENERATOR! !" 

78 PRINT "THE PROGRAM TAKES A SET OF INPUT STRINGS, PURGES ALL" 

80 PRINT "NON-ALPHABETIC CHARACTERS OUT OF THEM, AND INCORPORATES" 

90 PRINT "THEM INTO fi WORD SEARCH PUZZLE. " 

180 PRINT 

110 PRINT " IN THE COURSE OF MAKING THE PUZZLE, THE MACHINE MAV" 

128 PRINT "FIND THAT IT CAN'T PUT A PARTICULAR WORD ANVWHERE, AND" 

130 PRINT "SO WILL ASK VOU IF IT SHOULD START THE WHOLE PUZZLE" 

148 PRINT "OVER IF VOU DON'T WANT IT TO START OVER, TVPING 'NO'" 

158 PRINT "WILL THROW AWAV THAT PARTICULAR WORD. IF THIS PERSISTS, " 

160 PRINT "TRV EITHER GIVING LESS WORDS OR BIGGER PUZZLE DIMENSIONS!" 

170 PRINT@979, "PRESS HNV KEY TO CONTINUE"; 

180 IF INKEV*="" THEN 188 ELSE CLS 

198 CLEAR 3880 

280 INPUT "DO VOU WANT THIS TO GO TO THE PRINTER "; PR* 

218 IF LEFT*<PR*, 1>="N" THEN TW=64: GOTO 230 

220 INPUT "HOW MANV COLUMNS DOES VOUR PRINTER HAVE "; TU 

230 INPUT "DO VOU WANT A SOLUTION PRINTOUT"; X* 

240 INPUT "WHAT IS TO BE THE WIDTH OF THE PUZZLE"; W: MD=W 

250 IF W*2<=TW THEN 270 

260 PRINT "THAT WILL NOT FIT IN";TW;" COLUMNS. "' GOTO 248 

270 IF HO. THEN 248 

280 INPUT "THE LENGTH"; L: IF L>W THEN MD=L 

298 IF L<1 THEN 280 

380 INPUT "WHAT IS THE MAXIMUM NUMBER OF WORDS IN THE PUZZLE"; M 

310 IF M>=2 THEN 338 

320 PRINT "SORRV; THERE MUST BE AT LEAST 2 WORDS. ": GOTO 300 

338 DIM A*<L,W>,W*<M> 

340 DIM W<M,2),DXV<8,2),DD<28> 

350 PRINT "NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE:" 

360 PRINT TAB<15); "("> TW; "CHARACTERS MAXIMUM! >" 

370 INPUT XV* 

388 CLS 

390 PRINT "OK - . ENTER A WORD AT EACH QUESTION MARK. " 

400 PRINT "TO REDO THE PREVIOUS WORD, TVPE A HVPHEN (-). " 

418 PRINT "WHEN VOU RUN OUT OF WORDS, TVPE A PERIOD <. ). " 

420 SC=320: FOR 1=1 TO M 

430 PRINT8192, "NEXT WORD "; CHR*<38>; INPUT T* 

440 IF T*0"-" THEN 478 aSE 1=1-1 

450 SC=5C-16: PRINTIJ192, "REDO "; W*<D; ". "; CHR*G8>; 
460 INPUT T*: GOTO 440 

470 IF T*=", " THEN M=I-1: GOTO 710 

488 IF LEN<T*>=0 THEN PRINTM92, "INPUT ERROR; REDO:"; CHR*G0>; 

i r . .F LENCT*>=0 THEN INPUT T*: GOTO 440 ELSE J=l 

500 TE*=MID*<T*,J,D: IF TE*>="H" AND T£*<="Z" THEN 580 

510 IF TE*<"A" OR TE*>"Z" THEN 540 

520 T*=LEFT*(T*, J-1)+CHR*<ASC<MID*<T*, J, i»HRIGHT*<T*, LEN<T*)-J> 
530 G0T0588 

548 IF TE*=T* THEN T*="»: GOTO 488 

558 IF J=LEN<T*> THEN T*=LEFT*<T*, J-l): GOTO 610 

560 IF J=l THEN T*=RIGHT*CT*,LEN<T*>-1>: J=J-1: GOTO 580 

578 T*=LEFT*a$,J-lHRIGHT*a$,LEN<T*)-J>: J=J-1 

588 J=J+1: IF J<=LEN<T*> THEN 580 

590 IF LEN<T*»MD THEN 640 

608 FOR IZ=1 TO 1-1: IF W*(IZ>=T* THEN 660 

610 NEXT: PRINTOSC, "-»;T*;«-»; CHR*G1>; ; SC=SC+16: FL=2 

620 IF LEN<T*HFL>16 THEN SC=SC+16: FL=FL-16: GOTO 628 

630 GOTO 680 

640 PRINTU192, "STRING TO LONG; REDO: ";CHR*G8>; INPUT T* 

650 GOTO 448 

660 PRINTO192, "DUPLICATE ENTRV; REDO: "; CHR*G0>; INPUT T$ 

670 GOTO 440 

688 M*<D=T* 

690 NEXT I 

780 REM 

710 CLS: PRINT "NOW LET ME PONDER THIS " 

728 FOR 1=1 TO M-l 

738 FOR J=I+1 TO M 

740 IF LEN<W*(I» < LEN<W*<J» THEN HZ*=W*<D' W*<I>=W*<J>: W*<J>=HZ* 

758 NEXT J, I 

760 FOR 1=1 TO 8: READ DXV<I,l>,DXVa,2>' NEXT 

770 FOR 1=1 TO 28: READ DD(I): NEXT 



780 DATA 8,1, 1,1, 1,8,1, -1,0,-1,-1,-1, -1,8, -1-1 

790 DATA 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7 

888 FOR 1=1 TO M 

818 LN=LEN<W«I» 

820 NT=0 

838 SD=DD<RND<28» 

840 SX=RND(W>; X1=SX+<LN-1)*DXV(SD, 1) : IF X1<1 OR X1>W THEN 838 

858 SV=RND<L): X1=SV+<LN-1)*DXV<SD, 2> : IF XK1 OR XIX THEN 830 

860 NT=NT+i: IF NTOH*L*2 THEN 918 

878 PRINT "COULDN'T FIT '"; H*<I>; " IN THE PUZZLE " 

888 INPUT "DO VOU WANT ME TO START OVER";A* 

898 IF LEFT*<A*,1>="V" THEN 888 

908 W*<D="": GOTO 998 

910 J=SV: K=SX 

928 FOR P=l TO LN 

930 IF LEN(A*<J,K» AND A*CJ,K>OMID*(W*<I>,P,l> THEN 838 

948 J=J+DXV<5D,2): K=K+DXV(SD, 1) : NEXT P 

958 J=SV: K=SX 

968 FOR P=4 TO LN: B*<J,K>=MD*<M*a>,P,i> 

970 J=J+DXV<5D,2>: K=K+DXV(SD, 1) : NEXT P 

980 W(I,1)=SX: H<I,2)=SV: H(L3)=SD 

990 NEXT I 

1080 FOR 1=1 TO L 

1010 FOR J=l TO W 

1020 IF A$<I,J>=" THEN A*(I, J)=CHR*<RND<26)+96) 

1830 NEXT J, I 

1040 FOR 1=1 TO M-l: FOR J=I+1 TO M 

1858 IF W*<IX=H«J> THEN 1888 

1860 HZ*=«*a>: H*a>=«*a>: H*CJ>=HZ* 

1878 FOR K=l TO 3: HZ=H<I,K): MCI, K)=H(J, K) : H(J,D=HZ: NEXT K 

1888 NEXTJ: NEXT I 

1090 INPUT "HOH MANV COPIES OF THIS PUZZLE DO VOU HHNT";N 

1188 PRINT "FOR EACH COPV, HIT RETURN TO BEGIN PRINTING. . . "; 

1110 FOR C=i TO N: GOSUB 1120:NEXT C: GOTO 1488 

1120 PRINT PM*; : INPUT A*: PRINT: PR*=LEFT«PR$, 1) 

1138 PM*="HIT ENTER TO CONTINUE " 

1140 T=<TW-2»«)/^:CLS: PR=<PR*="V>: TS=(64-2»H)/2 
U50 IF PR THEN LPRINT' " 

1160 PRINT: IF PR THEN LPRINT" * 

1170 CLS: PRINT TAB«64-LeKXV$»/^>; XV* 

1188 IF PR THEN LPRINT TA8«TH-LEN<XV*)>/2>; XV* 

1198 PRINT: PRINT: IF PR THEN LPRINT" ": LPRINT" ■ 

1288 FOR J=l TO L: PRINT TAB(TS); : IF PR THEN LPRINT TAB<T); 

1218 FOR K=l TO H: IFfl*<J,K)0" " THEN 1248 

1228 PRINT " "; : IF PR THEN LPRINT " "; 
1238 GOTO 1250 

1240 PRINT H*<J,K); ":: IF PR THEN LPRINT A*(J,K); " "; 

1258 NEXT K: PRINT: IF PR THEN LPRINT" • 
1260 NEXT J 

1270 PRINT: PRINT: IF PR THEN LPRINT" ": LPRINT" ■ 

1280 PO=0: PRINT "FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE:" 

1290 IF PR THEN LPRINT "FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE: 

1300 PRINT: IF PR THEN LPRINT" " 

1310 FOR J=l TO M:IF LEN<«*<J»=8 THEN 1378 

1320 IF P0S<8>+LEN<H*<J>»62 THEN PRINT 

1330 IF PR THEN IF P0+LEN(W*(J)»TM-2 THEN LPRINT" ": P0=8 

1348 PRINT W*(J), : IF PR THEN LPRINT H*<J>, 

1358 P0=P0+16 

1368 REM CHR*(12) IS THE PRINTER FORM FEED CHARACTER 

1378 NEXT J: PRINT: PRINT: PRINT: PRINT 

1380 IF PR THEN LPRINT" ■• LPRINT" ": LPRINT" ": LPRINT" ° 

1390 RETURN 

1400 IF LEFT*(X*,1)="V" OR LEFT*<X*,1)="V" THEN 1420 

1410 RUN "MENU" 

1420 REM 

1430 FOR 1=1 TO L: FOR J=l TO U: H*(I,J)=" •• NEXTJ: NEXTI 

1440 FOR 1=1 TO M 

1450 LN=LEN<W*a»: J=W<I,2): K=W(I,1) 

1460 FOR P=i TO LN 

1470 A*<J,K)=NID*<H*a>,P,i> 

1488 J=J+DXV(W<I,3),2): K=K+DXV<W<I,3),1): NEXT P 

1498 NEXT I 

1500 XV*="HERE IS THE ANSWER KEV:" 

1510 GOSUB 1128 

1528 PRINT: PRINT 

1530 END 
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The Genesis of Wumpus 

Two years ago I happened by People's Computer 
Company (PCC) and saw some of their computer games — 
such as Hurkle, Snark, and Mugwump. My reaction was: 
"EECHH" Each of these games was based on a 10 x 10 grid 
in Cartesian co-ordinates and three of them was too much 
for me. I started to think along the lines of: "There has to 
be a hide and seek computer game without that (exp. 
deleted) grid!!" In fact, why not a topological computer 
game - Imagine a set of points connected in some way and 
the player moves about the set via the interconnections. 

That afternoon in meditation the phrase "Hunt the 
Wumpus" arrived, and Wumpus was born. He's still a bit 
vague in physical detail as most dedicated Wumpus hunters 
know, but appearances are part of the game. (If you like, 
send me a picture of your version of a Wumpus. Perhaps 
friendly Dave, our editor, will publish the best one in 
Creative Computing.) The grid I chose was the vertices of a 
dodecahedron - simply because it's my favorite Platonic 
solid and once, ages ago, I made a kite shaped like one. The 
edges became the connecting tunnels between the caves 
which were the set of points for the game. 

My basic idea at this time was for the player to approach 
the Wumpus, back off, and come up to him by going 
around the dodecahedron. To my knowledge, this has never 
happened . . . most players adopt other strategies rather 
than this cold-blooded approach. 

Anyway . . . how to get the Wumpus! How about an 
arrow which could turn corners as it goes from room to 
room. Let the hunter tell the arrow where to go and let it 
fly. The shortest round trip without reversals is 5 caves — 
and thus the Crooked Arrow. 

Hmmm . . . How does one sense the Wumpus? It's dark 
in yonder cave, and light would wake him up. If one got 
one cave away, the wumpus's distinct smell would serve as a 
warning. So far, so good ... but Wumpus is still too easy, 
so let's find some appropriate hazards for the caves. 

Bottomless pits were easy. Any imaginary cave would 
have a few of those around the place. Superbats were 
harder to come by. It took me a day or two to get that 
idea. The Superbats are a sort of rapid transit system gone a 
little batty (sorry about that one). They take you a random 
distance to a random cave and leave you there. If that's a 
pit or a Wumpus, well, you are in Fate's hands. 

Around this time, I saw that Map-making would be a 
regular activity of Wumpus-hunters. I numbered the caves 
and made the scheme fixed in the hopes a practised player 
might notice this and make himself a permanent map of the 
caverns. (Another unrealised hope - as an exercise, make 
yourself such a map on a Squashed Dodecahedron), 

To start the game fairly, Wumpus, Hazards, and Hunter 
are located on different points at the start of the game. 
Each game starts with random choices of location, but the 




A Squashed 
Dodecahedron 



hunter may restart with the same set-up if he chooses. This 
allows re-plays if the hunter, say, fell into a pit on the first 
move. 

Wumpus was nearly done in my mind . . . (hint to a 
games-writer: Have a clear notion of your game before you 
start coding it. This saves MUCH confusion.) yet I felt it 
was a bit dull. Once you found the Wumpus all you had to 
do was shoot it. To fix this, the Wumpus was given a little 
life. If you shot an arrow or moved into his cave, he woke 
up and chose to move to a neighboring room or to the same 
room (one of 4 choices). If you and the Wumpus were in 
the same room after he moved, he ATE YOU UP!! 

Around here I noticed that the pits and the bats didn't 
affect the Wumpus. To explain this, I added some color by 
making him heavy and with the legendary sucker feet. After 
all, evolution works in strange ways!! If you are a Wumpus 
fiend,make a version of Wumpus in which heavoids pits and 
superbats can carry him only one room (with the possibility 
of being dumped into your cave). This can be done by 
making the wumpus moving procedure a subroutine. 

I wrote Wumpus and dropped it off at PCC. Then I went 
home and dreamed up Wumpus II 

The Birth of Wumpus 

Around a month iater, I went to the Synergy conference 
at Stanford, where many of the far-out folk were gathered 
to share their visions of improving the world. PCC had a 
few terminals running in a conference room and I dropped 
by. To my vast surprise, all of the terminals were running 
Wumpus and scraps of paper on the floor with scrawled 
numbers and lines testified that much dedicated Wumpus- 
hunting was in progress. I had spawned a hit computer 
game!!! 

Later, PCC published Wumpus in its newsletter, and 
Creative Computing published it in their Sep/Oct 1975 
issue. 

Wumpus and this writeup are the products of the talented 
and creative Gregory Yob. 
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WUMPUS 1 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 
DO VOU NEED INSTRUCTIONS? VES. 



HUNT THE WUMPUS 



CIS ■ 



WUMPUS 1 

THE WUMPUS LIVES IN fi OWE OF 20 ROOMS. EACH ROOM 
HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT fl 
DODECAHEDRON TO SEE HOW THIS WORKS - IF VOU DON'T KNOW 
UHflT A DODECHHDRON IS, ASK SOMEONE) 

HAZARDS. 
BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM 

IF VOU GO THERE, VOU FALL INTO THE PIT (& LOSE!) 
aiPERBHTS - TWO OTHER ROOMS HAVE SUPER BATS. IF VOU 

GO THERE, A BAT GRABS VOU AND TAKES VOU TO SOME. OTHER 

ROOM AT RANDOM. (WHICH MIGHT BE TROUBLESOME) 



PRESS ANV KEV TO CONTINUE 
Cl8 



WUMPUS 1 

WUMPUS. 

THE WUMPUS IS NOT BOTHERED BV THE HAZARDS (HE HAS SUCKER 
FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLV 
HE IS ASLEEP. TWO THINGS THAT WAKE HIM UP' VOUR ENTERING 
HIS ROOM OR VOUR SHOOTING AN ARROW. 

IF THE WUMPUS WAKES, HE MOVES (P= 75) ONE ROOM 
OR STHVS STILL (P= 25). AFTER THAT, IF HE IS WHERE VOU 
ARE, HE EATS VOU UP « VOU LOSE!) 

PRESS ANV KEV TO CONTINUE 



CIS ■ 



WUMPUS 1 



VOU: 



EACH TURN VOU MAV MOVE OR SHOOT A CROOKED ARROW 

MOVING: VOU CAN GO ONE ROOM (THRU ONE TUNNEL) 

ARROWS: VOU HAVE 5 ARROWS. VOU LOSE WHEN VOU RUN OUT. 

EACH ARROW CAN GO FROM 1 TO 5 ROOMS. VOU AIM BV TELLING 

THE COMPUTER THE ROOMS VOU WANT THE ARROW TO GO TO. 

IF THE ARROW CAN'T GO THAT WAV (I. E. , NO TUNNEL) IT MOVES 

AT RANDOM TO THE NEXT ROOM. 

IF THE ARROW HITS THE WUMPUS, VOU WIN. 
IF THE ARROW HITS VOU, VOU LOSE. 

PRESS ANV KEV TO CONTINUE 



WUMPUS 1 

WARNINGS: 

WHEN VOU ARE ONE ROOM AWAV FROM WUMPUS OR HAZARD, 
THE COMPUTER SAVS: 

KUMPUS- 'I SMELL A WUMPUS' 
BflT - 'BATS NEARBV 
PIT - 'I FEEL A DRAFT' 

PRESS ANV KEV TO CONTINUE 

— _ 018 



I SMELL A WUMPUS! 
VOU ARE IN ROOM 7 
TUNNRS LEAD TO 6 8 17 

SHOOT OR MOVE (S-H>? S 
NO. OF R00MS(i-5)? 1 
ROOM #? 17 
HISSED 



• els ■ 



HUNT THE WUMPUS 



VOU ARE IN ROOM 7 
TUNNELS LEflD TO 6 8 17 

SHOOT OR MOVE (S-H)? M 
l«ERE TO? 8_ 



- els - 



HUNT THE HUMPUS 



! SMELL R WUMPUS! 
I FEEL A DRAFT! 
VOU ARE IN ROOM 8 
TUNNELS LEAD TO 1 



7 9 



SHOOT OR MOVE (S-M>? S 
NO. OF R00MS(l-5>? 1 
ROOM #? 1_ 




a^ -£> 



AHA 1 VOU GOT THE WUMPUS! 

HEE HEE HEE - THE WUMPUS'LL GETCHA NEXT TIME! 

SAME SET-UP (V-N) OR '0' TO SUIT 



HUNT THE WUMPUS 



VOU ARE IN ROOM 6 
TUNNELS LEAD TO 5 7 15 



SHOOT OR MOVE <S-N>? M 
WERE TO? 7. 



• els 



HUNT THE WUMPUS 



I SMELL A WUMPUS! 
VOU ARE IN ROOM 7 
TUNNELS LEAD TO 6 



8 17 



SHOOT OR MOVE (S-M)? S 
NO. OF R00MS(l-5)? 1 
ROOM #? 17_ 
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IB CLS. PRINT0412, "WUMPUS 1° 

28 PRINT' PRINT TAB(7) "COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ" 

38 PRINTC960, ""; INPUT "DO VOU NEED INSTRUCTIONS"; I* 

48 IF LEFT*(I*,1)="N" THEN 60 

56 GOSUB 618 

68 CLS: REM- SET UP CAVE (DODECAHEDRAL NODE LIST) 

78 DIM S(20,3) 

88 FOR J=l TO 20 

98 FOR K=i TO 3 

100 READ S(J, K) 

110 NEXT K 

120 NEXT J 

138 DATA 2, 5, 8, 1, 3, 10, 2, 4, 12, 3, 5, 14, i, 4, 6 

148 DATA 5, 7, 15, 6, 8, 17, i, 7, 9, 8, 10, 18, 2, 9, 11 

150 DATA 10, 12, 19, 3, 11, 13, 12, 14, 20, 4, 13, 15, 6, 14, 16 

168 DATA 15, 17, 28, 7, 16, 8, 9, 17, 19, 11, 18, 20, 13, 16, 19 

178 REM- LOCATE L ARRAV ITEMS 

180 REM- 1-V0U,2-WUMPU5,3«4-PITS,546-BATS 

198 DIM 1(6), M(6) 

280 FOR J=l TO 6 

210 L(J)=RND(20) 

220 M(J)=L(J) 



238 NEXT J 

248 REM- CHECK FOR CROSSOVERS (IE L(i)=L(2) ETC) 

258 FOR J=i TO 6 

260 FOR K=J TO 6 

278 IF >K THEN 298 

288 IF L(J)=L(K) THEN 210 

296 NEXT K 

386 NEXT J 

310 REM- SETS RRROS 

320 R=5 

330 L=L(1) 

34B REM- RUN THE GAME 

350 CLS: PRINT TAB(24); "HUNT THE WUMPUS": PRINT 

368 REM- HRZfiRD WARNINGS S LOCATIONS 

378 FOR AX=1 TO 1008: NEXT: PRINI8128, CHR$(31); : GOSUB 1180 

380 REM- MOVE OR SHOOT 

390 GOSUB 1270 

400 ON GOTO 428, 468 

410 REM- SHOOT 

420 GOSUB 1360 

438 IF F=8 THEN 370 

440 GOTO 488 

450 REM- MOVE 

468 GOSUB 1868 

478 IF F=8 THEN 370 

4S8 IF F>0 THEN 538 

4S0 REM- LOSE 

580 PRINT "HA Hfl HA - VOU LOSE!" 

510 GOTO 548 

520 REM- WIN 

530 PRINT "HEE HEE HEE - THE WUMPUS'LL GETCHfl NEXT TIME!!" 

540 FOR J=l TO 6 

558 L(J)=M(J) 

568 NEXT J 

570 PRINT: PRINT "SAME SET-UP (V-N) OR 'Q' TO QUIT" 

588 INPUT 1$ 

598 I*=LEFT*(I*,1) 

680 IF I$="N" THEN 280 ELSE IF I$="Y" THEN 320 ELSE END 

610 REM ***** INSTRUCTIONS ***** 

620 CLS: PRINT TAB(28); "WUMPUS 1": PRINT 

530 PRINT " THE WUMPUS LIVES IN fl CAVE OF 20 ROOMS EACH ROOM" 

640 PRINT "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A" 

650 PRINT "DODECAHEDRON TO SEE HOW THIS WORKS - IF VOU DON'T KNOW" 

668 PRINT "WHAT A DODECHADRON IS, ASK SOMEONE)" 

678 PRINT 

688 PRINT " HAZARDS:" 

698 PRINT "BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM" 

780 PRINT " IF VOU GO THERE, VOU FALL INTO THE PIT (4 LOSE 1 )" 

718 PRINT "SUPERBATS - TWO OTHER ROOMS HAVE SUPER BATS IF VOU" 

720 PRINT " GO THERE, R BAT GRABS VOU AND TAKES VOU TO SOME"; 

738 PRINT " OTHER" 

740 PRINT " ROOM RT RANDOM (WHICH MIGHT BE TROUBLESOME)" 

758 PRINT8979, "PRESS RNV KEV TO CONTINUE"; 

760 IF INKEY*="" THEN 760 ELSE PRINTC128, CHR*(31); 

770 PRINT " WUMPUS:" 

780 PRINT " THE WUMPUS IS NOT BOTHERED BV THE HAZARDS (HE HAS SUCKER" 

798 PRINT "FEEI AND IS TOO BIG FOR A BAT TO LIFT), USURLLV" 

808 PRINT "HE IS RSLEEP. TWO THINGS THAT WAKE HIM UP: VOUR ENTERING" 

818 PRINT "HIS ROOM OR VOUR SHOOTING RN ARROW. " 

828 PRINT " IF THE WUMPUS WRKES, HE MOVES (P=. 75) ONE ROOM" 

830 PRINT "OR STHVS STILL (P=. 25) AFTER THAT, IF HE IS WHERE VOU" 

848 PRINT "ARE, HE EATS VOU UP « VOU LOSE!)" 

858 PRINT8979, "PRESS RNV KEV TO CONTINUE"; 

868 IF INKEY*="" THEN 868 ELSE PRINT8128, CHR$(31); 

870 PRINT » VOU:" 

888 PRINT "EACH TURN VOU MAV MOVE OR SHOOT A CROOKED ARROW" :PRINT 

890 PRINT « MOVING: VOU CAN GO ONE ROOM (THRU ONE TUNNED" 

988 PRINT " ARROWS: VOU HAVE 5 ARROWS. VOU LOSE WHEN VOU RUN OUT " 

918 PRINT " EACH ARROW CRN GO FROM 1 TO 5 ROOMS VOU HIM BV "; 

920 PRINT "TELLING" 

930 PRINT " THE COMPUTER THE ROOMS VOU WANT THE ARROW TO GO TO » 

948 PRINT » IF THE ARROW CAN'T GO THAT WAY (I. E. , NO TUNNEL) IT "; 

950 PRINT "MOVES" 

960 PRINT " AT RANDOM TO THE NEXT ROOM ": PRINT 

978 PRINT " IF THE ARROW HITS THE WUMPUS, VOU WIN " 

988 PRINT " IF THE ARROW HITS VOU, VOU LOSE " 

998 PRINT0979, "PRESS RNV KEV TO CONTINUE"; 

1880 IF INKEY$="" THEN 1088 ELSE PRINT§128, CHR«31>; 



";L(D 
;S(L,1);S(L,2);S(L,3) 



WARNINGS:" 

WHEN VOU ARE ONE ROOM HWAV FROM WUMPUS OR HAZARD, 
THE COMPUTER SAVS:":PRINT 
WUMPUS- 'I SMELL fl WUMPUS'" 
BAT - 'BATS NEARBY'" 

- 'I FEEL fl DRAFT" 
PRESS RNV KEY TO CONTINUE"; 
THEN 1088 ELSE PRINT8128, CHR$(31); 



1818 PRINT 

1820 PRINT 

1030 PRINT 

1040 PRINT 

1058 PRINT 

1060 PRINT "PIT 

1070 PRINT§979, 

1888 IF INKEYJ=" 

1898 RETURN 

1188 REM- PRINT LOCATION « HAZARD WARNINGS 

1118 PRINT 

1128 FOR J= 2 TO 6 

1130 FOR K=l TO 3 

1140 IF S(L(l),K)OL(J) THEN 1218 

1158 ON J-l GOTO 1168,1180,1188,1208,1288 

1160 PRINT "I SMELL A WUMPUS!" 

1178 GOTO 1218 

1188 PRINT "I FEEL R DRAFT!" 

1190 GOTO 1218 

1208 PRINT "BATS NEARBY!" 



TRY ANOTHER ROOM" 



191 



1218 NEXT K 

1228 NEXT J 

1238 PRINT "YOU ARE IN ROOM 

1240 PRINT "TUNNELS LEflD TO 

1258 PRINT 

1268 RETURN 

1278 REM- CHOOSE OPTION 

1280 PRINT "SHOOT OR MOVE (S-M)"; 

1298 INPUT 1$ 

1300 IF I*0"S" THEN 1330 

1318 0=1 

1320 RETURN 

1330 IF I*0"M" THEN 1288 

1340 0=2 

1350 RETURN 

1368 REM- RRROW ROUTINE 

1370 F=8 

1388 REM- PATH OF ARROW 

1398 L=L(1) 

1408 PRINT "NO. OF R00MS(l-5)«; 

1418 INPUT J9 

1420 IF J9C1 OR J9>5 THEN 1488 

1438 FOR K=l TO J9 

1448 PRINT "ROOM #"; 

1458 INPUT P(K) 

1460 IF K<=2 THEN 1500 

1470 IF P(K)OP(K-2) THEN 1508 

1488 PRINT "RRROWS AREN'T THAT CROOKED ■ 
1490 GOTO 1448 

1500 NEXT K 

1518 REM- SHOOT ARROW 

1520 FOR K=l TO J9 

1538 FOR Kl=l TO 3 

1548 IF S(L, Ki)=P(K) THEN 1700 

1550 NEXT Kl 

1568 REM- NO TUNNEL FOR ARROW 

1570 L=S(L,RND(3)) 

1588 GOTO 1710 

1590 NEXT K 

1680 PRINT "MISSED" 

1610 L=L(1) 

1628 REM- MOVE WUMPUS 

1630 GOSUB 1780 

1648 REM- RMMO CHECK 

1658 R=A-1 

1668 IF A>0 THEN 1680 

1670 CLS: PRINT "YOU'RE OUT OF RRROWS": PRINT: F=-l 
1688 RETURN 

1698 REM- SEE IF ARROW IS RT L(l) OR L(2) 
1700 L=P(K) 

1710 IF LOL(2) THEN 1758 

1720 CLS: PRINT "RHA! VOU GOT THE WUMPUS!" 

1738 F=l 

1740 RETURN 

1750 IF LOL(l) THEN 1590 

1768 CLS: PRINT "OUCH! RRROW GOT VOU!" 

1770 F=-l: RETURN 

1780 REM- MOVE WUMPUS ROUTINE 

1790 K=RND(4) 

1880 IF K=4 THEN 1820 

1818 L(2)=S(L(2),K) 

1820 IF L(2)OL THEN 1858 

1830 CLS: PRINT "TSK TSK TSK - WUMPUS GOT YOU 1 " 

1848 F=-l 

1858 RETURN 

1868 REM- MOVE ROUTINE 

1878 F=8 

1888 PRINT "WHERE TO"; 

1890 INPUT L 

1930 IF L<1 OR L>20 THEN 1888 

1918 FOR K=l TO 3 

1920 REM- CHECK IF LEGAL MOVE 

1938 IF S(L(1),K)=L THEN 1990 

1940 NEXT K 

1958 IF L=L(1) THEN 1998 

1968 PRINT "NOT POSSIBLE -"; 

1978 GOTO 1888 

1988 REM- CHECK FOR HRZRRDS 

1998 L(1)=L 

2808 REM- WUMPUS 

2810 IF LOL<2) THEN 2080 

2020 PRINT " , . OOPS! BUMPED R WUMPUS!" 

2838 REM- MOVE WUMPUS 

2848 GOSUB 1790 

2050 IF F=8 THEN 2080 

2868 RETURN 

2870 REM- PIT 

2088 IF LOL(3) AND LOL(4) THEN 2138 

2090 PRINT "VVYIIIIEEEE . FELL IN PIT" 

2108 F=-l 

2118 RETURN 

2120 REM- BATS 

2138 IF LOL(5) AND LOL(6) THEN 2178 

2140 PRINT "ZAP-SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU 1 

2158 L=RND(20) 

2160 GOTO 1990 

2178 RETURN 

2180 END 
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Hark!! The weary Wumpus hunter, wan from 50 days in 
the Terminal Caverns, exhausted and with all of his arrows 

expended (A groaning Teletype roars at a sleepy 

student. Maps litter the floor covered with circles and 
integers. With callused fingers, the immortal Wumpus player 
looks up with bloodshot eyes and implores: "How do I qet 
out of here?") 

I suspected that the dodecahedron may prove a bit 
boring after a few thousand games, so I wrote Wumpus 2 to 
extend your pleasure. Some of the more mathematical 
minded may have noticed there are lots of ways to link 
caves with three tunnels apiece. Some of these patterns are 
topologically interesting .... 

Wumpus 2 is the same old Wumpus in different settings 
- including those of your own design. As you play in the 
different caves, you will notice that the game changes in 
difficulty and strategy. Now to a description of the various 
caves in Wumpus 2. 

CAVE (Dodecahedron) 

This is the same old Wumpus with which you are 
familiar. 

CAVE 1 (Mobius Strip) 

Since' my original vision was topological, here is the first 
wonder of topology, the Mobius strip. Take a strip of 
paper, give it a half-twist and join the ends into a loop. The 
result has just one side and one edge (if you disbelieve, take 
a pencil and go around the thing). 

A perceptive player will note that the placement of the 
pits influence the game. Two pits placed just right (around 
5% of the games have this) will force a detour back around 
the strip in certain cases. Getting around is slower than in 
Cave 0, but it is easier to search the place. 

CAVE 2 (String of Beads) 

See the diagram for this one. Here, placement of the pits 
will often make parts of the caves inaccessible except by 
bat-express. (Can you see why?) Play in this cave is 
frustrating until you have gone to the trouble of making a 
reference map; otherwise you keep coming back to your 
starting point. (Look at the diagram and see how this may 
be so.) 

CAVE 3 (Hex Network) 

This is my attempt at a torus (doughnut). If you can 
visualise a hexagon net like a honeycomb or a tile floor and 
stretch it onto a doughnut, you've got it!! The drawing tries 
to show this, but if you prefer, think of it as a complicated 
molecule of some sort. Play in this one is very similar to 
CAVE 0. 

CAVE 4 (Dendrite) 

Up to now, each tunnel leads to another cave and only 
one tunnel connects a pair of caves. This need not be a 
strict rule and the next two caves illustrate variations on 
this. The dendrite is a branching pattern like a tree or a 
plant. At the ends of the plant are "leaves" which are caves 
leading to themselves or multiple tunnels. This cave is 
especially susceptible to severance by pits and getting stuck 
in corners near the wumpus. A nice thing is that you often 
will know exactly where the Wumpus is when you come 
near him. 



CAVE 5 (one way streets) 

This is the extreme example of all tunnels are one-way. 
You will find that getting about this cave is like travel in 
Los Angeles - much going to get to the neighbor's house. If 
you overshoot, you must travel all the way around, just like 
missing a freeway offramp. 

CAVE 6 .(Do Your OWN) 

Draw up a map of caves, each cave with tunnels GOING 
TO three (exactly three) caves (same or different). Then the 
computer will ask you for the numbers of the destination 
tunnels for each of the 20 caves in Wumpus. When you have 
it entered, play Wumpus on your own caves. Let me know 
of your favorite ones, and your most frustrating ones!!! 

FINIS 

In any case, Wumpus has spawned several versions and 
spread about the computer games-dom really nicely. For 
myself, the soul of the game is in the idea and fun of it 
rather than the program or the computer which hosts it. I 
feel that all really good games will turn programmers on 
enough for them to write it for their system from the idea 
alone and encourage games writers to think carefully on the 
art and esthetics of their games before writing a line of 
code. 

Wumpus-2 and this description are products of Gregory 
Yob. They appeared previously in Creative Computing, 
Jan/Feb 1976 and the game in People's Computer Co. 
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Cove 5 

(One Way Only) 



Cave 6 
(Anything You Like) 



WUHPUS II 
COPVRIGHT 1979 CREATIVE COMPUTING MORRISTOWN, NJ 

DO VOU NEED INSTRUCTIONS? VES- 

Cl3 



*** HflPPV HUNTING! *** 



- els • 



CAVE # <0-6> ? 4- 



*** HUNT THE WUMPUS *** 



WELCOME TO WUMPUS II 

THIS VERSION HHS THE SAME RULES AS 'HUNT THE WUMPUS' 
HOWEVER, VOU NOW HAVE A CHOICE OF CAVES TO PLAV IN 
SOME CAVES ARE EASIER THAN OTHERS ALL CAVES HAVE 20 
ROOMS AND 2 TUNNELS LEADING FROM ONE ROOM TO OTHER ROOMS 

THE CAVES ARE: 
- DODECAHEDRON: THE ROOMS OF THIS CAVE ARE ON A 
12-SIDED OBJECT, EACH FORMING A PENTAGON 
THE ROOMS ARE AT THE CORNERS OF THE PENTAGONS. 
EACH ROOM HAVING TUNNELS THAT LEAD TO 3 OTHER ROOMS 

PRESS HNV KEV TO CONTINUE 



- els • 



WELCOME TO WUMPUS II 

1 - MOBIUS STRIP: THIS CAVE IS TWO ROOMS 

WIDE AND 10 ROOMS AROUND (LIKE A BELT) 
VOU WILL NOTICE THERE IS A HALF TWIST 
SOMEWHERE 

2 - STRING OF BEADS: FIVE BEADS IN A CIRCLE 

EACH BEAD IS A DIAMOND WITH A VERTICAL 
CROSS-BAR THE RIGHT & LEFT CORNERS LEAD 
TO NEIGHBORING BEADS. <THIS ONE IS DIFFICULT 
TO PLAV) 

PRESS ANV KEV TO CONTINUE 



els 



WELCOME TO WUMPUS II 

3 - HEX NETWORK: IMAGINE A HEX TILE FLOOR TAKE 
A RECTANGLE WITH 20 POINTS (INTERSECTIONS) 
INSIDE (4X4) JOIN RIGHT & LEFT SIDES TO MAKE A 
CVLINDER, THEN JOIN TOP & BOTTOM TO FORM A 
TORUS (DOUGHNUT), 
HAVE FUN IMAGINING THIS ONE! ! 

OWES 1-3 ARE REGULAR IN THE SENSE THAT EACH ROOM 
GOES TO THREE OTHER ROOMS 8 TUNNELS ALLOW TWO- 
HAV TRAFFIC. HERE ARE SOME 'IRREGULAR' CAVES: 

PRESS ANV KEV TO CONTINUE 



■ els - 



WELCOME TO WUMPUS II 

4 - DENDRITE WITH DEGENERACIES: PULL A PLANT FROM 

THE GROUND THE ROOTS & BRANCHES FORM A 
DENDRITE -IE, THERE ARE NO LOOPING PATHS 
DEGENERBCV MEANS A) SOME ROOMS CONNECT TO 
THEMSELVES AND B) SOME ROOMS HAVE MORE THAN ONE 
TUNNEL TO THE SAME OTHER ROOM, IE, 12 HHS 
TWO TUNNELS TO 12 

5 - ONE WAV LATTICE: HERE ALL TUNNELS GO ONE 

WAV ONLV TO RETURN, VOU MUST GO AROUND THE CAVE 
(ABOUT 5 MOVES) 



PRESS ANV KEV TO CONTINUE 
els 



WELCOME TO WUMPUS II 

ENTER VOUR OWN CAVE: THE COMPUTER WILL ASK VOU 
THE ROOMS NEXT TO EACH ROOM IN THE CAVE 

FOR EXAMPLE: 

ROOM 111 ? 2, 2, 4 - VOUR REPLV OF 2, 3, 4 

MEANS ROOM 1 HAS TUNNELS GOING TO ROOMS' 

2, 3, * 4 



VOU ARE IN ROOM 2B — TUNNELS LEAD TO 16 20 20 
SHOOT OR MOVE ? N 
WERE TO ? 16- 



• els 



*** HUNT THE WUMPUS *** 

I FEEL A DRAFT! 
I FEEL A DRAFT! 
VOU ARE IN ROOM 16 — TUNNELS LEAD TO 14 19 20 

SHOOT OR MOVE ? M 

WERE TO ? 14- 



• els 



*** HUNT THE WUMPUS *** 

WVIIIEEEE FELL IN A PIT! 
HA HA HA - VOU LOSE! 
PLAV AGAIN? VES 



SAME SET-UP ? NO 
CAVE # (0-6) ? 1_ 



*** HUNT THE WUMPUS *** 



VOU ARE IN ROOM 20 — TUNNELS LEAD TO 1 18 19 
SHOOT OR MOVE ? M 
KHERE TO ? 1. 



- els ■ 



*** HUNT THE WUMPUS *** 

VOU ARE IN ROOM 1 — TUNNELS LERD TO 20 2 3 
SHOOT OR MOVE ? M 
WHERE TO ? 2_ 

els 



*** HUNT THE WUMPUS *** 

I FEEL A DRAFT! 

VOU ARE IN ROOM 2 — TUNNELS LEAD TO 19 1 4 

SHOOT OR MOVE ? M 

WERE TO ? 4. 



■ els 



*** HUNT THE WUMPUS *** 

WVIIIEEEE FELL IN A PIT! 

Hfl HA HA - VOU LOSE! 
PLAV AGAIN? NO 



■ els 
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18 CLS: PRINT0412, "WUMPUS II 

20 PRINT: PRINT TRB(7) "COPVRIOHT 1979 CREATIVE COMPUTING MORRISTOWN, HJ" 

30 PRINTO960, ""; : INPUT "DO VOU NEED INSTRUCTIONS"; 1$ 

4B REM- WUMPUS VERSION 2 

50 DIM S<20, 3) 

69 DIM L(6),M(6),P(5) 

70 IF LEFT*(It,l) O "V" THEN CLS: GOTO 100 
80 GOSUB 60S 

96 REM- CHOOSE AND SET UP CAVE 

100 GOSUB 2470 

110 REM LOCATE L ARRAY ITEMS 

126 REM 1-YOU, 2-WUHPUS, 3M-PITS, 5&6-6ATS 

130 FOR J=l TO 6 

140 L(J)=RND(20> 

159 M(J)=L(J> 

160 NEXT J 

178 REM CHECK FOR CROSSOVERS (IE L(1)=L(2) ETC) 

180 FOR J=l TO 6 

190 FOR K=J TO 6 

260 IF J=K THEN 220 

210 IF L(J>=L(K> THEN 130 

220 NEXT K 

230 NEXT J 

240 REM SET ft ARROWS 

250 A=5 

260 L=L(1) 

270 REM- RUN THE GAME 

280 CLS: PRINT "*** HUNT THE WUMPUS ***": PRINT 

290 REM-HAZARDS WARNINGS AND LOCATION 

300 GOSUB 1210 

310 REM MOVE OR SHOOT 

320 GOSUB 1380 

330 ON GOTO 350, 390 

340 REM SHOOT 

350 GOSUB 1520 

366 IF F=0 THEN 320 

370 GOTO 410 

380 REM MOVE 

390 GOSUB 2090 

400 IF F=0 THEN 300 

416 IF F>0 THEN 460 

420 REM LOSE 

430 PRINT "HA HA HA - VOU LOSE!" 

440 GOTO 470 

450 REM WIN 

460 PRINT "HEE HEE HEE - THE WUMPUS'LL GET VOU NEXT TIME!!" 

470 FOR J=l TO 6 

480 L(J)=HCJ> 

490 NEXT J 

500 PRINT "PLAY AGAIN"; 

510 INPUT It 

520 PRINT 

530 PRINT 

540 IF LEFT*CIt,l)0"Y" THEN 3440 

550 PRINT "SAME SET-UP "; 

560 INPUT It 

570 PRINT 

580 IF LEFTt(It,l>0"Y" THEN 100 

590 GOTO 250 

600 CLS: REM- INSTRUCTIONS 

610 PRINT TAB(20); "WELCOME TO WUMPUS II": PRINT 

620 PRINT "THIS VERSION HAS THE SAME RULES AS 'HUNT THE WUMPUS' " 

630 PRINT "HOWEVER, YOU NOW HAVE A CHOICE OF CAVES TO PLAV IN " 

640 PRINT "SOME CAVES ARE EASIER THAN OTHERS ALL CAVES HAVE 20" 

650 PRINT "ROOMS AND 3 TUNNELS LEADING FROM ONE ROOM TO OTHER ROOMS " 

660 PRINT 

670 PRINT "THE CAVES ARE:" 

680 PRINT " - DODECAHEDRON: THE ROOMS OF THIS CAVE ARE ON A" 

690 PRINT " 12-SIDED OBJECT, EACH FORMING A PENTAGON " 

760 PRINT " THE ROOMS ARE AT THE CORNERS OF THE PENTAGONS " 

710 PRINT " EACH ROOM HAVING TUNNELS THAT LEAD TO 3 OTHER ROOMS" 

720 PRINT0979, "PRESS ANV KEY TO CONTINUE"; 

730 IF INKEYt="" THEN 730 ELSE PRINT0128, CHRt(31); 

740 PRINT " 1 - MOBIUS STRIP: THIS CAVE IS TWO ROOMS" 

750 PRINT " WIDE AND 10 ROOMS AROUND <LIKE A BELT) " 

760 PRINT " VOU WILL NOTICE THERE IS A HALF TWIST" 

770 PRINT " SOMEWHERE " 

780 PRINT 

790 PRINT " 2 - STRING OF BEADS: FIVE BEADS IN A CIRCLE " 

800 PRINT " EACH BEAD IS A DIAMOND WITH A VERTICAL" 

810 PRINT " CROSS-BAR THE RIGHT & LEFT CORNERS LEAD" 

820 PRINT " TO NEIGHBORING BEADS. (THIS ONE IS DIFFICULT" 

830 PRINT " TO PLAV) " 

846 PRINT8979, "PRESS ANY KEY TO CONTINUE"; 
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850 IF INKEYt="" THEN 850 ELSE PRINT0128, CHRtGl); 

860 PRINT " 3 - HEX NETWORK: IMAGINE A HEX TILE FLOOR TAKE" 

870 PRINT " A RECTANGLE WITH 20 POINTS (INTERSECTIONS)" 

880 PRINT " INSIDE (4X4) JOIN RIGHT * LEFT SIDES TO MAKE A" 

890 PRINT " CYLINDER THEN JOIN TOP & BOTTOM TO FORM A" 

900 PRINT " TORUS (DOUGHNUT) " 

910 PRINT " HAVE FUN IMAGINING THIS ONE!!" 

920 PRINT 

930 PRINT "CAVES 1-3 ARE REGULAR IN THE SENSE THAT EACH ROOM" 

940 PRINT "GOES TO THREE OTHER ROOMS S TUNNELS ALLOW TWO-" 

950 PRINT "WAY TRAFFIC HERE ARE SOME 'IRREGULAR' CAVES:" 

966 PRINT0979, "PRESS ANY KEY TO CONTINUE"; 

970 IF INKEYt="» THEN 970 ELSE PRINT0128, CHRtGl); 

980 PRINT " 4 - DENDRITE WITH DEGENERACIES: PULL A PLANT FROM" 

990 PRINT " THE GROUND THE ROOTS * BRANCHES FORM A " 

1600 PRINT " DENDRITE -IE, THERE ARE NO LOOPING PATHS " 

1010 PRINT " DEGENERACY MEANS A) SOME ROOMS CONNECT TO" 

1620 PRINT " THEMSELVES AND B) SOME ROOMS HAVE MORE THAN ONE" 

1630 PRINT " TUNNEL TO THE SAME OTHER ROOM, I E , 12 HAS " 

1040 PRINT " TWO TUNNELS TO 13 " 

1050 PRINT 

I860 PRINT " 5 - ONE WAY LATTICE: HERE ALL TUNNELS GO ONE" 

1670 PRINT " WAY ONLY TO RETURN, YOU MUST GO AROUND THE CAVE" 

1080 PRINT " (ABOUT 5 MOVES) " 

1090 PRINT0979, "PRESS ANY KEY TO CONTINUE"; 

1100 IF INKEYt="" THEN 1106 ELSE PRINT0128, CHRt(31>; 

1110 PRINT " 6 - ENTER YOUR OWN CAVE: THE COMPUTER WILL ASK YOU" 

1126 PRINT " THE ROOMS NEXT TO EACH ROOM IN THE CAVE " 

1130 PRINT 

1140 PRINT " FOR EXAMPLE:" 

1150 PRINT " ROOM SI ? 2, 3, 4 - YOUR REPLY OF 2, 3, 4 

1160 PRINT " MEANS ROOM 1 HAS TUNNELS GOING TO ROOMS:" 

1170 PRINT " 2, 2, S 4 " 

1180 PRINT: PRINT 

1190 PRINT "*** HAPPY HUNTING! ***": PRINT 

1200 RETURN 

1210 REM 

1220 PRINT 

1230 FOR J=2 TO 6 

1246 FOR K=l TO 3 

1256 IF S(L(l>-K>OL(J) THEN 1320 

1260 ON J-l GOTO 1270,1290,1290,1310,1310 

1270 PRINT "I SMELL A WUMPUS!" 

12S0 GOTO 1320 

1290 PRINT "I FEEL A DRAFT!" 

1300 GOTO 1320 

1310 PRINT "BATS NEARBY!" 

1320 NEXT K 

1330 NEXT J 

1340 PRINT "YOU ARE IN RO0M";L(l); 

1350 PRINT "— TUNNELS LEAD T0";S(L,1>;S<L2); S(L,3) 

1360 PRINT 

1370 RETURN 

1380 REM- CHOOSE OPTION 

1390 GOTO 1430 

1406 PRINT "ERROR "; 

1410 INPUT Z9 

1420 PRINT ""; 

1436 PRINT "SHOOT OR MOVE "; 

1440 INPUT It 

1456 PRINT 

1460 IF LEFTt(It,DO"S" THEN 1490 

1476 0=1 

1480 RETURN 

1490 IF LEFTt(It,DO"M" THEN 1400 

1500 0=2 

1510 RETURN 

1520 REM- ARROW ROUTINE 

1530 F=0 

1540 REM- PATH OF ARROW 

1550 GOTO 1590 

1566 PRINT "ERROR "; 

1570 INPUT Z9 

1580 PRINT ""; 

1596 PRINT "NO OF ROOMS "; 

1600 INPUT J9 

1610 PRINT 

1620 IF J9<1 OR J9>5 OR INT(J9)OABS(J9) THEN 1560 

1630 FOR K=l TO J9 

1640 PRINT "ROOM »"; 

1656 INPUT P(K) 

1660 IF P(K)>0 AND P(KX21 AND INT(P(K))=ABS(P(K)> THEN 1710 

1676 PRINT "ERROR "; 

1680 INPUT Z9 



1698 PRINT ""; 

1700 GOTO 1640 

1710 NEXT K: PRINT0128, CHR«21); 

1720 PRINT 

1730 REM - SHOOT ARROW 

1740 P,=H-1 

1750 A9=L<1) 

1760 FOR K=l TO J9 

1770 FOR Kl=l TO 2 

1780 IF S(A9, K1>=P<K> THEN 1920 

1790 NEXT Kl 

1800 REM - NO TUNNEL FOR THE ARROW 

1810 A9=S<A9, RND<0» 

1820 GOTO 1940 

1830 NEXT K 

1840 PRINT "MISSED " 

1850 REM - MOVE WUMPUS 

1860 GOSUB 2010 

1870 REM - AMMO CHECK 

1880 IF fi>0 THEN 1910 

1890 PRINT "VOU HAVE USED ALL OF VOUR ARROWS " 

1900 F=-l 

1910 RETURN 

1928 REM - SEE IF ARROW IS AT L(l) OR L<2) 

1930 f)9=P<K) 

1940 IF fl90L(2) THEN 1980 

1950 PRINT "AHA! VOU GOT THE WUMPUS! HE WAS IN R00MMC2) 

I960 F=l 

1970 RETURN 

1380 IF Pi90L<l> THEN 1830 

1990 PRINT "OUCH! ARROW GOT VOU!" 

2800 GOTO 1900 

2010 REM - MOVE WUMPUS ROUTINE 

2020 K=RND<4) 

2830 IF K=4 THEN 2080 

2040 L(2)=S<L<2),K) 

2058 IF L<2)OL THEN 2080 

2060 PRINT "TSK TSK TSK- WUMPUS GOT VOU 1 " 

2870 F=-l 

2880 RETURN 

2090 REM - MOVE ROUTINE 

2108 F=B 

2118 GOTO 2150 

2120 PRINT "ERROR "; 

2120 INPUT Z9 

2140 PRINT ""; 

2150 PRINT "WHERE TO "; 

2160 INPUT L 

2170 PRINT&L28, CHR*<31>; 

2180 IF L<1 OR L>20 OR ABS(L)OINKL) THEN 2120 

a90 FOR K=l TO 3 

2200 REM - CHECK IF LEGAL MOVE 

2210 IF Sa<D,K)=L THEN 2290 

2220 NEXT K 

2236 IF L=L<1) THEN 2290 

2240 PRINT "NOT POSSIBLE - "i 

2250 INPUT 29 

2260 PRINT ""; 

2270 GOTO 2150 

2280 REM - CHECK FOR HAZARDS 

2290 L(1)=L 

2300 REN - WUMPUS 

2310 IF LOLC2) THEN 2370 

2320 PRINT " OOPS! BUMPED A WUMPUS!" 

2330 REM - MOVE A WUMPUS 

2240 GOSUB 2020 

2350 IF F=0 THEN 2370 

2260 REM - PIT 

2370 IF LOL(3) AND LOLC4) THEN 2420 

2280 PRINT "VVVIIIEEEE FELL IN A PIT 1 " 

2398 F=-l 

2400 RETURN 

2410 REM - BATS 

2420 IF LOLC5) AND LOLC6) THEN 2460 

2420 PRINT "ZAP-SUPER BAT SNATCH! ELSEWHERESVILLE FOR VOU 1 " 

244B L=RND<20> 

2450 GOTO 2290 

2460 RETURN 

2470 REM - SELECT CAVE 

2480 GOTO 2520 

2490 PRINT "ERROR "; 

2580 INPUT Z9 

2510 PRINT ""; 

2520 PRINT "CAVE ft (0-6) "; 

2530 RESTORE 

2540 INPUT N 

2550 PRINT 

2560 IF NC0 OR N>6 OR INT(N)OBBS<N) THEN 2490 
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2570 ON N+l GOSUB 2720, 2660, 2780, 2900, 3020, 2148, 3268 

2588 RETURN 

2590 REM - DODECAHEDRON 

2608 DATA 2, 5, 8, 1, 3, 10, 2, 4, 12, 2, 5, 14, 1, 4, 6 

2610 DATA 5, 7, 15, 6, 8, 17, 1, 7, 9, 8, 10, 18, 2, 9, 11 

2620 DATA 10, 12, 19, 2, 11, 12, 12, 14, 20, 4, 12, 15, 6, 4, 16 

2630 DATA 15, 17, 20, 7, 16, 18, 9, 17, 19, 11, 18, 20, 13, 16, 19 

2648 GOSUB 3378 

2658 RETURN 

2660 REM - MOBIUS STRIP 

2678 FOR Bl=l TO 1 

2680 FOR B2=l TO 60 

2698 READ B0 

2700 NEXT B2 

2710 NEXT Bl 

2720 DATA 20, 2, 3, 19, 1, 4, 1, 4, 5, 2, 3, 6, 3, 6, 7 

2730 DATA 4, 5, 8, 5, 8, 9, 6, 7, 10, 7, 10, 11, 8, 9, 12 

2740 DATA 9, 12, 13, 10, 11, 14, 11, 14, 15, 12, 13, 16, 12, 16, 17 

2750 DATA 14, 15, 18, 15, 18, 19, 16, 17, 20, 2, 17, 20, 1, 18, 19 

2760 GOSUB 3370 

2770 RETURN 

2780 REM - STRING OF BEADS 

2790 FOR Bl=l TO 2 

2808 FOR B2=l TO 68 

2810 READ B8 

2820 NEXT B2 

2838 NEXT Bl 

2848 DATA 2, 3, 28, 1, 3, 4, 1, 2, 4, 2, 3, 5, 4, 6, 7 

2850 DATA 5, 7, 8, 5, 6, 8, 6, 7, 9, 8, 10, 11, 9, 11, 12 

2860 DATA 9, 10, 12, 10, 11, 13, 12, 14, 15, 13, 15, 16, 13, 14, 16 

2870 DATA 14, 15, 17, 16, 18, 19, 17, 19, 20, 17, 18, 20, 1, 18, 19 

2880 GOSUB 3370 

2890 RETURN 

2SO0 REM - HEX NUT ON TORUS 

2918 FOR Bl=l TO 3 

2920 FOR B2=l TO 60 

2930 READ B8 

2940 NEXT B2 

2958 NEXT Bl 

2960 DATR 6, 10, 16, 6, 7, 17, 7, 8, 18, 8, 9, 19, 9, 18, 28 

2978 DATA 1, 2, 15, 2, 3, 11, 3, 4, 12, 4, 5, 13, 5, 6, 14 

2980 DATA 7, 16, 28, 8, 16, 17, 9, 17, 18, 18, 18, 19, 6, 19, 28 

2990 DATA 1, 11, 12, 2, 12, 13, 3, 12, 14, 4, 14, 15, 5, 11, 15 

2000 GOSUB 3370 

3810 RETURN 

3028 REM - DENDRITE W DEGENERACIES 

2030 FOR Bl=l TO 4 

3840 FOR B2=l TO 60 

3858 READ B0 

3860 NEXT B2 

3870 NEXT Bl 

3080 DATA 1, 1, 5, 2, 2, 5, 3, 3, 6, 4, 4, 6, 1, 2, 7 

3090 DATA 3, 4, 7, 5, 6, 10, 8, 9, 9, 8, 8, 10, 7, 9, 11 

2100 DATA 10, 12, 14, 12, 12, 12, 11, 12, 12, 11, 15, 16, 14, 17, 18 

2110 DATA 14, 19, 20, 15, 17, 17, 15, 18, 18, 16, 19, 19, 16, 20, 20 

3120 GOSUB 3370 

3130 RETURN 

3140 REM - ONE WAV LATTICE 

3158 FOR Bl=l TO 5 

3160 FOR B2=l TO 60 

3178 READ B8 

3188 NEXT B2 

3198 NEXT Bl 

2288 DATA 5, 4, 8, 1, 5, 6, 2, 6, 7, 2, 7, 8, 8, 9, 12 

3210 DATA 5, 9, 10, 6, 10, 11, 7, 11, 12, 12, 13, 16, 9, 13, 14 

3220 DATA 10, 14, 15, 11, 15, 16, 16, 17, 20, 13, 17, 18, 14, 18, 19 

3238 DATA 15, 19, 20, 1, 4, 20, 1, 2, 17, 2, 3, 18, 3, 4, 19 

3248 GOSUB 3370 

3250 RETURN 

3260 REM - INPUT VOUR OWN CAVE 

3270 FOR J=l TO 28 

3280 PRINT "ROOM fl";J; 

3290 INPUT S(J,1),S(J,2),S<J,3) 

3380 FOR K=l TO 3 

3310 IF S(J,K»0 AND S(J,KX21 AND ABSCSU, K))=HBS<S<J,K» THEN 3240 

3320 PRINT "***** ERROR!!!!!" 

3330 GOTO 3280 

3340 NEXT K 

3350 NEXT J 

3360 RETURN 

3378 REM - INPUT CAVE 

3280 FOR J=l TO 20 

3390 FOR K=l TO 3 

3408 READ S<J, K) 

3418 NEXT K 

3428 NEXT J 

3438 RETURN 

3448 END 
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